Arithmetic/Integer: Difference between revisions

Content added Content deleted

Inline

@@ Line 161: / Line 161: @@
     Remainder:  ${a % b}$\n`
  }
+=={{header|Factor}}==
+  "a=" "b=" [ write readln string>number ] bi@
+  {
+      [ + "sum: " write . ]
+      [ - "difference: " write . ]
+      [ * "product: " write . ]
+      [ /i "ingeger quotient: " write . ]
+      [ rem "remainder: " write . ]
+      [ mod "modulo: " write . ]
+      [ max "maximum: " write . ]
+      [ min "minimum: " write . ]
+      [ gcd "gcd: " write . drop ]
+      [ lcm "lcm: " write . ]
+  } 2cleave
+output:
+  a=8
+  b=12
+  sum: 20
+  difference: -4
+  product: 96
+  ingeger quotient: 0
+  remainder: 8
+  modulo: 8
+  maximum: 12
+  minimum: 8
+  gcd: 4
+  lcm: 24
 =={{header|Forth}}==