zettacode 0.1.0 → 0.1.2

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

@@ -0,0 +1,25 @@
+import parseopt, strutils
+ 
+var 
+  opt: OptParser = initOptParser()
+  str = opt.cmdLineRest.split
+  a: int = 0
+  b: int = 0
+ 
+try:
+  a = parseInt(str[0])
+  b = parseInt(str[1])
+except ValueError:
+  quit("Invalid params. Two integers are expected.")
+ 
+ 
+echo("a      : " & $a)
+echo("b      : " & $b)
+echo("a + b  : " & $(a+b))
+echo("a - b  : " & $(a-b))
+echo("a * b  : " & $(a*b))
+echo("a div b: " & $(a div b)) # div rounds towards zero
+echo("a mod b: " & $(a mod b)) # sign(a mod b)==sign(a) if sign(a)!=sign(b)
+echo("a ^ b  : " & $(a ^ b))
+
+Execute: Aritmint 4 5

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

@@ -0,0 +1,25 @@
+All Arithmetic in NSIS is handled by the [http://nsis.sourceforge.net/Docs/Chapter4.html#4.9.10.2 IntOp] instruction.  It is beyond the scope of this task to implement user input (a fairly involved task), so I will be providing hard-coded values simulating the user input, with the intention of later adding the user-input piece.
+Function Arithmetic
+	Push $0
+	Push $1
+	Push $2
+	StrCpy $0 21
+	StrCpy $1 -2
+	
+	IntOp $2 $0 + $1
+	DetailPrint "$0 + $1 = $2"
+	IntOp $2 $0 - $1
+	DetailPrint "$0 - $1 = $2"
+	IntOp $2 $0 * $1
+	DetailPrint "$0 * $1 = $2"
+	IntOp $2 $0 / $1
+	DetailPrint "$0 / $1 = $2"
+	DetailPrint "Rounding is toward negative infinity"
+	IntOp $2 $0 % $1
+	DetailPrint "$0 % $1 = $2"
+	DetailPrint "Sign of remainder matches the first number"
+	
+	Pop $2
+	Pop $1
+	Pop $0
+FunctionEnd

data/files.zettacode/arithmetic.integer/oberon-2.txt

@@ -0,0 +1,14 @@
+Oxford Oberon-2
+
+MODULE Arithmetic;
+IMPORT In, Out;
+VAR
+        x,y:INTEGER;
+BEGIN
+        Out.String("Give two numbers: ");In.Int(x);In.Int(y);
+        Out.String("x + y >");Out.Int(x + y,6);Out.Ln;
+        Out.String("x - y >");Out.Int(x - y,6);Out.Ln;
+        Out.String("x * y >");Out.Int(x * y,6);Out.Ln;
+        Out.String("x / y >");Out.Int(x DIV y,6);Out.Ln;
+        Out.String("x MOD y >");Out.Int(x MOD y,6);Out.Ln;
+END Arithmetic.

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

@@ -0,0 +1,17 @@
+bundle Default {
+  class Arithmetic {
+    function : Main(args : System.String[]) ~ Nil {
+      DoArithmetic();
+    }
+	
+    function : native : DoArithmetic() ~ Nil {
+      a := IO.Console->GetInstance()->ReadString()->ToInt();
+      b := IO.Console->GetInstance()->ReadString()->ToInt();
+  
+      IO.Console->GetInstance()->Print("a+b = ")->PrintLine(a+b);
+      IO.Console->GetInstance()->Print("a-b = ")->PrintLine(a-b);
+      IO.Console->GetInstance()->Print("a*b = ")->PrintLine(a*b);
+      IO.Console->GetInstance()->Print("a/b = ")->PrintLine(a/b);
+    }
+  }
+}

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

@@ -0,0 +1,9 @@
+let _ =
+  let a = read_int ()
+  and b = read_int () in
+
+  Printf.printf "a + b = %d\n" (a + b);
+  Printf.printf "a - b = %d\n" (a - b);
+  Printf.printf "a * b = %d\n" (a * b);
+  Printf.printf "a / b = %d\n" (a / b);    (* truncates towards 0 *)
+  Printf.printf "a mod b = %d\n" (a mod b) (* same sign as first operand *)

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

@@ -0,0 +1,9 @@
+
+: integers (a b -- )
+   "a + b ="   . a b + .cr
+   "a - b ="   . a b - .cr
+   "a * b ="   . a b * .cr
+   "a / b ="   . a b / .cr
+   "a mod b =" . a b mod .cr 
+   "a pow b =" . a b pow .cr
+;

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

@@ -0,0 +1,23 @@
+
+
+(define a 8)
+(define b 12)
+
+(print "(+ " a " " b ") => "    (+ a b))
+(print "(- " a " " b ") => "    (- a b))
+(print "(* " a " " b ") => "    (* a b))
+(print "(/ " a " " b ") => "    (/ a b))
+
+(print "(quotient " a " " b ") => "  (quot a b)) ; same as (quotient a b)
+(print "(remainder " a " " b ") => " (rem  a b)) ; same as (remainder a b)
+(print "(modulo " a " " b ") => "    (mod  a b)) ; same as (modulo a b)
+
+(print "(expt " a " " b ") => " (expt a b))
+(print "(gcd " a " " b ") => " (gcd a b))
+(print "(lcm " a " " b ") => " (lcm a b))
+
+; you can use more than two arguments for +,-,*,/ functions
+(print (+ 1 3 5 7 9))
+(print (- 1 3 5 7 9))
+(print (* 1 3 5 7 9)) ; same as (1*3*5*7*9)
+(print (/ 1 3 5 7 9)) ; same as (((1/3)/5)/7)/9

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

@@ -0,0 +1,44 @@
+
+# Most of this long script is mere presentation.
+# All you really need to do is push two integers onto the stack
+# and then execute add, sub, mul, idiv, or pow.
+
+$ClearScreen { # Using ANSI terminal control
+  `\e[2J\e[1;1H' print flush
+} bind def
+
+$Say { # string Say -
+  `\n' cat print flush
+} bind def
+
+$ShowPreamble {
+`To show how integer arithmetic in done in Onyx,' Say
+`we\'ll use two numbers of your choice, which' Say
+`we\'ll call A and B.\n' Say
+} bind def
+
+$Prompt { # stack: string --
+  stdout exch write pop flush
+} def
+
+$GetInt { # stack: name -- integer
+  dup cvs `Enter integer ' exch cat `: ' cat
+  Prompt stdin readline pop cvx eval def
+} bind def
+
+$Template { # arithmetic_operator_name label_string Template result_string
+  A cvs ` ' B cvs ` ' 5 ncat over cvs ` gives ' 3 ncat exch
+  A B dn cvx eval cvs `.' 3 ncat Say
+} bind def
+
+$ShowResults {
+  $add `Addition: ' Template
+  $sub `Subtraction: ' Template
+  $mul `Multiplication: ' Template
+  $idiv `Division: ' Template
+  `Note that the result of integer division is rounded toward zero.' Say
+  $pow `Exponentiation: ' Template
+  `Note that the result of raising to a negative power always gives a real number.' Say
+} bind def
+
+ClearScreen ShowPreamble $A GetInt $B GetInt ShowResults

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

@@ -0,0 +1,6 @@
+
+echo (a+b);  /* Sum */
+echo (a-b);  /* Difference */
+echo (a*b);  /* Product */
+echo (a/b);  /* Quotient */
+echo (a%b);  /* Modulus */

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

@@ -0,0 +1,19 @@
+declare
+  StdIn = {New class $ from Open.file Open.text end init(name:stdin)}
+
+  fun {ReadInt}
+     {String.toInt {StdIn getS($)}}
+  end
+
+  A = {ReadInt}
+  B = {ReadInt}
+in
+  {ForAll
+   ["A+B = "#A+B
+    "A-B = "#A-B
+    "A*B = "#A*B
+    "A/B = "#A div B  %% truncates towards 0
+    "remainder "#A mod B  %% has the same sign as A
+    "A^B = "#{Pow A B}
+   ]
+   System.showInfo}

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

@@ -0,0 +1,2 @@
+Use reflection to get all functions defined on numbers taking number and returning number.
+a=3 b=7 func:_bbf__number_number_number =>f.name.<b> '(' a b ')' ' => ' f(a b) nl

data/files.zettacode/arithmetic.integer/pari-gp.txt

@@ -0,0 +1,9 @@
+Integer division with <code>\</code> rounds to <math>-\infty</math>. There also exists the <code>\/</code> round-to-nearest (ties to <math>+\infty</math>) operator.  Ordinary division <code>/</code> does not round but returns rationals if given integers with a non-integral quotient.
+arith(a,b)={
+  print(a+b);
+  print(a-b);
+  print(a*b);
+  print(a\b);
+  print(a%b);
+  print(a^b);
+};

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

@@ -0,0 +1,14 @@
+program arithmetic(input, output)
+
+var
+ a, b: integer;
+
+begin
+ readln(a, b);
+ writeln('a+b = ', a+b);
+ writeln('a-b = ', a-b);
+ writeln('a*b = ', a*b);
+ writeln('a/b = ', a div b, ', remainder ', a mod b);
+ writeln('a^b = ',Power(a,b):4:2);    {real power}
+ writeln('a^b = ',IntPower(a,b):4:2); {integer power}
+end.

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

@@ -0,0 +1,12 @@
+{{works with|Perl|5.x}}
+my $a = <>;
+my $b = <>;
+
+print
+    "sum:              ", $a + $b, "\n",
+    "difference:       ", $a - $b, "\n",
+    "product:          ", $a * $b, "\n",
+    "integer quotient: ", int($a / $b), "\n",
+    "remainder:        ", $a % $b, "\n",
+    "exponent:         ", $a ** $b, "\n"
+    ;

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

@@ -0,0 +1,49 @@
+{{libheader|Phix/pGUI}}
+{{libheader|Phix/online}}
+You can run this online [http://phix.x10.mx/p2js/ArithInt.htm here] (layout/space is not perfected yet).
+<!--(phixonline)-->
+ <span style="color: #008080;">with</span> <span style="color: #008080;">javascript_semantics</span>
+ <span style="color: #008080;">include</span> <span style="color: #000000;">pGUI</span><span style="color: #0000FF;">.</span><span style="color: #000000;">e</span>
+ 
+ <span style="color: #004080;">Ihandle</span> <span style="color: #000000;">lab</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">tab</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">res</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">dlg</span>
+ 
+ <span style="color: #008080;">constant</span> <span style="color: #000000;">fmt</span> <span style="color: #0000FF;">=</span> <span style="color: #008000;">"""
+ a = %d
+ b = %d
+ a + b = %d
+ a - b = %d
+ a * b = %d
+ a / b = %g  (does not truncate)
+ remainder(a,b) = %d (same sign as first operand)
+ power(a,b) = %g
+ """</span>
+ 
+ <span style="color: #008080;">function</span> <span style="color: #000000;">valuechanged_cb</span><span style="color: #0000FF;">(</span><span style="color: #004080;">Ihandle</span> <span style="color: #000000;">tab</span><span style="color: #0000FF;">)</span>
+     <span style="color: #004080;">string</span> <span style="color: #000000;">s</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">IupGetAttribute</span><span style="color: #0000FF;">(</span><span style="color: #000000;">tab</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"VALUE"</span><span style="color: #0000FF;">)</span>
+     <span style="color: #004080;">sequence</span> <span style="color: #000000;">r</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">scanf</span><span style="color: #0000FF;">(</span><span style="color: #000000;">s</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"%d %d"</span><span style="color: #0000FF;">)</span>
+     <span style="color: #008080;">if</span> <span style="color: #7060A8;">length</span><span style="color: #0000FF;">(</span><span style="color: #000000;">r</span><span style="color: #0000FF;">)=</span><span style="color: #000000;">1</span> <span style="color: #008080;">then</span>
+         <span style="color: #004080;">integer</span> <span style="color: #0000FF;">{</span><span style="color: #000000;">a</span><span style="color: #0000FF;">,</span><span style="color: #000000;">b</span><span style="color: #0000FF;">}</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">r</span><span style="color: #0000FF;">[</span><span style="color: #000000;">1</span><span style="color: #0000FF;">]</span>
+         <span style="color: #000000;">s</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">sprintf</span><span style="color: #0000FF;">(</span><span style="color: #000000;">fmt</span><span style="color: #0000FF;">,</span> <span style="color: #0000FF;">{</span><span style="color: #000000;">a</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">b</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">a</span><span style="color: #0000FF;">+</span><span style="color: #000000;">b</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">a</span><span style="color: #0000FF;">-</span><span style="color: #000000;">b</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">a</span><span style="color: #0000FF;">*</span><span style="color: #000000;">b</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">a</span><span style="color: #0000FF;">/</span><span style="color: #000000;">b</span><span style="color: #0000FF;">,</span> <span style="color: #7060A8;">remainder</span><span style="color: #0000FF;">(</span><span style="color: #000000;">a</span><span style="color: #0000FF;">,</span><span style="color: #000000;">b</span><span style="color: #0000FF;">),</span> <span style="color: #7060A8;">power</span><span style="color: #0000FF;">(</span><span style="color: #000000;">a</span><span style="color: #0000FF;">,</span><span style="color: #000000;">b</span><span style="color: #0000FF;">)})</span>
+         <span style="color: #7060A8;">IupSetStrAttribute</span><span style="color: #0000FF;">(</span><span style="color: #000000;">res</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"TITLE"</span><span style="color: #0000FF;">,</span><span style="color: #000000;">s</span><span style="color: #0000FF;">)</span>
+         <span style="color: #7060A8;">IupRefresh</span><span style="color: #0000FF;">(</span><span style="color: #000000;">res</span><span style="color: #0000FF;">)</span>
+     <span style="color: #008080;">end</span> <span style="color: #008080;">if</span>
+     <span style="color: #008080;">return</span> <span style="color: #004600;">IUP_DEFAULT</span>
+ <span style="color: #008080;">end</span> <span style="color: #008080;">function</span>
+ 
+ <span style="color: #008080;">procedure</span> <span style="color: #000000;">main</span><span style="color: #0000FF;">()</span>
+     <span style="color: #7060A8;">IupOpen</span><span style="color: #0000FF;">()</span>
+     <span style="color: #000000;">lab</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">IupLabel</span><span style="color: #0000FF;">(</span><span style="color: #008000;">"Enter two numbers"</span><span style="color: #0000FF;">)</span>
+     <span style="color: #000000;">tab</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">IupText</span><span style="color: #0000FF;">(</span><span style="color: #008000;">"VALUECHANGED_CB"</span><span style="color: #0000FF;">,</span> <span style="color: #7060A8;">Icallback</span><span style="color: #0000FF;">(</span><span style="color: #008000;">"valuechanged_cb"</span><span style="color: #0000FF;">),</span><span style="color: #008000;">"EXPAND=HORIZONTAL"</span><span style="color: #0000FF;">)</span>
+     <span style="color: #000000;">res</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">IupLabel</span><span style="color: #0000FF;">(</span><span style="color: #008000;">"(separated by a space)\n\n\n\n\n\n\n"</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"EXPAND=BOTH"</span><span style="color: #0000FF;">)</span>
+     <span style="color: #000000;">dlg</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">IupDialog</span><span style="color: #0000FF;">(</span><span style="color: #7060A8;">IupVbox</span><span style="color: #0000FF;">({</span><span style="color: #7060A8;">IupHbox</span><span style="color: #0000FF;">({</span><span style="color: #000000;">lab</span><span style="color: #0000FF;">,</span><span style="color: #000000;">tab</span><span style="color: #0000FF;">},</span><span style="color: #008000;">"GAP=10,NORMALIZESIZE=VERTICAL"</span><span style="color: #0000FF;">),</span>
+                              <span style="color: #7060A8;">IupHbox</span><span style="color: #0000FF;">({</span><span style="color: #000000;">res</span><span style="color: #0000FF;">})},</span><span style="color: #008000;">"MARGIN=5x5"</span><span style="color: #0000FF;">),</span>
+                             <span style="color: #008000;">`SIZE=188x112,TITLE="Arithmetic/Integer"`</span><span style="color: #0000FF;">)</span>
+     <span style="color: #7060A8;">IupShow</span><span style="color: #0000FF;">(</span><span style="color: #000000;">dlg</span><span style="color: #0000FF;">)</span>
+     <span style="color: #008080;">if</span> <span style="color: #7060A8;">platform</span><span style="color: #0000FF;">()!=</span><span style="color: #004600;">JS</span> <span style="color: #008080;">then</span>
+         <span style="color: #7060A8;">IupMainLoop</span><span style="color: #0000FF;">()</span>
+         <span style="color: #7060A8;">IupClose</span><span style="color: #0000FF;">()</span>
+     <span style="color: #008080;">end</span> <span style="color: #008080;">if</span>
+ <span style="color: #008080;">end</span> <span style="color: #008080;">procedure</span>
+  
+ <span style="color: #000000;">main</span><span style="color: #0000FF;">()</span>
+<!---->

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

