mirror of
https://github.com/unisonweb/unison.git
synced 2024-09-25 01:08:30 +03:00
16 lines
264 B
Plaintext
16 lines
264 B
Plaintext
(+) = (UInt64.+)
|
|
(-) = UInt64.drop
|
|
(*) = (UInt64.*)
|
|
|
|
eat-stack n = case n of
|
|
0 -> 0
|
|
n -> eat-stack (n - 1) + 1
|
|
|
|
t = Stream.take 100 (Stream.map eat-stack (Stream.from-uint64 0))
|
|
p = 9000
|
|
q = 900
|
|
r = 90
|
|
s = 9
|
|
sum = Stream.fold-left 0 (+) t
|
|
(sum, p + q + r + s)
|