heptagon/test/good/itfusion.ept

const n:int = 42

fun inc(a:int) returns (o:int)
let
  o = a + 1;
tel

fun f1(a:int^n) returns (o:int^n)
let
  o = map<<n>> inc (map<<n>> inc (a));
tel

fun f2(a,b:int^n) returns (o:int^n)
let
  o = map<<n>> (+) (map<<n>> inc (b), map<<n>> inc (a));
tel

fun f3(a,b:int^n) returns (o:int^n)
let
  o = map<<n>> (+) (b, map<<n>> inc (a));
tel
Added iterator fusion For now it only deals with maps but it can be easily extended. See test/good/itfusion.ept for examples of sequences that can be optimised. 2010-07-21 17:19:51 +02:00			`const n:int = 42`

			`fun inc(a:int) returns (o:int)`
			`let`
			`o = a + 1;`
			`tel`

			`fun f1(a:int^n) returns (o:int^n)`
			`let`
fixed tests to the new iterator syntax. Changed (( and )) to (< and >) since it's very common to write )) ! 2011-03-21 20:45:48 +01:00			`o = map<<n>> inc (map<<n>> inc (a));`
Added iterator fusion For now it only deals with maps but it can be easily extended. See test/good/itfusion.ept for examples of sequences that can be optimised. 2010-07-21 17:19:51 +02:00			`tel`

			`fun f2(a,b:int^n) returns (o:int^n)`
			`let`
fixed tests to the new iterator syntax. Changed (( and )) to (< and >) since it's very common to write )) ! 2011-03-21 20:45:48 +01:00			`o = map<<n>> (+) (map<<n>> inc (b), map<<n>> inc (a));`
Added iterator fusion For now it only deals with maps but it can be easily extended. See test/good/itfusion.ept for examples of sequences that can be optimised. 2010-07-21 17:19:51 +02:00			`tel`

			`fun f3(a,b:int^n) returns (o:int^n)`
			`let`
fixed tests to the new iterator syntax. Changed (( and )) to (< and >) since it's very common to write )) ! 2011-03-21 20:45:48 +01:00			`o = map<<n>> (+) (b, map<<n>> inc (a));`
Added iterator fusion For now it only deals with maps but it can be easily extended. See test/good/itfusion.ept for examples of sequences that can be optimised. 2010-07-21 17:19:51 +02:00			`tel`