zettacode 0.1.0 → 0.1.1

data/zettacode.files/arithmetic.integer/autohotkey.txt

@@ -1,20 +1,20 @@
-T qu u  0 f b u      f f  u  f . T  f          f  f  ().
-Gu, Add, Ed, v, 5
-Gu, A, E, b, -3
-Gu, A, Bu, Dfu, Cu
-Gu, S
-Ru
+The quotient rounds towards 0 if both inputs are integers or towards negative infinity if either input is floating point. The sign of the remainder is always the same as the sign of the first parameter (dividend).
+Gui, Add, Edit, va, 5
+Gui, Add, Edit, vb, -3
+Gui, Add, Button, Default, Compute
+Gui, Show
+Return
 
-BuCu:
-  Gu, Sub
-  MB,%
-  (J`"`"
-    "+" b " = " +b
-    "-" b " = " -b
-    "*" b " = " *b
-    "" b " = " b "  " M(,b)
-    "**" b " = " **b
+ButtonCompute:
+  Gui, Submit
+  MsgBox,%
+  (Join`s"`n"
+   a "+" b " = " a+b
+   a "-" b " = " a-b
+   a "*" b " = " a*b
+   a "//" b " = " a//b " remainder " Mod(a,b)
+   a "**" b " = " a**b
   )
- fu
-GuC:
-  EA
+; fallthrough
+GuiClose:
+  ExitApp

data/zettacode.files/arithmetic.integer/avail.txt

@@ -1,13 +1,13 @@
-Mod "mc dmo_,_"  
+Method "arithmetic demo_,_" is 
 [
-     : ,
-    b : 
+    a : integer,
+    b : integer
 |
-    P: “ + b”
-    P: “ - b”
-    P: “ × b”    * b
-    P: “ ÷ b”     b, u   f
-    P: “  b”   c c u
-    P: “ ^ b”
-]
+    Print: “a + b”;
+    Print: “a - b”;
+    Print: “a × b”; // or a * b
+    Print: “a ÷ b”; // or a / b, rounds toward negative infinity
+    Print: “a mod b”; // sign matches second argument
+    Print: “a ^ b”;
+];
 

data/zettacode.files/arithmetic.integer/awk.txt

@@ -1,12 +1,12 @@
-^[ \]*-?[0-9]+[ \]+-?[0-9]+[ \]*$ {
-	 ":", $1 + $2
-	 "ub:", $1 - $2
-	 "u:", $1 * $2
-	 ":", ($1  $2) # uc  z
-	 ":", $1 % $2      #    f 
-	 ":", $1 ^ $2
-	 }
+/^[ \t]*-?[0-9]+[ \t]+-?[0-9]+[ \t]*$/ {
+	print "add:", $1 + $2
+	print "sub:", $1 - $2
+	print "mul:", $1 * $2
+	print "div:", int($1 / $2) # truncates toward zero
+	print "mod:", $1 % $2      # same sign as first operand
+	print "exp:", $1 ^ $2
+	exit }
 
-F   uu, A u c  C.
+For division and modulus, Awk should act like C.
 
-'''E' :''' W [[]]  [[]], c$1 ** $2c c  c$1 ^ $2c. W [[]], c$1 ** $2c    . N  c**c, bu  u    c^c. G' u , ''"T POSIX   cf  u f `^' f . F u b,   u  `**' ."''
+'''Exponentiation's note:''' With [[nawk]] or [[gawk]], <code>$1 ** $2</code> acts like <code>$1 ^ $2</code>. With [[mawk]], <code>$1 ** $2</code> is a syntax error. Nawk allows <code>**</code>, but its manual page only has <code>^</code>. Gawk's manual warns, ''"The POSIX standard only specifies the use of `^' for exponentiation. For maximum portability, do not use the `**' operator."''

data/zettacode.files/arithmetic.integer/basic.txt

