zettacode.files/arithmetic.integer/xpl0.txt in zettacode-0.1.0 vs zettacode.files/arithmetic.integer/xpl0.txt in zettacode-0.1.1

- old
+ new

@@ -1,10 +1,10 @@ -cud c:\c\cod - A, B -[A:= II(0) - B:= II(0) -IOu(0, A+B) CLf(0) -IOu(0, A-B) CLf(0) -IOu(0, A*B) CLf(0) -IOu(0, AB) CLf(0) \uc z -IOu(0, (0)) CLf(0) \' c f (A) +include c:\cxpl\codes; +int A, B; +[A:= IntIn(0); + B:= IntIn(0); +IntOut(0, A+B); CrLf(0); +IntOut(0, A-B); CrLf(0); +IntOut(0, A*B); CrLf(0); +IntOut(0, A/B); CrLf(0); \truncates toward zero +IntOut(0, rem(0)); CrLf(0); \remainder's sign matches first operand (A) ]