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

4 lines
81 B
Haskell

import Data.List (inits)
main = mapM_ putStrLn $ tail $ inits $ replicate 5 '*'