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 / t4.eul < prev    next >
Text File  |  2001-06-06  |  173b  |  9 lines
  1. begin new p; new a; new i;
  2.  p <- 'formal x; formal k;
  3.     begin k <- k+1; out x end';
  4.  i <- 1;
  5.  a <- (4,9,16);
  6.  p(a[i],@i); p('a[i]',@i); out i
  7.  (* should write: 4 16 3 *)
  8. end
  9.