18 lines
374 B
Plaintext
18 lines
374 B
Plaintext
|
data List a = { Nil, Cons a (List a) }
|
||
|
|
|
||
|
|
defn fix f = { let { defn x = { f x } } in { x } }
|
||
|
|
defn fixpointOnes fo = { Cons 1 fo }
|
||
|
|
defn sumTwo l = {
|
||
|
|
case l of {
|
||
|
|
Nil -> { 0 }
|
||
|
|
Cons x xs -> {
|
||
|
|
x + case xs of {
|
||
|
|
Nil -> { 0 }
|
||
|
|
Cons y ys -> { y }
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
defn main = { sumTwo (fix fixpointOnes) }
|