@@ -0,0 +1,14 @@
+def printOp
+    swap print print nl
+enddef
+
+8 var a 3 var b
+"a = " a printOp
+"b = " b printOp
+
+"a + b = " a b + printOp
+"a - b = " a b - printOp
+"a * b = " a b * printOp
+"int(a / b) = " a b / int printOp
+"a mod b = " a b mod printOp
+"a ^ b = " a b power printOp

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

@@ -0,0 +1,20 @@
+
+module arith;
+
+extern printf;
+extern scanf;
+
+@Integer main [
+	@Pointer<@Integer> a = alloc(4);
+	@Pointer<@Integer> b = alloc(4);
+	scanf("%i %i", a, b);
+	
+	printf("a + b = %i\n", a::get + b::get);
+	printf("a - b = %i\n", a::get - b::get);
+	printf("a * b = %i\n", a::get * b::get);
+	printf("a / b = %i\n", a::get / b::get);
+	printf("a % b = %i\n", a::get % b::get);
+	printf("a ** b = %i\n", a::get ** b::get);
+	
+	return 0;
+]

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

@@ -0,0 +1,13 @@
+<?php
+$a = fgets(STDIN);
+$b = fgets(STDIN);
+
+echo
+    "sum:                 ", $a + $b, "\n",
+    "difference:          ", $a - $b, "\n",
+    "product:             ", $a * $b, "\n",
+    "truncating quotient: ", (int)($a / $b), "\n",
+    "flooring quotient:   ", floor($a / $b), "\n",
+    "remainder:           ", $a % $b, "\n",
+    "power:               ", $a ** $b, "\n"; // PHP 5.6+ only
+?>

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

