home *** CD-ROM | disk | FTP | other *** search
/ GEMini Atari / GEMini_Atari_CD-ROM_Walnut_Creek_December_1993.iso / files / language / isetl / bubble.t < prev    next >
Text File  |  1987-08-20  |  486b  |  21 lines
  1. program sort;
  2.     while list /= [] do
  3.     print "Enter tuple to sort";
  4.     read list;
  5.     print ["original list", list];
  6.     swap := { i:  i in [1..#list-1] | list(i) > list(i+1) };
  7.     while swap /= {} do
  8.         for i in swap do
  9.         [ list(i), list(i+1) ] := [ list(i+1), list(i) ];
  10.         end;
  11.         swap := { i:  i in [1..#list-1] | list(i) > list(i+1) };
  12.     end;
  13.     print ["sorted list", list];
  14.     end;
  15. end;
  16.  
  17. [20,19..1];
  18. ["this", "is", "a", "test", "to", "show", "that", "subtle", "is",
  19. "polymorphic"];
  20. [];
  21.