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 / t8.eul < prev    next >
Text File  |  2001-06-06  |  807b  |  54 lines
  1. begin label L; new i; new pr;
  2. out "1 + 2";
  3. out 1 + 2;
  4. out "1 - 2";
  5. out 1 - 2;
  6. out "1 * 2";
  7. out 1 * 2;
  8. out "1 / 2";
  9. out 1 / 2;
  10. out "2 ** 2";
  11. out 2 ** 2;
  12. out "1 max 2";
  13. out 1 max 2;
  14. out "1 min 2";
  15. out 1 min 2;
  16. out "i<-((A)&(B));out length i";
  17. i<-(("A")&("B"));out length i;
  18. i <- 1;
  19. L:out "i<-";
  20.   out i;
  21.   out "i = 2";
  22.   out i = 2;
  23.   out "i ~= 2";
  24.   out i ~= 2;
  25.   out "i < 2";
  26.   out i < 2;
  27.   out "i <= 2";
  28.   out i <= 2;
  29.   out "i > 2";
  30.   out i > 2;
  31.   out "i >= 2";
  32.   out i >= 2;
  33.   i <- i + 1;
  34.   if i <= 3 then goto L else undef;
  35.   out "~true";
  36.   out ~true;
  37.   out "~false";
  38.   out ~false;
  39.   pr<-'formal p; formal q;
  40.     begin
  41.     out "p<-"; out p;
  42.     out "q<-"; out q;
  43.     out "p and q";
  44.     out p and q;
  45.     out "p or q";
  46.     out p or q
  47.     end';
  48.   pr(false,false);
  49.   pr(true,false);
  50.   pr(false,true);
  51.   pr(true,true);
  52. out "done"
  53. end
  54.