@@ -0,0 +1,8 @@
+main =>
+    X = read_int(),
+    Y = read_int(),
+    foreach (Op in [+,-,*,div,rem])
+        R = apply(Op,X,Y),
+        printf("%d %w %d = %d\n", X, Op, Y, R)
+    end.
+

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

@@ -0,0 +1,8 @@
+(de math (A B)
+   (prinl "Add      " (+ A B))
+   (prinl "Subtract " (- A B))
+   (prinl "Multiply " (* A B))
+   (prinl "Divide   " (/ A B))        # Trucates towards zero
+   (prinl "Div/rnd  " (*/ A B))       # Rounds to next integer
+   (prinl "Modulus  " (% A B))        # Sign of the first operand
+   (prinl "Power    " (** A B)) )

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

@@ -0,0 +1,38 @@
+[[File:PietArithmaticInteger.png]]<br>
+ <code>
+ command   stack
+ in(int)   A
+ duplicate AA
+ duplicate AAA
+ duplicate AAAA
+ duplicate AAAAA
+ in(int)   BAAAAA
+ duplicate BBAAAAA
+ duplicate BBBAAAAA
+ duplicate BBBBAAAAA
+ duplicate BBBBBAAAAA
+ push 9    9BBBBBAAAAA
+ push 1    19BBBBBAAAAA
+ roll      BBBBAAAABA
+ push 7    7BBBBAAAABA
+ push 1    17BBBBAAAABA
+ roll      BBBAAABABA
+ push 5    5BBBAAABABA
+ push 1    15BBBAAABABA
+ roll      BBAABABABA
+ push 3    3BBAABABABA
+ push 1    13BBAABABABA
+ roll      BABABABABA
+ add       (A+B)BABABABA
+ out(int)  BABABABA
+ sub       (A-B)BABABA
+ out(int)  BABABA
+ mult      (A*B)BABA
+ out(int)  BABA
+ divide    (A/B)BA
+ out(int)  BA
+ mod       (A%B)
+ out(int)  NULL
+ push 1    1
+ exit</code>
+How rounding is handled is up to the interpreter, but I believe the intent was round towards 0.

