mirror of
https://github.com/GaloisInc/cryptol.git
synced 2025-01-05 15:07:12 +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 ]
|