23 lines
283 B
Agda
23 lines
283 B
Agda
module ListSugar
|
||
|
||
import Prelude
|
||
|
||
|
||
blah : List Int
|
||
blah = [ 1, 2, 3]
|
||
|
||
pairs : List (Int × Int)
|
||
pairs = [ (1,2), (3,4)]
|
||
|
||
bar : List Int → Int
|
||
bar [ ] = 0
|
||
bar [x] = 1
|
||
bar _ = 42
|
||
|
||
main : IO Unit
|
||
main = do
|
||
printLn blah
|
||
printLn $ bar []
|
||
printLn $ bar [ 42 ]
|
||
printLn $ bar blah
|