A-M baby

Task/Arithmetic-Integer/Factor/arithmetic-integer-1.factor

@@ -0,0 +1,17 @@
+USING: combinators io kernel math math.functions math.order
+math.parser prettyprint ;
+
+"a=" "b=" [ write readln string>number ] bi@
+{
+    [ + "sum: " write . ]
+    [ - "difference: " write . ]
+    [ * "product: " write . ]
+    [ / "quotient: " write . ]
+    [ /i "integer quotient: " write . ]
+    [ rem "remainder: " write . ]
+    [ mod "modulo: " write . ]
+    [ max "maximum: " write . ]
+    [ min "minimum: " write . ]
+    [ gcd "gcd: " write . drop ]
+    [ lcm "lcm: " write . ]
+} 2cleave

Task/Arithmetic-Integer/Factor/arithmetic-integer-2.factor

@@ -0,0 +1,13 @@
+a=8
+b=12
+sum: 20
+difference: -4
+product: 96
+quotient: 2/3
+integer quotient: 0
+remainder: 8
+modulo: 8
+maximum: 12
+minimum: 8
+gcd: 4
+lcm: 24