mirror of
https://github.com/GaloisInc/cryptol.git
synced 2024-09-21 02:48:14 +03:00
5 lines
139 B
Plaintext
5 lines
139 B
Plaintext
sums xs = ys
|
|
where ys = [ x + y | x <- xs | y <- [0] # ys ]
|
|
|
|
check12 = sums ([0 .. 9] : [_][32]) == [0, 1, 3, 6, 10, 15, 21, 28, 36, 45]
|