data/files.zettacode/arithmetic.integer/pl-i.txt

@@ -0,0 +1,8 @@
+<syntaxhighlight lang="pl/i">
+get list (a, b);
+put skip list (a+b);
+put skip list (a-b);
+put skip list (a*b);
+put skip list (trunc(a/b)); /* truncates towards zero.       */
+put skip list (mod(a, b));  /* Remainder is always positive. */
+put skip list (rem(a, b));  /* Sign can be negative.         */

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

@@ -0,0 +1,26 @@
+To run:
+Start up.
+Demonstrate integer arithmetic.
+Wait for the escape key.
+Shut down.
+
+To demonstrate integer arithmetic:
+Write "Enter a number: " to the console without advancing.
+Read a number from the console.
+Write "Enter another number: " to the console without advancing.
+Read another number from the console.
+Show the arithmetic operations between the number and the other number.
+
+To show the arithmetic operations between a number and another number:
+Write the number plus the other number then " is the sum." to the console.
+Write the number minus the other number then " is the difference." to the console.
+Write the number times the other number then " is the product." to the console.
+Show the division of the number by the other number.
+Raise the number to the other number.
+Write the number then " is the power." to the console.
+
+To show the division of a number by another number:
+Privatize the number.
+Divide the number by the other number giving a quotient [rounding toward zero] and a remainder [with the same sign as the dividend].
+Write the quotient then " is the quotient." to the console.
+Write the remainder then " is the remainder." to the console.

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

