September Morn Update

Task/Arithmetic-Integer/BASIC/arithmetic-integer-1.basic

@@ -1,7 +1,12 @@
-function math(a!, b!)
-	print a + b
-	print a - b
-	print a * b
-	print a / b
-	print a mod b
-end function
+' Arthimetic/Integer
+DECLARE a%, b%
+INPUT "Enter integer A: ", a%
+INPUT "Enter integer B: ", b%
+PRINT
+
+PRINT a%, " + ", b%, "     is ", a% + b%
+PRINT a%, " - ", b%, "     is ", a% - b%
+PRINT a%, " * ", b%, "     is ", a% * b%
+PRINT a%, " / ", b%, "     is ", a% / b%, ", trucation toward zero"
+PRINT "MOD(", a%, ", ", b%, ") is ", MOD(a%, b%), ", same sign as first operand"
+PRINT "POW(", a%, ", ", b%, ") is ", INT(POW(a%, b%))

Task/Arithmetic-Integer/BASIC/arithmetic-integer-2.basic

@@ -1,12 +1,8 @@
-' Arthimetic/Integer
-DECLARE a%, b%
-INPUT "Enter integer A: ", a%
-INPUT "Enter integer B: ", b%
-PRINT
-
-PRINT a%, " + ", b%, "     is ", a% + b%
-PRINT a%, " - ", b%, "     is ", a% - b%
-PRINT a%, " * ", b%, "     is ", a% * b%
-PRINT a%, " / ", b%, "     is ", a% / b%, ", trucation toward zero"
-PRINT "MOD(", a%, ", ", b%, ") is ", MOD(a%, b%), ", same sign as first operand"
-PRINT "POW(", a%, ", ", b%, ") is ", INT(POW(a%, b%))
+10 INPUT "ENTER A NUMBER"; A%
+20 INPUT "ENTER ANOTHER NUMBER"; B%
+30 PRINT "ADDITION:";A%;"+";B%;"=";A%+B%
+40 PRINT "SUBTRACTION:";A%;"-";B%;"=";A%-B%
+50 PRINT "MULTIPLICATION:";A%;"*";B%;"=";A%*B%
+60 PRINT "INTEGER DIVISION:";A%;"/";B%;"=";INT(A%/B%)
+70 PRINT "REMAINDER OR MODULO:";A%;"%";B%;"=";A%-INT(A%/B%)*B%
+80 PRINT "POWER:";A%;"^";B%;"=";A%^B%

Task/Arithmetic-Integer/BASIC/arithmetic-integer-3.basic

@@ -1,8 +1,15 @@
-10 INPUT "ENTER A NUMBER"; A%
-20 INPUT "ENTER ANOTHER NUMBER"; B%
-30 PRINT "ADDITION:";A%;"+";B%;"=";A%+B%
-40 PRINT "SUBTRACTION:";A%;"-";B%;"=";A%-B%
-50 PRINT "MULTIPLICATION:";A%;"*";B%;"=";A%*B%
-60 PRINT "INTEGER DIVISION:";A%;"/";B%;"=";INT(A%/B%)
-70 PRINT "REMAINDER OR MODULO:";A%;"%";B%;"=";A%-INT(A%/B%)*B%
-80 PRINT "POWER:";A%;"^";B%;"=";A%^B%
+! RosettaCode: Integer Arithmetic
+! True BASIC v6.007
+! Translated from BaCon example.
+PROGRAM Integer_Arithmetic
+	INPUT PROMPT "Enter integer A: ": a
+	INPUT PROMPT "Enter integer B: ": b
+	PRINT
+	PRINT a;" + ";b;" is ";a+b
+	PRINT a;" - ";b;" is ";a-b
+	PRINT a;" * ";b;" is ";a*b
+	PRINT a;" / ";b;" is ";INT(a/b);
+	PRINT "MOD(";a;", ";b;") is "; MOD(a,b)
+	PRINT "POW(";a;", ";b;") is ";INT(a^b)
+	GET KEY done
+END

Task/Arithmetic-Integer/BASIC/arithmetic-integer-4.basic

@@ -1,15 +1,7 @@
-! RosettaCode: Integer Arithmetic
-! True BASIC v6.007
-! Translated from BaCon example.
-PROGRAM Integer_Arithmetic
-	INPUT PROMPT "Enter integer A: ": a
-	INPUT PROMPT "Enter integer B: ": b
-	PRINT
-	PRINT a;" + ";b;" is ";a+b
-	PRINT a;" - ";b;" is ";a-b
-	PRINT a;" * ";b;" is ";a*b
-	PRINT a;" / ";b;" is ";INT(a/b);
-	PRINT "MOD(";a;", ";b;") is "; MOD(a,b)
-	PRINT "POW(";a;", ";b;") is ";INT(a^b)
-	GET KEY done
-END
+function math(a!, b!)
+	print a + b
+	print a - b
+	print a * b
+	print a / b
+	print a mod b
+end function

Task/Arithmetic-Integer/Elena/arithmetic-integer.elena

@@ -1,14 +1,14 @@
-import system'math.
-import extensions.
+import system'math;
+import extensions;
 
-public program
-[
-    var a := console readLineTo(Integer new).
-    var b := console readLineTo(Integer new).
+public program()
+{
+    var a := console.loadLineTo(new Integer());
+    var b := console.loadLineTo(new Integer());
 
-    console printLine(a," + ",b," = ",a + b).
-    console printLine(a," - ",b," = ",a - b).
-    console printLine(a," * ",b," = ",a * b).
-    console printLine(a," / ",b," = ",a / b).   // truncates towards 0
-    console printLine(a," % ",b," = ",a mod:b). // matches sign of first operand
-]
+    console.printLine(a," + ",b," = ",a + b);
+    console.printLine(a," - ",b," = ",a - b);
+    console.printLine(a," * ",b," = ",a * b);
+    console.printLine(a," / ",b," = ",a / b);   // truncates towards 0
+    console.printLine(a," % ",b," = ",a.mod:b); // matches sign of first operand
+}

Task/Arithmetic-Integer/Nial/arithmetic-integer-1.nial

@@ -0,0 +1 @@
+     arithmetic is OP A B{[first,last,+,-,*,quotient,mod,power] A B}

Task/Arithmetic-Integer/Nial/arithmetic-integer-2.nial

@@ -0,0 +1,2 @@
+     -23 arithmetic 7
+-23 7 -16 -30 -161 -4 5 -3404825447

Task/Arithmetic-Integer/Nial/arithmetic-integer-3.nial

@@ -0,0 +1 @@
+A quotient B =f=  floor (A / B)

Task/Arithmetic-Integer/Robotic/arithmetic-integer.robotic

@@ -0,0 +1,11 @@
+input string "Enter number 1:"
+set "a" to "input"
+input string "Enter number 2:"
+set "b" to "input"
+
+[ "Sum: ('a' + 'b')"
+[ "Difference: ('a' - 'b')"
+[ "Product: ('a' * 'b')"
+[ "Integer Quotient: ('a' / 'b')"
+[ "Remainder: ('a' % 'b')"
+[ "Exponentiation: ('a'^'b')"