Algol 68 - ACM Digital Library

132m)n)o)p)q)r)s)t)u)van Wijngaarden, et el.opt+, %, over~=(L inta, b)L int:ifb~L 0then L int q : = L O, r : = abs a;while(r:= r - abs b) z L 0 do q := q + L 1 od;(a< L O^b>_L Ov a>_L O^ b< L O[ -qlq)li;op ~+x, +,, %x, %,, mod~=(L lnta, b)L inl:(intr=a-a : bxb; r< O] r +absb] r) ;op / = (L int a, b) L real: L real (a) / L real(b);opt t,**, up~=(L inta, intb) L int:(b >_O I L intp:= L l; tobdop :=pxaod; p);op leng = (Lint a) long Lint : c the long L integral value lengttzenedfrom {2.1.3.1.e} the value of 'a' c ;op shorten = (long Llnt a) Lint : c the L integral value, if it exists,which can be lengthened to {2.1.3.1.e} the value of 'a' c ;op odd = (L int a) bool : abs a +x I, 2 = L 1;op sign = (Lint a) int :(a> L OI ll: a < L OI -110);op¢1, +x, +,, i*=(L inta, b)L compl: (a,b);m)n)o)P)q)r)s)ALGOL 68 Revised Report 133Op / = (L real a, b) L real : c the value of 'a' divided by {2.1.3. l.e} thatof 'b' c ;op lang = (L real a) long L real : c the long L real value lengthenedfrom {2.1.3.1.e} the value of 'a' c ;op shorten = (long L real a) L real : c if abs a a do j : = j - L 1 od;Jend;op ~:.L, +x, +,, i~ = (IL real a, b) II, compl : (a, b) ;10.2.3.5. Operations on arithmetic operands10.2.3.4. Operations on real operandsa) I op ~