zettacode 0.1.0 → 0.1.1

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

@@ -1,14 +1,14 @@
-Of Ob-2
+Oxford Oberon-2
 
-MODULE Ac
-IMPORT I, Ou
+MODULE Arithmetic;
+IMPORT In, Out;
 VAR
-        ,:INTEGER
+        x,y:INTEGER;
 BEGIN
-        Ou.S("G  ub: ")I.I()I.I()
-        Ou.S(" +  ")Ou.I( + ,6)Ou.L
-        Ou.S(" -  ")Ou.I( - ,6)Ou.L
-        Ou.S(" *  ")Ou.I( * ,6)Ou.L
-        Ou.S("   ")Ou.I( DIV ,6)Ou.L
-        Ou.S(" MOD  ")Ou.I( MOD ,6)Ou.L
-END Ac.
+        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/zettacode.files/arithmetic.integer/objeck.txt

@@ -1,17 +1,17 @@
-bud Dfu {
-  c Ac {
-    fuc : M( : S.S[]) ~ N {
-      DAc()
+bundle Default {
+  class Arithmetic {
+    function : Main(args : System.String[]) ~ Nil {
+      DoArithmetic();
     }
 	
-    fuc :  : DAc() ~ N {
-       := IO.C-GIc()-RS()-TI()
-      b := IO.C-GIc()-RS()-TI()
+    function : native : DoArithmetic() ~ Nil {
+      a := IO.Console->GetInstance()->ReadString()->ToInt();
+      b := IO.Console->GetInstance()->ReadString()->ToInt();
   
-      IO.C-GIc()-P("+b = ")-PL(+b)
-      IO.C-GIc()-P("-b = ")-PL(-b)
-      IO.C-GIc()-P("*b = ")-PL(*b)
-      IO.C-GIc()-P("b = ")-PL(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);
+      IO.Console->GetInstance()->Print("a/b = ")->PrintLine(a/b);
     }
   }
 }

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

@@ -1,9 +1,9 @@
- _ =
-    = _ ()
-   b = _ () 
+let _ =
+  let a = read_int ()
+  and b = read_int () in
 
-  Pf.f " + b = %\" ( + b)
-  Pf.f " - b = %\" ( - b)
-  Pf.f " * b = %\" ( * b)
-  Pf.f "  b = %\" (  b)    (* uc  0 *)
-  Pf.f "  b = %\" (  b) (*    f  *)
+  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/zettacode.files/arithmetic.integer/oforth.txt

@@ -1,9 +1,9 @@
 
-:  ( b -- )
-   " + b ="   .  b + .c
-   " - b ="   .  b - .c
-   " * b ="   .  b * .c
-   "  b ="   .  b  .c
-   "  b =" .  b  .c 
-   "  b =" .  b  .c
-
+: 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/zettacode.files/arithmetic.integer/ol.txt

@@ -1,23 +1,23 @@
 
 
-(f  8)
-(f b 12)
+(define a 8)
+(define b 12)
 
-( "(+ "  " " b ") = "    (+  b))
-( "(- "  " " b ") = "    (-  b))
-( "(* "  " " b ") = "    (*  b))
-( "( "  " " b ") = "    (  b))
+(print "(+ " a " " b ") => "    (+ a b))
+(print "(- " a " " b ") => "    (- a b))
+(print "(* " a " " b ") => "    (* a b))
+(print "(/ " a " " b ") => "    (/ a b))
 
-( "(qu "  " " b ") = "  (qu  b))    (qu  b)
-( "( "  " " b ") = " (   b))    (  b)
-( "(u "  " " b ") = "    (   b))    (u  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)
 
-( "( "  " " b ") = " (  b))
-( "(c "  " " b ") = " (c  b))
-( "(c "  " " b ") = " (c  b))
+(print "(expt " a " " b ") => " (expt a b))
+(print "(gcd " a " " b ") => " (gcd a b))
+(print "(lcm " a " " b ") => " (lcm a b))
 
- u c u    u f +,-,*, fuc
-( (+ 1 3 5 7 9))
-( (- 1 3 5 7 9))
-( (* 1 3 5 7 9))    (1*3*5*7*9)
-( ( 1 3 5 7 9))    (((13)5)7)9
+; 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/zettacode.files/arithmetic.integer/onyx.txt

@@ -1,44 +1,44 @@
 
-# Mo of  o c  m o.
-# A u      u     c
-#   cu , ub, u, ,  .
-
-$CSc { # U ANSI  c
-  `\[2J\[11H'  fu
-} b f
-
-$S { #  S -
-  `\' c  fu
-} b f
-
-$SPb {
-`T    c    O,' S
-`\' u  ub f u cc, c' S
-`\' c A  B.\' S
-} b f
-
-$P { # c:  --
-  u c   fu
-} f
-
-$GI { # c:  -- 
-  u c `E  ' c c `: ' c
-  P    c  f
-} b f
-
-$T { # c__ b_ T u_
-  A c ` ' B c ` ' 5 c  c `  ' 3 c c
-  A B  c  c `.' 3 c S
-} b f
-
-$SRu {
-  $ `A: ' T
-  $ub `Subc: ' T
-  $u `Muc: ' T
-  $ `D: ' T
-  `N   u f    u  z.' S
-  $ `E: ' T
-  `N   u f          ub.' S
-} b f
-
-CSc SPb $A GI $B GI SRu
+# 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/zettacode.files/arithmetic.integer/openscad.txt

@@ -1,6 +1,6 @@
 
-co (+b)  * Sum *
-c (-b)  * Dffc *
-c (*b)  * Puc *
-c (b)  * Qu *
-c (%b)  * Muu *
+echo (a+b);  /* Sum */
+echo (a-b);  /* Difference */
+echo (a*b);  /* Product */
+echo (a/b);  /* Quotient */
+echo (a%b);  /* Modulus */

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

@@ -1,19 +1,19 @@
-dc
-  SI = {N c $ f O.f O.  (:)}
+declare
+  StdIn = {New class $ from Open.file Open.text end init(name:stdin)}
 
-  fu {RI}
-     {S.I {SI S($)}}
-  
+  fun {ReadInt}
+     {String.toInt {StdIn getS($)}}
+  end
 
-  A = {RI}
-  B = {RI}
-
-  {FA
+  A = {ReadInt}
+  B = {ReadInt}
+in
+  {ForAll
    ["A+B = "#A+B
     "A-B = "#A-B
     "A*B = "#A*B
-    "AB = "#A  B  %% uc  0
-    " "#A  B  %%      A
-    "A^B = "#{P 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}
    ]
-   S.If}
+   System.showInfo}

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

@@ -1,2 +1,2 @@
-U fc    fuc f  ub  ub  u ub.
-=3 b=7 fuc:_bbf__umb_umb_umb =f.m.b '('  b ')' ' = ' f( b) 
+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/zettacode.files/arithmetic.integer/pari-gp.txt

@@ -1,9 +1,9 @@
-I   c\c u  -\f. T    c\c u-- (  +\f) .  O  cc   u bu u  f     - qu.
-(,b)={
-  (+b)
-  (-b)
-  (*b)
-  (\b)
-  (%b)
-  (^b)
-}
+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/zettacode.files/arithmetic.integer/pascal.txt

@@ -1,14 +1,14 @@
-om mc(u, ouu)
+program arithmetic(input, output)
 
+var
+ a, b: integer;
 
- , b: 
-
-b
- (, b)
- ('+b = ', +b)
- ('-b = ', -b)
- ('*b = ', *b)
- ('b = ',   b, ',  ',   b)
- ('^b = ',P(,b):4:2)    { }
- ('^b = ',IP(,b):4:2) { }
-.
+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/zettacode.files/arithmetic.integer/perl.txt

@@ -1,12 +1,12 @@
-{{ |P|5.}}
-m $ = 
- $b = 
+{{works with|Perl|5.x}}
+my $a = <>;
+my $b = <>;
 
-
-    "u:              ", $ + $b, "\",
-    "ffc:       ", $ - $b, "\",
-    "uc:          ", $ * $b, "\",
-    " qu: ", ($  $b), "\",
-    ":        ", $ % $b, "\",
-    ":         ", $ ** $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/zettacode.files/arithmetic.integer/phix.txt

@@ -1,49 +1,49 @@
-{{b|PGUI}}
-{{b|P}}
-Yu c u   [:.10.2jAI. ] (uc   fc ).
-!--(o)--
-  ="c: #008080"  ="c: #008080"jc_c
-  ="c: #008080"cu  ="c: #000000"GUI ="c: #0000FF". ="c: #000000"
+{{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>
  
-  ="c: #004080"I  ="c: #000000"b ="c: #0000FF",  ="c: #000000"b ="c: #0000FF",  ="c: #000000" ="c: #0000FF",  ="c: #000000"
+ <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>
  
-  ="c: #008080"c  ="c: #000000"f  ="c: #0000FF"=  ="c: #008000""""
-  = %
- b = %
-  + b = %
-  - b = %
-  * b = %
-   b = %  (  uc)
- (,b) = % (   f )
- (,b) = %
- """
+ <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>
  
-  ="c: #008080"fuc  ="c: #000000"uc_cb ="c: #0000FF"( ="c: #004080"I  ="c: #000000"b ="c: #0000FF")
-      ="c: #004080"  ="c: #000000"  ="c: #0000FF"=  ="c: #7060A8"IuGAbu ="c: #0000FF"( ="c: #000000"b ="c: #0000FF", ="c: #008000""VALUE" ="c: #0000FF")
-      ="c: #004080"quc  ="c: #000000"  ="c: #0000FF"=  ="c: #7060A8"cf ="c: #0000FF"( ="c: #000000" ="c: #0000FF", ="c: #008000""% %" ="c: #0000FF")
-      ="c: #008080"f  ="c: #7060A8" ="c: #0000FF"( ="c: #000000" ="c: #0000FF")= ="c: #000000"1  ="c: #008080"
-          ="c: #004080"  ="c: #0000FF"{ ="c: #000000" ="c: #0000FF", ="c: #000000"b ="c: #0000FF"}  ="c: #0000FF"=  ="c: #000000" ="c: #0000FF"[ ="c: #000000"1 ="c: #0000FF"]
-          ="c: #000000"  ="c: #0000FF"=  ="c: #7060A8"f ="c: #0000FF"( ="c: #000000"f ="c: #0000FF",  ="c: #0000FF"{ ="c: #000000" ="c: #0000FF",  ="c: #000000"b ="c: #0000FF",  ="c: #000000" ="c: #0000FF"+ ="c: #000000"b ="c: #0000FF",  ="c: #000000" ="c: #0000FF"- ="c: #000000"b ="c: #0000FF",  ="c: #000000" ="c: #0000FF"* ="c: #000000"b ="c: #0000FF",  ="c: #000000" ="c: #0000FF" ="c: #000000"b ="c: #0000FF",  ="c: #7060A8" ="c: #0000FF"( ="c: #000000" ="c: #0000FF", ="c: #000000"b ="c: #0000FF"),  ="c: #7060A8" ="c: #0000FF"( ="c: #000000" ="c: #0000FF", ="c: #000000"b ="c: #0000FF")})
-          ="c: #7060A8"IuSSAbu ="c: #0000FF"( ="c: #000000" ="c: #0000FF", ="c: #008000""TITLE" ="c: #0000FF", ="c: #000000" ="c: #0000FF")
-          ="c: #7060A8"IuRf ="c: #0000FF"( ="c: #000000" ="c: #0000FF")
-      ="c: #008080"  ="c: #008080"f
-      ="c: #008080"u  ="c: #004600"IUP_DEFAULT
-  ="c: #008080"  ="c: #008080"fuc
+ <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>
  
-  ="c: #008080"cu  ="c: #000000" ="c: #0000FF"()
-      ="c: #7060A8"IuO ="c: #0000FF"()
-      ="c: #000000"b  ="c: #0000FF"=  ="c: #7060A8"IuLb ="c: #0000FF"( ="c: #008000""E  ub" ="c: #0000FF")
-      ="c: #000000"b  ="c: #0000FF"=  ="c: #7060A8"IuT ="c: #0000FF"( ="c: #008000""VALUECHANGED_CB" ="c: #0000FF",  ="c: #7060A8"Icbc ="c: #0000FF"( ="c: #008000""uc_cb" ="c: #0000FF"), ="c: #008000""EXPAND=HORIZONTAL" ="c: #0000FF")
-      ="c: #000000"  ="c: #0000FF"=  ="c: #7060A8"IuLb ="c: #0000FF"( ="c: #008000""( b  c)\\\\\\\" ="c: #0000FF", ="c: #008000""EXPAND=BOTH" ="c: #0000FF")
-      ="c: #000000"  ="c: #0000FF"=  ="c: #7060A8"IuD ="c: #0000FF"( ="c: #7060A8"IuVb ="c: #0000FF"({ ="c: #7060A8"IuHb ="c: #0000FF"({ ="c: #000000"b ="c: #0000FF", ="c: #000000"b ="c: #0000FF"}, ="c: #008000""GAP=10,NORMALIZESIZE=VERTICAL" ="c: #0000FF"),
-                               ="c: #7060A8"IuHb ="c: #0000FF"({ ="c: #000000" ="c: #0000FF"})}, ="c: #008000""MARGIN=55" ="c: #0000FF"),
-                              ="c: #008000"`SIZE=188112,TITLE="AcI"` ="c: #0000FF")
-      ="c: #7060A8"IuS ="c: #0000FF"( ="c: #000000" ="c: #0000FF")
-      ="c: #008080"f  ="c: #7060A8"f ="c: #0000FF"()!= ="c: #004600"JS  ="c: #008080"
-          ="c: #7060A8"IuML ="c: #0000FF"()
-          ="c: #7060A8"IuC ="c: #0000FF"()
-      ="c: #008080"  ="c: #008080"f
-  ="c: #008080"  ="c: #008080"cu
+ <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>
   
-  ="c: #000000" ="c: #0000FF"()
-!----
+ <span style="color: #000000;">main</span><span style="color: #0000FF;">()</span>
+<!---->

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

@@ -1,14 +1,14 @@
-df O
-       
-f
+def printOp
+    swap print print nl
+enddef
 
-8   3  b
-" = "  O
-"b = " b O
+8 var a 3 var b
+"a = " a printOp
+"b = " b printOp
 
-" + b = "  b + O
-" - b = "  b - O
-" * b = "  b * O
-"(  b) = "  b   O
-"  b = "  b  O
-" ^ b = "  b  O
+"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/zettacode.files/arithmetic.integer/phl.txt

@@ -1,20 +1,20 @@
 
-modu 
+module arith;
 
- f
- cf
+extern printf;
+extern scanf;
 
-@I  [
-	@P@I  = c(4)
-	@P@I b = c(4)
-	cf("% %", , b)
+@Integer main [
+	@Pointer<@Integer> a = alloc(4);
+	@Pointer<@Integer> b = alloc(4);
+	scanf("%i %i", a, b);
 	
-	f(" + b = %\", :: + b::)
-	f(" - b = %\", :: - b::)
-	f(" * b = %\", :: * b::)
-	f("  b = %\", ::  b::)
-	f(" % b = %\", :: % b::)
-	f(" ** b = %\", :: ** 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);
 	
-	u 0
+	return 0;
 ]

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

@@ -1,13 +1,13 @@
-?
-$ = f(STDIN)
-$b = f(STDIN)
+<?php
+$a = fgets(STDIN);
+$b = fgets(STDIN);
 
-c
-    "u:                 ", $ + $b, "\",
-    "ffc:          ", $ - $b, "\",
-    "uc:             ", $ * $b, "\",
-    "uc qu: ", ()($  $b), "\",
-    "f qu:   ", f($  $b), "\",
-    ":           ", $ % $b, "\",
-    ":               ", $ ** $b, "\"  PHP 5.6+ 
-?
+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/zettacode.files/arithmetic.integer/picat.txt

@@ -1,8 +1,8 @@
-m =
-    X = _(),
-    Y = _(),
-    fc (O  [+,-,*,,])
-        R = (O,X,Y),
-        f("% % % = %\", X, O, Y, R)
-    .
+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.