mirror of
https://github.com/GaloisInc/cryptol.git
synced 2024-12-24 08:24:19 +03:00
5 lines
129 B
Plaintext
5 lines
129 B
Plaintext
maxSeq' xs = ys
|
|
where ys = [0] # [ max x y | x <- xs
|
|
| y <- ys
|
|
]
|