ipl/packs/euler/t7.eul


1
2
3
4
5
6
7
8
9
10
11
12

begin new x; new s;
 x<-1;
 out x;
 s <- (1,2,3);
 out s[1]; out s[2]; out s[3];
 s[1] <- s[1] + 1;
 out s[1]; out s[2]; out s[3];
 x<-1;
 out s[x];
 out s[x+1];
 out s[x+2]
end