mirror of
https://github.com/unisonweb/unison.git
synced 2024-10-04 21:57:25 +03:00
16 lines
252 B
Plaintext
16 lines
252 B
Plaintext
(+) = (Nat.+)
|
|
(-) = Nat.drop
|
|
(*) = (Nat.*)
|
|
|
|
eat-stack n = case n of
|
|
0 -> 0
|
|
n -> eat-stack (n - 1) + 1
|
|
|
|
t = Stream.take 100 (Stream.map eat-stack (Stream.from-nat 0))
|
|
p = 9000
|
|
q = 900
|
|
r = 90
|
|
s = 9
|
|
sum = Stream.fold-left 0 (+) t
|
|
(sum, p + q + r + s)
|