blog-static/code/compiler/07/examples/bad3.txt

9 lines
125 B
Plaintext
Raw Normal View History

2019-10-26 20:30:29 -07:00
data List = { Nil, Cons Int List }
defn head l = {
case l of {
Nil -> { 0 }
Cons x y z -> { x }
}
}