@@ -0,0 +1,12 @@
+
+;;; Setup token reader
+vars itemrep;
+incharitem(charin) -> itemrep;
+;;; read the numbers
+lvars a = itemrep(), b = itemrep();
+;;; Print results
+printf(a + b, 'a + b = %p\n');
+printf(a - b, 'a - b = %p\n');
+printf(a * b, 'a * b = %p\n');
+printf(a div b, 'a div b = %p\n');
+printf(a mod b, 'a mod b = %p\n');

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

@@ -0,0 +1,10 @@
+/arithInteger {
+   /x exch def
+   /y exch def
+   x y add =
+   x y sub =
+   x y mul =
+   x y idiv =
+   x y mod =
+   x y exp =
+} def

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

@@ -0,0 +1,15 @@
+$a = [int] (Read-Host First Number)
+$b = [int] (Read-Host Second Number)
+
+Write-Host "Sum:                              $($a + $b)"
+Write-Host "Difference:                       $($a - $b)"
+Write-Host "Product:                          $($a * $b)"
+Write-Host "Quotient:                         $($a / $b)"
+Write-Host "Quotient, round to even:          $([Math]::Round($a / $b))"
+Write-Host "Remainder, sign follows first:    $($a % $b)"
+Numbers are automatically converted to accomodate for the result. This means not only that Int32 will be expanded to Int64 but also that a non-integer quotient will cause the result to be of a floating-point type.
+
+The remainder has the sign of the first operand.
+
+No exponentiation operator exists, but can be worked around with the .NET BCL:
+[Math]::Pow($a, $b)

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

