mirror of
https://github.com/GaloisInc/cryptol.git
synced 2024-09-11 22:17:18 +03:00
14 lines
338 B
Plaintext
14 lines
338 B
Plaintext
/*
|
|
* Copyright (c) 2013-2018 Galois, Inc.
|
|
* Distributed under the terms of the BSD3 license (see LICENSE file)
|
|
*/
|
|
|
|
xs = [ 1 .. 100 ]
|
|
|
|
sumInf xs = iterSums
|
|
where
|
|
sums = [ 0 ] # [ x + y | x <- xs
|
|
| y <- sums ]
|
|
iterSums = [ x + y | x <- sums
|
|
| y <- [ 1 ...] ]
|