mirror of
https://github.com/ilyakooo0/Idris-dev.git
synced 2024-09-23 06:57:15 +03:00
16 lines
356 B
Idris
16 lines
356 B
Idris
module Main
|
|
|
|
forLoop : List a -> (a -> IO ()) -> IO ()
|
|
forLoop [] f = return ()
|
|
forLoop (x :: xs) f = do f x
|
|
forLoop xs f
|
|
|
|
syntax for {x} "in" [xs] ":" [body] = forLoop xs (\x => body)
|
|
|
|
main : IO ()
|
|
main = do putStrLn "Counting:"
|
|
for x in [1..10]:
|
|
putStrLn $ "Number " ++ show x
|
|
putStrLn "Done!"
|
|
|