mirror of
https://github.com/idris-lang/Idris2.git
synced 2024-12-26 13:11:30 +03:00
20 lines
354 B
Idris
20 lines
354 B
Idris
import Data.Fin
|
|
import Data.List1
|
|
|
|
hours : List (Fin 12)
|
|
hours = forget (allFins 11)
|
|
|
|
main : IO ()
|
|
main = do
|
|
printLn hours
|
|
|
|
printLn $ map finS hours
|
|
printLn $ map complement hours
|
|
|
|
printLn $ map (+ 3) hours
|
|
printLn $ map (* 5) hours
|
|
|
|
printLn $ map negate hours
|
|
printLn $ map ((-) 3) hours
|
|
printLn $ map (flip (-) 3) hours
|