9 lines
125 B
Plaintext
9 lines
125 B
Plaintext
|
data List = { Nil, Cons Int List }
|
||
|
|
|
||
|
|
defn head l = {
|
||
|
|
case l of {
|
||
|
|
Nil -> { 0 }
|
||
|
|
Cons x y z -> { x }
|
||
|
|
}
|
||
|
|
}
|