langs a-z

Task/Arithmetic-Integer/NSIS/arithmetic-integer.nsis

@@ -0,0 +1,24 @@
+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

Task/Arithmetic-Integer/Nemerle/arithmetic-integer.nemerle

@@ -0,0 +1,17 @@
+using System;
+
+class Program
+{
+    static Main(args : array[string]) : void
+    {
+        def a = Convert.ToInt32(args[0]);
+        def b = Convert.ToInt32(args[1]);
+
+        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} ** {1} = {2}", a, b, a ** b);
+    }
+}

Task/Arithmetic-Integer/NetRexx/arithmetic-integer.netrexx

@@ -0,0 +1,13 @@
+/* NetRexx */
+
+options replace format comments java crossref savelog symbols binary
+
+say "enter 2 integer values separated by blanks"
+parse ask a b
+say a "+" b "=" a + b
+say a "-" b "=" a - b
+say a "*" b "=" a * b
+say a "/" b "=" a % b "remaining" a // b "(sign from first operand)"
+say a "^" b "=" a ** b
+
+return

Task/Arithmetic-Integer/NewLISP/arithmetic-integer.newlisp

@@ -0,0 +1,24 @@
+; integer.lsp
+; oofoe 2012-01-17
+
+(define (aski msg) (print msg) (int (read-line)))
+(setq x (aski "Please type in an integer and press [enter]: "))
+(setq y (aski "Please type in another integer             : "))
+
+; Note that +, -, *, / and % are all integer operations.
+(println)
+(println "Sum: " (+ x y))
+(println "Difference: " (- x y))
+(println "Product: " (* x y))
+(println "Integer quotient (rounds to 0): " (/ x y))
+(println "Remainder: " (setq r (% x y)))
+
+(println "Remainder sign matches: "
+	 (cond ((= (sgn r) (sgn x) (sgn y)) "both")
+	       ((= (sgn r) (sgn x))         "first")
+	       ((= (sgn r) (sgn y))         "second")))
+	
+(println)
+(println "Exponentiation: " (pow x y))
+
+(exit) ; NewLisp normally goes to listener after running script.

Task/Arithmetic-Integer/OCaml/arithmetic-integer.ocaml

@@ -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 *)

Task/Arithmetic-Integer/Objeck/arithmetic-integer.objeck

@@ -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);
+    }
+  }
+}

Task/Arithmetic-Integer/Openscad/arithmetic-integer.scad

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

Task/Arithmetic-Integer/Oz/arithmetic-integer.oz

@@ -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}

Task/Arithmetic-Integer/PARI-GP/arithmetic-integer.pari

@@ -0,0 +1,8 @@
+arith(a,b)={
+  print(a+b);
+  print(a-b);
+  print(a*b);
+  print(a\b);
+  print(a%b);
+  print(a^b);
+};

Task/Arithmetic-Integer/PL-I/arithmetic-integer.pli

@@ -0,0 +1,7 @@
+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.         */

Task/Arithmetic-Integer/Pascal/arithmetic-integer.pascal

@@ -0,0 +1,12 @@
+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);
+end.

Task/Arithmetic-Integer/Perl-6/arithmetic-integer.pl6

@@ -0,0 +1,9 @@
+my Int $a = floor $*IN.get;
+my Int $b = floor $*IN.get;
+
+say 'sum:              ', $a + $b;
+say 'difference:       ', $a - $b;
+say 'product:          ', $a * $b;
+say 'integer quotient: ', $a div $b;
+say 'remainder:        ', $a % $b;
+say 'exponentiation:   ', $a**$b;

Task/Arithmetic-Integer/Pop11/arithmetic-integer.pop11

@@ -0,0 +1,11 @@
+;;; 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');

Task/Arithmetic-Integer/PostScript/arithmetic-integer.ps

@@ -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

Task/Arithmetic-Integer/PowerShell/arithmetic-integer-1.psh

@@ -0,0 +1,9 @@
+$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)"

Task/Arithmetic-Integer/PowerShell/arithmetic-integer-2.psh

@@ -0,0 +1 @@
+[Math]::Pow($a, $b)

Task/Arithmetic-Integer/ProDOS/arithmetic-integer-1.dos

@@ -0,0 +1,19 @@
+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

Task/Arithmetic-Integer/ProDOS/arithmetic-integer-2.dos

@@ -0,0 +1,15 @@
+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

