RosettaCodeData/Task/Loops-For/Haskell/loops-for-3.hs

2 lines
51 B
Haskell

putStrLn $ unlines [replicate n '*' | n <- [1..5]]