2011-07-21 11:19:07 +02:00
|
|
|
node f() returns (o:int^2)
|
|
|
|
let
|
|
|
|
o = (2^2^3^4)[0][1]
|
|
|
|
tel
|
|
|
|
|
|
|
|
node plus_tab(a: int^2^10) returns (o:int^2^10)
|
|
|
|
let
|
2012-07-16 18:49:08 +02:00
|
|
|
o = [ a with [a[2][1]] = (a[2][0] + 1)^2 ]
|
2011-07-21 11:19:07 +02:00
|
|
|
tel
|
|
|
|
|
|
|
|
node g() returns (o:int^2^10^3^4)
|
|
|
|
let
|
|
|
|
o = map<<3,4>> plus_tab (2^2^10^3^4);
|
2012-07-16 18:49:08 +02:00
|
|
|
tel
|
|
|
|
|
|
|
|
node main() returns (o:int^2^10^3)
|
|
|
|
var i:int;t:int^2^10^3^4;
|
|
|
|
let
|
|
|
|
i = 0 fby if i = 4 then 0 else i + 1;
|
|
|
|
o = t[>i<];
|
|
|
|
t = map<<3,4>> plus_tab ((g()) fby t)
|
|
|
|
tel
|
|
|
|
|