@@ -1,56 +1,56 @@
-==={{|Af BASIC}}===
-S c  [[#C_BASIC|C BASIC]]
-==={{|BC}}===
-' AmcI
-DECLARE %, b%
-INPUT "E  A: ", %
-INPUT "E  B: ", b%
+==={{header|Applesoft BASIC}}===
+Same code as [[#Commodore_BASIC|Commodore BASIC]]
+==={{header|BaCon}}===
+' Arthimetic/Integer
+DECLARE a%, b%
+INPUT "Enter integer A: ", a%
+INPUT "Enter integer B: ", b%
 PRINT
 
-PRINT %, " + ", b%, "      ", % + b%
-PRINT %, " - ", b%, "      ", % - b%
-PRINT %, " * ", b%, "      ", % * b%
-PRINT %, "  ", b%, "      ", %  b%, ", uc  z"
-PRINT "MOD(", %, ", ", b%, ")  ", MOD(%, b%), ",    f "
-PRINT "POW(", %, ", ", b%, ")  ", INT(POW(%, b%))
+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%))
 
-==={{|C BASIC}}===
-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%
+==={{header|Commodore BASIC}}===
+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%
 
-==={{|Tu BASIC}}===
+==={{header|True BASIC}}===
 
-! RC: I Ac
-! Tu BASIC 6.007
-! T f BC .
-PROGRAM I_Ac
-	INPUT PROMPT "E  A: ": 
-	INPUT PROMPT "E  B: ": 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 " + "b"  "+b
-	PRINT " - "b"  "-b
-	PRINT " * "b"  "*b
-	PRINT "  "b"  "INT(b)
-	PRINT "MOD("", "b")  " MOD(,b)
-	PRINT "POW("", "b")  "INT(^b)
-	GET KEY 
+	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
 
-==={{|QBc}}===
-{{ |QucBc|4.5}}
-fuco m(!, b!)
-	  + b
-	  - b
-	  * b
-	   b
-	   b
- fuc
-Tuc : 0
+==={{header|QBasic}}===
+{{works with|QuickBasic|4.5}}
+function math(a!, b!)
+	print a + b
+	print a - b
+	print a * b
+	print a / b
+	print a mod b
+end function
+Truncate towards: 0
 
-R  c: f 
+Remainder sign matches: first operand

data/zettacode.files/arithmetic.integer/basic256.txt

@@ -1,11 +1,11 @@
 
-u "  ub ?", 
-u "  ub ?", b
+input "enter a number ?", a
+input "enter another number ?", b
 
- " " +  + " + " + b + " = " + ( + b)
- "ubc " +  + " - " + b + " = " + ( - b)
- "uc " +  + " * " + b + " = " + ( * b)
- "  " +  + " \ " + b + " = " + ( \ b)
- "  u " +  + " % " + b + " = " + ( % b)
- " " +  + " ^ " + b + " = " + ( ^ b)
+print "addition " + a + " + " + b + " = " + (a + b)
+print "subtraction " + a + " - " + b + " = " + (a - b)
+print "multiplication " + a + " * " + b + " = " + (a * b)
+print "integer division " + a + " \ " + b + " = " + (a \ b)
+print "remainder or modulo " + a + " % " + b + " = " + (a % b)
+print "power " + a + " ^ " + b + " = " + (a ^ b)
 

data/zettacode.files/arithmetic.integer/batch_file.txt

@@ -1,7 +1,7 @@
-{{ |W 7|  , ' cc  }}
+{{works with|Windows 7| or later, haven't checked earlier versions}}
 
-  qu=
-  u=%qu%
-c %u%
-u
+set /p equation=
+set /a result=%equation%
+echo %result%
+pause
 

data/zettacode.files/arithmetic.integer/bbc_basic.txt

@@ -1,9 +1,9 @@
-      INPUT "E  f : " f%
-      INPUT "E  c : " c%
+      INPUT "Enter the first integer: " first%
+      INPUT "Enter the second integer: " second%
       
-      PRINT "T u  "  f% + c%
-      PRINT "T ffc  "  f% - c%
-      PRINT "T uc  "  f% * c%
-      PRINT "T  qu  "  f% DIV c% " (u  0)"
-      PRINT "T   "  f% MOD c% " ( c f )"
-      PRINT "T f     f  c  "  f% ^ c%
+      PRINT "The sum is " ; first% + second%
+      PRINT "The difference is " ; first% - second%
+      PRINT "The product is " ; first% * second%
+      PRINT "The integer quotient is " ; first% DIV second% " (rounds towards 0)"
+      PRINT "The remainder is " ; first% MOD second% " (sign matches first operand)"
+      PRINT "The first raised to the power of the second is " ; first% ^ second%

data/zettacode.files/arithmetic.integer/bc.txt

@@ -1,8 +1,8 @@
-df f(, b) {
-	": "  + b
-	"ub: "  - b
-	"u: "  * b
-	": "   b  * uc  z *
-	": "  % b  *    f  *
-	": "  ^ b
+define f(a, b) {
+	"add: "; a + b
+	"sub: "; a - b
+	"mul: "; a * b
+	"div: "; a / b  /* truncates toward zero */
+	"mod: "; a % b  /* same sign as first operand */
+	"pow: "; a ^ b
 }

data/zettacode.files/arithmetic.integer/befunge.txt

@@ -1,6 +1,6 @@
-mm00"=A",,:."=B ",,,00.55+,v
-        ,+55.+00:,,,,"A+B="
-        "=B-A",,,,:00-.55+,
-        ,+55.*00:,,,,"A*B="
-        "=BA",,,,:00.55+,
-         @,+55.%00,,,,"A%B="
+&&00p"=A",,:."=B ",,,00g.55+,v
+        v,+55.+g00:,,,,"A+B="<
+        >"=B-A",,,,:00g-.55+,v
+        v,+55.*g00:,,,,"A*B="<
+        >"=B/A",,,,:00g/.55+,v
+         @,+55.%g00,,,,"A%B="<

data/zettacode.files/arithmetic.integer/bqn.txt

@@ -1,17 +1,17 @@
-•Ou "E ub 1: "
- ← •BQN •GL @
-•Ou "E ub 2: "
-b ← •BQN •GL @
+•Out "Enter number 1: "
+a ← •BQN •GetLine @
+•Out "Enter number 2: "
+b ← •BQN •GetLine @
 
-•S  + b
-•S  - b
-•S  × b
-•S  ÷ b
-•S b | 
-•S  ⋆ b
-E ub 1:
+•Show a + b
+•Show a - b
+•Show a × b
+•Show a ÷ b
+•Show b | a
+•Show a ⋆ b
+Enter number 1:
 12
-E ub 2:
+Enter number 2:
 2
 14
 10

data/zettacode.files/arithmetic.integer/bracmat.txt

@@ -1,19 +1,19 @@
-T  u b   -. Fu, c$(!.!)*!+$(!.!):!c f   c!c  c!c, c!:~0c.
-  ( 
-  =     u$"E   ub,  b c:"
-       ':(~#?_~#?|qu:?)
-    |     u
-        $ "Yu u    ub! E \"qu\" f u '     ."
-       !
+The remainder returned by mod is non-negative. Furthermore, <code>div$(!a.!d)*!d+mod$(!a.!d):!a</code> for all integer <code>!a</code> and <code>!d</code>, <code>!d:~0</code>.
+  ( enter
+  =     put$"Enter two integer numbers, separated by space:"
+      &amp; get':(~/#?k_~/#?m|quit:?k)
+    |     out
+        $ "You must enter two integer numbers! Enter \"quit\" if you don't know how to do that."
+      &amp; !enter
   )
- !
- !:~qu
- u$("Yu " !  ! ". N :")
- u$("Su:" !+!)
- u$("Dffc:" !+-1*!)
- u$("Puc:" !*!)
- u$("I :" $(!.!))
- u$("R:" $(!.!))
- u$("E:" !^!)
- 
+&amp; !enter
+&amp; !k:~quit
+&amp; out$("You entered" !k and !m ". Now look:")
+&amp; out$("Sum:" !k+!m)
+&amp; out$("Difference:" !k+-1*!m)
+&amp; out$("Product:" !k*!m)
+&amp; out$("Integer division:" div$(!k.!m))
+&amp; out$("Remainder:" mod$(!k.!m))
+&amp; out$("Exponentiation:" !k^!m)
+&amp; done;
 

data/zettacode.files/arithmetic.integer/brat.txt

@@ -1,8 +1,8 @@
-I b  c VBSc .
- = k("F umb: ").o_
- = ("Sc ub: ")._
+Inspired by the second VBScript version.
+x = ask("First number: ").to_i
+y = ask("Second number: ").to_i
 
-#D u f 
-#R u  f   
-[:+ :- :* : :% :^].c {  |
-   "#{} #{} #{} = #{.c_ , }"
+#Division uses floating point
+#Remainder uses sign of right hand side
+[:+ :- :* :/ :% :^].each { op |
+  p "#{x} #{op} #{y} = #{x.call_method op, y}"

data/zettacode.files/arithmetic.integer/c++.txt

@@ -1,12 +1,12 @@
-#cud om
+#include <iostream>
 
- ()
+int main()
 {
-   , b
-  ::c    b
-  ::cu  "+b = "  +b  "\"
-  ::cu  "-b = "  -b  "\"
-  ::cu  "*b = "  *b  "\"
-  ::cu  "b = "  b  ",  "  %b  "\"
-  u 0
+  int a, b;
+  std::cin >> a >> b;
+  std::cout << "a+b = " << a+b << "\n";
+  std::cout << "a-b = " << a-b << "\n";
+  std::cout << "a*b = " << a*b << "\n";
+  std::cout << "a/b = " << a/b << ", remainder " << a%b << "\n";
+  return 0;
 }

data/zettacode.files/arithmetic.integer/c.txt

@@ -1,17 +1,17 @@
-#cud do.
-#cu b.
+#include <stdio.h>
+#include <stdlib.h>
 
- ( c, c *[])
+int main(int argc, char *argv[])
 {
-   , b
-  f (c  3) (1)
-  b = ([--c])
-  f (b == 0) (2)
-   = ([--c])
-  f("+b = %\", +b)
-  f("-b = %\", -b)
-  f("*b = %\", *b)
-  f("b = %\", b) * uc  0 ( C99) *
-  f("%%b = %\", %b) *    f  ( C99) *
-  u 0
+  int a, b;
+  if (argc < 3) exit(1);
+  b = atoi(argv[--argc]);
+  if (b == 0) exit(2);
+  a = atoi(argv[--argc]);
+  printf("a+b = %d\n", a+b);
+  printf("a-b = %d\n", a-b);
+  printf("a*b = %d\n", a*b);
+  printf("a/b = %d\n", a/b); /* truncates towards 0 (in C99) */
+  printf("a%%b = %d\n", a%b); /* same sign as first operand (in C99) */
+  return 0;
 }

data/zettacode.files/arithmetic.integer/c_sharp|c#.txt

@@ -1,17 +1,17 @@
-u Sm
+using System;
 
-c P
+class Program
 {
-    c  M([] )
+    static void Main(string[] args)
     {
-          = C.TI32([0])
-         b = C.TI32([1])
+        int a = Convert.ToInt32(args[0]);
+        int b = Convert.ToInt32(args[1]);
 
-        C.WL("{0} + {1} = {2}", , b,  + b)
-        C.WL("{0} - {1} = {2}", , b,  - b)
-        C.WL("{0} * {1} = {2}", , b,  * b)
-        C.WL("{0}  {1} = {2}", , b,   b)  uc  0
-        C.WL("{0} % {1} = {2}", , b,  % b)  c  f f 
-        C.WL("{0}    f {1} = {2}", , b, M.P(, b))
+        Console.WriteLine("{0} + {1} = {2}", a, b, a + b);
+        Console.WriteLine("{0} - {1} = {2}", a, b, a - b);
+        Console.WriteLine("{0} * {1} = {2}", a, b, a * b);
+        Console.WriteLine("{0} / {1} = {2}", a, b, a / b); // truncates towards 0
+        Console.WriteLine("{0} % {1} = {2}", a, b, a % b); // matches sign of first operand
+        Console.WriteLine("{0} to the power of {1} = {2}", a, b, Math.Pow(a, b));
     }
 }

data/zettacode.files/arithmetic.integer/chef.txt

@@ -1,37 +1,37 @@
 
-Numb Sou.
+Number Soup.
 
-O   u.
+Only reads single values.
 
-I.
-1  Nub
-3  W
-5  Su
+Ingredients.
+1 g Numbers
+3 g Water
+5 g Soup
 
-M.
-T Nub f f.
-T Su f f.
-Pu Nub  1  b.
-A Su   1  b.
-Pu c f  1  b  1 b .
-C 1  b.
-Pu Nub  1  b.
-R Su f 1  b.
-Pu c f  1  b  2 b .
-C 1  b.
-Pu Nub  1  b.
-Cb Su  1  b.
-Pu c f  1  b  3 b .
-C 1  b.
-Pu Nub  1  b.
-D Su  1  b.
-Pu c f  1  b  4 b .
-C 1  b.
-Pu W  1  b.
-Vb  Su.
-Cb Nub  1  b.
-Vb  Su u b.
-Pu c f  1  b  5 b .
-C 1  b.
+Method.
+Take Numbers from refrigerator.
+Take Soup from refrigerator.
+Put Numbers into 1st mixing bowl.
+Add Soup into the 1st mixing bowl.
+Pour contents of the 1st mixing bowl into 1st baking dish.
+Clean 1st mixing bowl.
+Put Numbers into 1st mixing bowl.
+Remove Soup from 1st mixing bowl.
+Pour contents of the 1st mixing bowl into 2nd baking dish.
+Clean 1st mixing bowl.
+Put Numbers into 1st mixing bowl.
+Combine Soup into 1st mixing bowl.
+Pour contents of the 1st mixing bowl into 3rd baking dish.
+Clean 1st mixing bowl.
+Put Numbers into 1st mixing bowl.
+Divide Soup into 1st mixing bowl.
+Pour contents of the 1st mixing bowl into 4th baking dish.
+Clean 1st mixing bowl.
+Put Water into 1st mixing bowl.
+Verb the Soup.
+Combine Numbers into 1st mixing bowl.
+Verb the Soup until verbed.
+Pour contents of the 1st mixing bowl into 5th baking dish.
+Clean 1st mixing bowl.
 
-S 5.
+Serves 5.

data/zettacode.files/arithmetic.integer/clipper.txt

@@ -1,11 +1,11 @@
-ocdu T( , b )
-   ? "+b",  + b
-   ? "-b",  - b
-   ? "*b",  * b
-    T qu ' ,   u  I() fuc, c uc  .
-   ? "b", I(   b )
-    R:
-   ? "%b",  % b
-    E    b c 
-   ? "**b",  ** b
-   u
+procedure Test( a, b )
+   ? "a+b", a + b
+   ? "a-b", a - b
+   ? "a*b", a * b
+   // The quotient isn't integer, so we use the Int() function, which truncates it downward.
+   ? "a/b", Int( a / b )
+   // Remainder:
+   ? "a%b", a % b
+   // Exponentiation is also a base arithmetic operation
+   ? "a**b", a ** b
+   return

data/zettacode.files/arithmetic.integer/clojure.txt

@@ -1,18 +1,18 @@
-(df mfuc []
-  ( "E   ")
-  ( [ (),  ()]
-    (q [ '(+ - *  M )]
-      ( [ (   )]
-	(f "%=%\"  ( ))))))
+(defn myfunc []
+  (println "Enter x and y")
+  (let [x (read), y (read)]
+    (doseq [op '(+ - * / Math/pow rem)]
+      (let [exp (list op x y)]
+	(printf "%s=%s\n" exp (eval exp))))))
 
-u= (fuc)
-E   
+user=> (myfunc)
+Enter x and y
 3
 6
 (+ 3 6)=9
 (- 3 6)=-3
 (* 3 6)=18
-( 3 6)=12
-(M 3 6)=729.0
-( 3 6)=3
-
+(/ 3 6)=1/2
+(Math/pow 3 6)=729.0
+(rem 3 6)=3
+nil