Largest proper divisor of n: Difference between revisions
Content deleted Content added
Thundergnat (talk | contribs) →{{header|Raku}}: demonstrate for some larger numbers too |
|||
Line 290:
| 1 < length ab = quot n (last ab)
| otherwise = 1
main :: IO ()
main =
(putStr . unlines . map concat . chunksOf 10) $
<pre> 1 1 1 2 1 3 1 4 3 5
|