@@ -0,0 +1,7 @@
+int a = 7, b = 5;
+
+println(a + " + " + b + " = " + (a + b));
+println(a + " - " + b + " = " + (a - b));
+println(a + " * " + b + " = " + (a * b));
+println(a + " / " + b + " = " + (a / b)); //Rounds towards zero
+println(a + " % " + b + " = " + (a % b)); //Same sign as first operand

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

@@ -0,0 +1,35 @@
+IGNORELINE Note: This example includes the math module.
+include arithmeticmodule
+:a
+editvar /newvar /value=a /title=Enter first integer: 
+editvar /newvar /value=b /title=Enter second integer:
+editvar /newvar /value=c 
+do add -a-,-b-=-c-
+printline -c-
+do subtract a,b
+printline -c-
+do multiply a,b
+printline -c-
+do divide a,b
+printline -c-
+do modulus a,b
+printline -c-
+editvar /newvar /value=d /title=Do you want to calculate more numbers?
+if -d- /hasvalue yes goto :a else goto :end
+:end
+
+IGNORELINE Note: This example does not use the math module.
+:a
+editvar /newvar /value=a /title=Enter first integer: 
+editvar /newvar /value=b /title=Enter second integer:
+editvar /newvar /value=-a-+-b-=-c-
+printline -c-
+editvar /newvar /value=a*b=c
+printline -c-
+editvar /newvar /value=a/b=c
+printline -c-
+editvar /newvar /value=a %% b=c
+printline -c-
+editvar /newvar /value=d /title=Do you want to calculate more numbers?
+if -d- /hasvalue yes goto :a else goto :end
+:end

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

