blog-static/code/compiler/11/examples/works3.txt

10 lines
273 B
Plaintext
Raw Normal View History

2020-04-14 15:58:13 -07:00
data List a = { Nil, Cons a (List a) }
data Bool = { True, False }
defn length l = {
case l of {
Nil -> { 0 }
Cons x xs -> { 1 + length xs }
}
}
2020-04-14 15:58:13 -07:00
defn main = { length (Cons 1 (Cons 2 (Cons 3 Nil))) + length (Cons True (Cons False (Cons True Nil))) }