GEMini Atari/GEMini_Atari_CD-ROM_Walnut_Creek_December_1993.iso/files/language/isetl/bignum.t

Text File | 1987-08-20 | 321 b | 13 lines

f := func(a,b); if b>0 then return a mod b; end; end;
g := func(a,b); if b>0 then return a - a div b * b - a mod b; end;end;
for x,y in [5,9990,12000,123456789] do
   [a,b] := [x,y];
   print [a mod b >= 0, -a mod b >= 0,
          g(a,b)=0, g(-a,b)=0, a div -b = -(a div b),
          [a,b], a div b, a mod b];
end;