home *** CD-ROM | disk | FTP | other *** search
/ ftp.cs.arizona.edu / ftp.cs.arizona.edu.tar / ftp.cs.arizona.edu / icon / historic / v941.tgz / icon.v941src.tar / icon.v941src / ipl / packs / euler / t7.eul < prev    next >
Text File  |  2001-06-06  |  178b  |  13 lines
  1. begin new x; new s;
  2.  x<-1;
  3.  out x;
  4.  s <- (1,2,3);
  5.  out s[1]; out s[2]; out s[3];
  6.  s[1] <- s[1] + 1;
  7.  out s[1]; out s[2]; out s[3];
  8.  x<-1;
  9.  out s[x];
  10.  out s[x+1];
  11.  out s[x+2]
  12. end
  13.