20 lines
232 B
Agda
20 lines
232 B
Agda
module ListSugar
|
|
|
|
import Prelude
|
|
|
|
|
|
blah : List Int
|
|
blah = [ 1, 2, 3]
|
|
|
|
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
|