cryptol/docs/ProgrammingCryptol/enigma/Finite.cry

/*
 * Copyright (c) 2013-2016 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 ...] ]
Initial import from internal repo 2014-04-18 02:34:25 +04:00			`/*`
Update copyright dates and add missing headers 2016-01-19 22:31:37 +03:00			`* Copyright (c) 2013-2016 Galois, Inc.`
Initial import from internal repo 2014-04-18 02:34:25 +04:00			`* 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 ...] ]`