mirror of
https://github.com/GaloisInc/cryptol.git
synced 2024-12-16 20:03:27 +03:00
5 lines
113 B
Plaintext
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 ]
|