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 / t9.eul < prev    next >
Text File  |  2001-06-06  |  473b  |  41 lines
  1. begin new p; new i; label L;
  2. L:
  3. p<-'formal x;
  4.     begin
  5.     out "isn x";
  6.     out isn x;
  7.     out "isb x";
  8.     out isb x;
  9.     out "isr x";
  10.     out isr x;
  11.     out "isl x";
  12.     out isl x;
  13.     out "isli x";
  14.     out isli x;
  15.     out "isy x";
  16.     out isy x;
  17.     out "isp x";
  18.     out isp x;
  19.     out "isu x";
  20.     out isu x;
  21.     undef
  22.     end';
  23. out "x<-1;";
  24. p(1);
  25. out "x<-true;";
  26. p(true);
  27. out "x<-@i;";
  28. p(@i);
  29. out "x<-L;";
  30. p(L);
  31. out "x<-();";
  32. p(());
  33. out "x<-symbol;";
  34. p("A");
  35. out "x<-'1';";
  36. p('1');
  37. out "x<-undef;";
  38. p(undef);
  39. out "done"
  40. end
  41.