Task/Arithmetic-Integer/PureBasic/arithmetic-integer.purebasic

@@ -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()

Task/Arithmetic-Integer/REBOL/arithmetic-integer.rebol

@@ -0,0 +1,53 @@
+REBOL [
+	Title: "Integer"
+	Author: oofoe
+	Date: 2010-09-29
+	URL: http://rosettacode.org/wiki/Arithmetic/Integer
+]
+
+x: to-integer ask "Please type in an integer, and press [enter]: "
+y: to-integer ask "Please enter another integer: "
+print ""
+
+print ["Sum:"  x + y]
+print ["Difference:"  x - y]
+print ["Product:" x * y]
+
+print ["Integer quotient (coercion)                          :"  to-integer x / y]
+print ["Integer quotient (away from zero)                    :"  round x / y]
+print ["Integer quotient (halves round towards even digits)  :"  round/even x / y]
+print ["Integer quotient (halves round towards zero)         :"  round/half-down x / y]
+print ["Integer quotient (round in negative direction)       :"  round/floor x / y]
+print ["Integer quotient (round in positive direction)       :"  round/ceiling x / y]
+print ["Integer quotient (halves round in positive direction):"  round/half-ceiling x / y]
+
+print ["Remainder:"  r: x // y]
+
+; REBOL evaluates infix expressions from left to right. There are no
+; precedence rules -- whatever is first gets evaluated. Therefore when
+; performing this comparison, I put parens around the first term
+; ("sign? a") of the expression so that the value of /a/ isn't
+; compared to the sign of /b/. To make up for it, notice that I don't
+; have to use a specific return keyword. The final value in the
+; function is returned automatically.
+
+match?: func [a b][(sign? a) = sign? b]
+
+result: copy []
+if match? r x [append result "first"]
+if match? r y [append result "second"]
+
+; You can evaluate arbitrary expressions in the middle of a print, so
+; I use a "switch" to provide a more readable result based on the
+; length of the /results/ list.
+
+print [
+	"Remainder sign matches:"
+	switch length? result [
+		0 ["neither"]
+		1 [result/1]
+		2 ["both"]
+	]
+]
+
+print ["Exponentiation:" x ** y]

Task/Arithmetic-Integer/Raven/arithmetic-integer.raven

@@ -0,0 +1,8 @@
+'  Number 1: ' print expect 0 prefer as x
+'  Number 2: ' print expect 0 prefer as y
+
+x y + "       sum: %d\n" print
+x y - "difference: %d\n" print
+x y * "   product: %d\n" print
+x y / "  quotient: %d\n" print
+x y % " remainder: %d\n" print

Task/Arithmetic-Integer/Retro/arithmetic-integer.retro

@@ -0,0 +1,8 @@
+: arithmetic ( ab- )
+  over    "\na       = %d" puts
+  dup     "\nb       = %d" puts
+  2over + "\na + b   = %d" puts
+  2over - "\na - b   = %d" puts
+  2over * "\na * b   = %d" puts
+  /mod    "\na / b   = %d" puts
+          "\na mod b = %d\n" puts ;

Task/Arithmetic-Integer/Run-BASIC/arithmetic-integer.run

@@ -0,0 +1,9 @@
+input "1st integer: "; i1
+input "2nd integer: "; i2
+
+print "      Sum"; i1 + i2
+print "     Diff"; i1 - i2
+print "  Product"; i1 * i2
+if i2 <>0 then print "  Quotent "; int( i1 / i2); else print "Cannot divide by zero."
+print "Remainder"; i1 MOD i2
+print "1st raised to power of 2nd"; i1 ^ i2

Task/Arithmetic-Integer/SNOBOL4/arithmetic-integer.sno

@@ -0,0 +1,10 @@
+        output = "Enter first integer:"
+  	first = input
+	output = "Enter second integer:"
+	second = input
+	output = "sum  = " first + second
+	output = "diff = " first - second
+	output = "prod = " first * second
+	output = "quot = " (qout = first / second)
+	output = "rem  = " first - (qout * second)
+end

Task/Arithmetic-Integer/Seed7/arithmetic-integer.seed7

@@ -0,0 +1,20 @@
+$ include "seed7_05.s7i";
+
+const proc: main is func
+  local
+    var integer: a is 0;
+    var integer: b is 0;
+  begin
+    write("a = ");
+    readln(a);
+    write("b = ");
+    readln(b);
+
+    writeln("a + b = " <& a + b);
+    writeln("a - b = " <& a - b);
+    writeln("a * b = " <& a * b);
+    writeln("a div b = " <& a div b);    # Rounds towards zero
+    writeln("a rem b = " <& a rem b);    # Sign of the first operand
+    writeln("a mdiv b = " <& a mdiv b);  # Rounds towards negative infinity
+    writeln("a mod b = " <& a mod b);    # Sign of the second operand
+  end func;

Task/Arithmetic-Integer/Slate/arithmetic-integer.slate

@@ -0,0 +1,9 @@
+[| :a :b |
+inform: (a + b) printString.
+inform: (a - b) printString.
+inform: (a * b) printString.
+inform: (a / b) printString.
+inform: (a // b) printString.
+inform: (a \\ b) printString.
+
+] applyTo: {Integer readFrom: (query: 'Enter a: '). Integer readFrom: (query: 'Enter b: ')}.

Task/Arithmetic-Integer/Standard-ML/arithmetic-integer.ml

@@ -0,0 +1,13 @@
+val () = let
+  val a = valOf (Int.fromString (valOf (TextIO.inputLine TextIO.stdIn)))
+  val b = valOf (Int.fromString (valOf (TextIO.inputLine TextIO.stdIn)))
+in
+  print ("a + b = "   ^ Int.toString (a + b)   ^ "\n");
+  print ("a - b = "   ^ Int.toString (a - b)   ^ "\n");
+  print ("a * b = "   ^ Int.toString (a * b)   ^ "\n");
+  print ("a div b = " ^ Int.toString (a div b) ^ "\n");         (* truncates towards negative infinity *)
+  print ("a mod b = " ^ Int.toString (a mod b) ^ "\n");         (* same sign as second operand *)
+  print ("a quot b = " ^ Int.toString (Int.quot (a, b)) ^ "\n");(* truncates towards 0 *)
+  print ("a rem b = " ^ Int.toString (Int.rem (a, b)) ^ "\n");  (* same sign as first operand *)
+  print ("~a = "      ^ Int.toString (~a)      ^ "\n")          (* unary negation, unusual notation compared to other languages *)
+end

Task/Arithmetic-Integer/TI-83-BASIC/arithmetic-integer.ti-83

@@ -0,0 +1,11 @@
+Prompt A,B
+Disp "SUM"
+Pause A+B
+Disp "DIFFERENCE"
+Pause A-B
+Disp "PRODUCT"
+Pause AB
+Disp "INTEGER QUOTIENT"
+Pause int(A/B)
+Disp "REMAINDER"
+Pause A-B*int(A/B)

Task/Arithmetic-Integer/TI-89-BASIC/arithmetic-integer.ti-89

@@ -0,0 +1,7 @@
+Local a, b
+Prompt a, b
+Disp "Sum: " & string(a + b)
+Disp "Difference: " & string(a - b)
+Disp "Product: " & string(a * b)
+Disp "Integer quotient: " & string(intDiv(a, b))
+Disp "Remainder: " & string(remain(a, b))

Task/Arithmetic-Integer/TUSCRIPT/arithmetic-integer.tuscript

@@ -0,0 +1,8 @@
+$$ MODE TUSCRIPT
+a=5
+b=3
+c=a+b
+c=a-b
+c=a*b
+c=a/b
+c=a%b

Task/Arithmetic-Integer/Toka/arithmetic-integer.toka

@@ -0,0 +1,6 @@
+[ ( a b -- )
+  2dup ." a+b = " + . cr
+  2dup ." a-b = " - . cr
+  2dup ." a*b = " * . cr
+  2dup ." a/b = " / . ." remainder " mod . cr
+] is mathops

Task/Arithmetic-Integer/UNIX-Shell/arithmetic-integer-1.sh

@@ -0,0 +1,7 @@
+#!/bin/sh
+read a; read b;
+echo "a+b     = "  `expr $a  +  $b`
+echo "a-b     = "  `expr $a  -  $b`
+echo "a*b     = "  `expr $a \*  $b`
+echo "a/b     = "  `expr $a  /  $b` # truncates towards 0
+echo "a mod b = "  `expr $a  %  $b` # same sign as first operand

Task/Arithmetic-Integer/UNIX-Shell/arithmetic-integer-2.sh

@@ -0,0 +1,7 @@
+#!/bin/sh
+read a; read b;
+echo "a+b     = $((a+b))"
+echo "a-b     = $((a-b))"
+echo "a*b     = $((a*b))"
+echo "a/b     = $((a/b))" # truncates towards 0
+echo "a mod b = $((a%b))" # same sign as first operand

Task/Arithmetic-Integer/VBScript/arithmetic-integer-1.vbscript

@@ -0,0 +1,17 @@
+option explicit
+dim a, b
+wscript.stdout.write "A? "
+a = wscript.stdin.readline
+wscript.stdout.write "B? "
+b = wscript.stdin.readline
+
+a = int( a )
+b = int( b )
+
+wscript.echo "a + b=", a + b
+wscript.echo "a - b=", a - b
+wscript.echo "a * b=", a * b
+wscript.echo "a / b=", a / b
+wscript.echo "a \ b=", a \ b
+wscript.echo "a mod b=", a mod b
+wscript.echo "a ^ b=", a ^ b

Task/Arithmetic-Integer/VBScript/arithmetic-integer-2.vbscript

@@ -0,0 +1,14 @@
+option explicit
+dim a, b
+wscript.stdout.write "A? "
+a = wscript.stdin.readline
+wscript.stdout.write "B? "
+b = wscript.stdin.readline
+
+a = int( a )
+b = int( b )
+
+dim op
+for each op in split("+ - * / \ mod ^", " ")
+	wscript.echo "a",op,"b=",eval( "a " & op & " b")
+next

Task/Arithmetic-Integer/Vedit-macro-language/arithmetic-integer.vedit

@@ -0,0 +1,7 @@
+#1 = Get_Num("Give number a: ")
+#2 = Get_Num("Give number b: ")
+Message("a + b = ") Num_Type(#1 + #2)
+Message("a - b = ") Num_Type(#1 - #2)
+Message("a * b = ") Num_Type(#1 * #2)
+Message("a / b = ") Num_Type(#1 / #2)
+Message("a % b = ") Num_Type(#1 % #2)

Task/Arithmetic-Integer/Visual-Basic-.NET/arithmetic-integer.visual

@@ -0,0 +1,14 @@
+Imports System.Console
+Module Module1
+  Sub Main
+    Dim a = CInt(ReadLine)
+    Dim b = CInt(ReadLine)
+    WriteLine("Sum " & a + b)
+    WriteLine("Difference " & a - b)
+    WriteLine("Product " & a - b)
+    WriteLine("Quotient " & a / b)
+    WriteLine("Integer Quotient " & a \ b)
+    WriteLine("Remainder " & a Mod b)
+    WriteLine("Exponent " & a ^ b)
+  End Sub
+End Module

Task/Arithmetic-Integer/XPL0/arithmetic-integer.xpl0

@@ -0,0 +1,10 @@
+include c:\cxpl\codes;
+int A, B;
+[A:= IntIn(0);
+ B:= IntIn(0);
+IntOut(0, A+B); CrLf(0);
+IntOut(0, A-B); CrLf(0);
+IntOut(0, A*B); CrLf(0);
+IntOut(0, A/B); CrLf(0);        \truncates toward zero
+IntOut(0, rem(0)); CrLf(0);     \remainder's sign matches first operand (A)
+]

Task/Arithmetic-Integer/XSLT/arithmetic-integer.xslt

@@ -0,0 +1,9 @@
+<xsl:template name="arithmetic">
+  <xsl:param name="a">5</xsl:param>
+  <xsl:param name="b">2</xsl:param>
+  <fo:block>a + b = <xsl:value-of select="$a + $b"/></fo:block>
+  <fo:block>a - b = <xsl:value-of select="$a - $b"/></fo:block>
+  <fo:block>a * b = <xsl:value-of select="$a * $b"/></fo:block>
+  <fo:block>a / b = <xsl:value-of select="round($a div $b)"/></fo:block>
+  <fo:block>a mod b = <xsl:value-of select="$a mod $b"/></fo:block>
+ </xsl:template>

Task/Arithmetic-Integer/Yorick/arithmetic-integer.yorick

@@ -0,0 +1,8 @@
+x = y = 0;
+read, x, y;
+write, "x + y =", x + y;
+write, "x - y =", x - y;
+write, "x * y =", x * y;
+write, "x / y =", x / y; // rounds toward zero
+write, "x % y =", x % y; // remainder; matches sign of first operand when operands' signs differ
+write, "x ^ y =", x ^ y; // exponentiation