%
% Copyright (C) 1988 by Bobo Leffler. All rights reserved.
% This program is provided for unrestricted use, provided that this
% copyright message is preserved. There is no warranty, and no author
% or distributer accepts responsibility for any damage caused by this
% program.
%
systemdict begin
/bubblesort { % array => array (sort array with bubble sort)
10 dict begin
/a exch def
a length 2 sub -1 -1 { % for j=n-2 step -1 until 0 do
0 1 3 -1 roll { % for i=0 step 1 until j do
/i exch def
a i 1 add get a i get lt { % if a[i+1] < a[i] then
a i get % a[i]
a i 1 add get a i 3 -1 roll put % a[i] = a[i+1]
a i 1 add 3 -1 roll put % a[i+1] = a[i]
} if
} for
} for
a
end
} def
end % systemdict