@@ -0,0 +1,33 @@
+
+Integer quotient (`//`) rounds towards 0.
+
+Remainder (`rem`) matches the sign of its first operand.
+
+
+
+print_expression_and_result(M, N, Operator) :-
+    Expression =.. [Operator, M, N],
+    Result is Expression,
+    format('~w ~8|is ~d~n', [Expression, Result]).
+
+arithmetic_integer :-
+    read(M),
+    read(N),
+    maplist( print_expression_and_result(M, N), [+,-,*,//,rem,^] ).
+
+
+
+Use thus:
+
+
+?- arithmetic_integer.
+|: 5.
+|: 7.
+5+7     is 12
+5-7     is -2
+5*7     is 35
+5//7    is 0
+5 rem 7 is 5
+5^7     is 78125
+true.
+

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

@@ -0,0 +1,17 @@
+OpenConsole()
+ 
+Define a, b
+
+Print("Number 1: "): a = Val(Input())
+Print("Number 2: "): b = Val(Input())
+
+PrintN("Sum:        " + Str(a + b))
+PrintN("Difference: " + Str(a - b))
+PrintN("Product:    " + Str(a * b))
+PrintN("Quotient:   " + Str(a / b)) ; Integer division (rounding mode=truncate)
+PrintN("Remainder: " + Str(a % b))
+PrintN("Power:      " + Str(Pow(a, b)))
+ 
+Input()
+ 
+CloseConsole()

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

@@ -0,0 +1,47 @@
+
+x = int(raw_input("Number 1: "))
+y = int(raw_input("Number 2: "))
+
+print "Sum: %d" % (x + y)
+print "Difference: %d" % (x - y)
+print "Product: %d" % (x * y)
+print "Quotient: %d" % (x / y)     #  or x // y  for newer python versions.
+                                   # truncates towards negative infinity
+print "Remainder: %d" % (x % y)    # same sign as second operand
+print "Quotient: %d with Remainder: %d" % divmod(x, y)
+print "Power: %d" % x**y
+
+## Only used to keep the display up when the program ends
+raw_input( )
+
+Notes: In Python3 ''raw_input()'' will be renamed to ''input()'' (the old ''input()'' built-in will go away, though one could use ''eval(input())'' to emulate the old ... and ill-advised ... behavior).  Also a better program would wrap the attempted ''int()'' conversions in a ''try: ... except ValueError:...'' construct such as:
+
+def getnum(prompt):
+    while True: # retrying ...
+        try:
+            n = int(raw_input(prompt))
+        except ValueError:
+            print "Input could not be parsed as an integer. Please try again."\
+            continue
+        break
+    return n
+
+x = getnum("Number1: ")
+y = getnum("Number2: ")
+...
+
+(In general it's good practice to perform parsing of all input in exception handling blocks.  This is especially true of interactive user input, but also applies to data read from configuration and other files, and marshaled from other processes via any IPC mechanism).
+
+Python also has the procedure ''divmod'' that returns both quotient and remainder. eg
+ quotient, remainder = divmod(355,113)
+Giving a quotient of 3, and a remainder of 16. 
+
+=== Python 3.0 compatible code ===
+def arithmetic(x, y):
+    for op in "+ - * // % **".split():
+        expr = "%(x)s %(op)s %(y)s" % vars()
+        print("%s\t=> %s" % (expr, eval(expr)))
+
+
+arithmetic(12, 8)
+arithmetic(input("Number 1: "), input("Number 2: "))