1
1
mirror of https://github.com/GaloisInc/cryptol.git synced 2024-12-22 23:41:30 +03:00
cryptol/tests/issues/issue108.cry
2014-04-17 15:34:25 -07:00

5 lines
113 B
Plaintext

sum : {a,b} (fin a, fin b) => [a][b] -> [b]
sum xs = ss ! 0
where
ss = [0] # [ s + x | x <- xs | s <- ss ]