zettacode 0.1.0 → 0.1.1

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

@@ -1,25 +1,25 @@
-o zz_mc o dd  d.
+report zz_arithmetic no standard page heading.
 
-" R    ub f  u.
-c-c b f bc u.
-  : _f  ,
-              _c  .
-c-c  f bc u.
+" Read in the two numbers from the user.
+selection-screen begin of block input.
+  parameters: p_first type i,
+              p_second type i.
+selection-screen end of block input.
 
-" S   u     u qu.
- c-c uu.
-  %__f_%__%-  = 'F Nub: '.
-  %__c_%__%- = 'Sc Nub: '.
+" Set the text value that is displayed on input request.
+at selection-screen output.
+  %_p_first_%_app_%-text  = 'First Number: '.
+  %_p_second_%_app_%-text = 'Second Number: '.
 
--f-c.
-  : _u  .
-  _u = _f + _c.
-  :  'A:', _u.
-  _u = _f - _c.
-  :  'Subc:', _u.
-  _u = _f * _c.
-  :  'Muc:', _u.
-  _u = _f  _c.
-  :  'I qu:', _u. " Tuc  z.
-  _u = _f  _c.
-  :  'R:',  _u.
+end-of-selection.
+  data: lv_result type i.
+  lv_result = p_first + p_second.
+  write: / 'Addition:', lv_result.
+  lv_result = p_first - p_second.
+  write: / 'Substraction:', lv_result.
+  lv_result = p_first * p_second.
+  write: / 'Multiplication:', lv_result.
+  lv_result = p_first div p_second.
+  write: / 'Integer quotient:', lv_result. " Truncated towards zero.
+  lv_result = p_first mod p_second.
+  write: / 'Remainder:',  lv_result.

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

@@ -1,21 +1,21 @@
 
-:-- 
+:set-state-ok t
 
-(fu --u ()
-   (- (_  )
-           (-bjc *-* )
-      (c ( _))
-      (- (_ b )
-              (-bjc *-* )
-         (c ( _))
-         (  b ))))
+(defun get-two-nums (state)
+   (mv-let (_ a state)
+           (read-object *standard-oi* state)
+      (declare (ignore _))
+      (mv-let (_ b state)
+              (read-object *standard-oi* state)
+         (declare (ignore _))
+         (mv a b state))))
 
-(fu -c ()
-   (- ( b )
-           (--u )
-      ( 
-          ($ (c "Su:        ~0~%" (+  b))
-                  (c "Dffc: ~0~%" (-  b))
-                  (c "Puc:    ~0~%" (*  b))
-                  (c "Qu:   ~0~%" (f  b))
-                  (c "R:  ~0~%" (  b))))))
+(defun integer-arithmetic (state)
+   (mv-let (a b state)
+           (get-two-nums state)
+      (mv state
+          (progn$ (cw "Sum:        ~x0~%" (+ a b))
+                  (cw "Difference: ~x0~%" (- a b))
+                  (cw "Product:    ~x0~%" (* a b))
+                  (cw "Quotient:   ~x0~%" (floor a b))
+                  (cw "Remainder:  ~x0~%" (mod a b))))))

data/zettacode.files/arithmetic.integer/action!.txt

@@ -1,35 +1,35 @@
- ="c!"DEFINE NO_KEY="255"
+<syntaxhighlight lang="action!">DEFINE NO_KEY="255"
 DEFINE KEY_Y="43"
 DEFINE KEY_N="35"
 
-PROC M()
-  BYTE CH=$02FC I  u f   
-  BYTE 
-  INT ,b
+PROC Main()
+  BYTE CH=$02FC ;Internal hardware value for last key pressed
+  BYTE k
+  INT a,b
 
   DO
-    P("Iu  u =")
-    =IuI()
-    P("Iu  u b=")
-    b=IuI()
+    Print("Input integer value a=")
+    a=InputI()
+    Print("Input integer value b=")
+    b=InputI()
 
-    PF("+b=%I%E",+b)
-    PF("-b=%I%E",-b)
-    PF("*b=%I%E",*b)
-    PF("b=%I%E",b)
-    PF(" MOD b=%I%E", MOD b)
+    PrintF("a+b=%I%E",a+b)
+    PrintF("a-b=%I%E",a-b)
+    PrintF("a*b=%I%E",a*b)
+    PrintF("a/b=%I%E",a/b)
+    PrintF("a MOD b=%I%E",a MOD b)
     
-    PuE()
-    PE("A? (YN)")
+    PutE()
+    PrintE("Again? (Y/N)")
 
-    CH=NO_KEY Fu  b
+    CH=NO_KEY ;Flush the keyboard
     DO
-      =CH
-    UNTIL =KEY_Y OR =KEY_N
+      k=CH
+    UNTIL k=KEY_Y OR k=KEY_N
     OD
-    CH=NO_KEY Fu  b
+    CH=NO_KEY ;Flush the keyboard
 
-    IF =KEY_N THEN
+    IF k=KEY_N THEN
       EXIT
     FI
   OD

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

@@ -1,20 +1,20 @@
-w Ad.T_Io
- A.I_T_IO
+with Ada.Text_Io;
+with Ada.Integer_Text_IO;
 
-cu I_Ac 
-   u A.T_IO
-   u A.I_T_I
+procedure Integer_Arithmetic is
+   use Ada.Text_IO;
+   use Ada.Integer_Text_Io;
 
-   A, B : I
-b
-   G(A)
-   G(B)
-   Pu_L("+b = "  I'I(A + B))
-   Pu_L("-b = "  I'I(A - B))
-   Pu_L("*b = "  I'I(A * B))
-   Pu_L("b = "  I'I(A  B))
-   Pu_L("  b = "  I'I(A  B)) -- S c B
-   Pu_L(" f b = "  I'I(A  B)) -- S c A
-   Pu_L("**b = "  I'I(A ** B))  
+   A, B : Integer;
+begin
+   Get(A);
+   Get(B);
+   Put_Line("a+b = " & Integer'Image(A + B));
+   Put_Line("a-b = " & Integer'Image(A - B));
+   Put_Line("a*b = " & Integer'Image(A * B));
+   Put_Line("a/b = " & Integer'Image(A / B));
+   Put_Line("a mod b = " & Integer'Image(A mod B)); -- Sign matches B
+   Put_Line("remainder of a/b = " & Integer'Image(A rem B)); -- Sign matches A
+   Put_Line("a**b = " & Integer'Image(A ** B));  
 
- I_Ac
+end Integer_Arithmetic;

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

@@ -1,10 +1,10 @@
-v  = 0
- b = 0
- -        f 
- - b       f 
+var a = 0
+var b = 0
+stdin -> a    // read int from stdin
+stdin -> b    // read int from stdin
 
- ("+b=" + ( + b))
- ("-b=" + ( - b))
- ("*b=" + ( * b))
- ("b=" + (  b))
- ("%b=" + ( % b))
+println ("a+b=" + (a + b))
+println ("a-b=" + (a - b))
+println ("a*b=" + (a * b))
+println ("a/b=" + (a / b))
+println ("a%b=" + (a % b))

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

@@ -1,14 +1,14 @@
-{{|C}}
-{{ |ALGOL 68|R 1 -    u u}}
-{{ |ALGOL 68G|A -    [:ucf.jc68f6868-1.18.068-1.18.0-9..5.c.fc11.386. 1.18.0-9.]}}
-{{  |ELLA ALGOL 68|A (  jb c) -    [:ucf.jc68f68c68c-1.8.868c-1.8-8.fc9.386. 1.8-8] - u   u f FORMAT u}}
-m:(
-  LONG INT =355, b=113
-  f(($" PLUS b = +b = "$,  + b))
-  f(($" MINUS b = -b = "$,  - b))
-  f(($" TIMES b = *b = ×b = "$,  * b))
-  f(($" DIV b = b = "$,   b))
-  f(($" OVER b = %b = ÷b = "$,  % b))
-  f(($" MOD b = %*b = %×b = ÷×b = ÷*b = "$,  %* b))
-  f(($" UP b = **b = ↑b = "$,  ** b))
+{{trans|C}}
+{{works with|ALGOL 68|Revision 1 - no extensions to language used}}
+{{works with|ALGOL 68G|Any - tested with release [http://sourceforge.net/projects/algol68/files/algol68g/algol68g-1.18.0/algol68g-1.18.0-9h.tiny.el5.centos.fc11.i386.rpm/download 1.18.0-9h.tiny]}}
+{{wont work with|ELLA ALGOL 68|Any (with appropriate job cards) - tested with release [http://sourceforge.net/projects/algol68/files/algol68toc/algol68toc-1.8.8d/algol68toc-1.8-8d.fc9.i386.rpm/download 1.8-8d] - due to extensive use of FORMATted transput}}
+main:(
+  LONG INT a=355, b=113;
+  printf(($"a PLUS b = a+b = "gl$, a + b));
+  printf(($"a MINUS b = a-b = "gl$, a - b));
+  printf(($"a TIMES b = a*b = a×b = "gl$, a * b));
+  printf(($"a DIV b = a/b = "gl$, a / b));
+  printf(($"a OVER b = a%b = a÷b = "gl$, a % b));
+  printf(($"a MOD b = a%*b = a%×b = a÷×b = a÷*b = "gl$, a %* b));
+  printf(($"a UP b = a**b = a↑b = "gl$, a ** b))
 )

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

@@ -1,16 +1,16 @@
-T A W    (c ) uc  z.b
-T u f  u  (c )    f  f      ff .
-b
-     , b
-    ( "E 2  " )
-    ( , b )
-    ( "  +  b: ",   +  b ) %          %
-    ( "  -  b: ",   -  b ) % ubc      %
-    ( "  *  b: ",   *  b ) % uc   %
-    ( "    b: ",   b ) %   %
-    ( "  b: ",   b ) % u           %
-    %  **  u   u      %
-    % (  -  u  b  ,  f- %
-    %  c b ,   c )                         %
-    ( "  ^  b: ", u(  ** b ) )
-.
+The Algol W integer division operator (called div) truncates towards zero.<br>
+The result of the modulo operator (called rem) has the sign of the first operand when the operands have different signs.
+begin
+    integer a, b;
+    write( "Enter 2 integers> " );
+    read( a, b );
+    write( "a  +  b: ", a  +  b ); % addition         %
+    write( "a  -  b: ", a  -  b ); % subtraction      %
+    write( "a  *  b: ", a  *  b ); % multiplication   %
+    write( "a  /  b: ", a div b ); % integer division %
+    write( "a mod b: ", a rem b ); % modulo           %
+    % the ** operator returns a real result even with integer operands  %
+    % ( the right-hand operand must always be an integer, the left-hand %
+    % operand can be integer, real or complex )                         %
+    write( "a  ^  b: ", round( a ** b ) )
+end.

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

@@ -1,14 +1,14 @@
-PROC m()
-  DEF , b, 
-  WF('A = ')
-  RS(, )
-   := V()
-  WF('B = ')
-  RS(, )
-  b := V()
-  WF('A+B=\\A-B=\\', +b, -b)
-  WF('A*B=\\AB=\\', *b, b)
-  * *    16 b  Mu  D  32b  *
-  WF('A*B=\\AB=\\', Mu(,b), D(,b))
-  WF('A  B =\\', M(,b))
+PROC main()
+  DEF a, b, t
+  WriteF('A = ')
+  ReadStr(stdin, t)
+  a := Val(t)
+  WriteF('B = ')
+  ReadStr(stdin, t)
+  b := Val(t)
+  WriteF('A+B=\d\nA-B=\d\n', a+b, a-b)
+  WriteF('A*B=\d\nA/B=\d\n', a*b, a/b)
+  /* * and / are 16 bit ops; Mul and Div are 32bit ops */
+  WriteF('A*B=\d\nA/B=\d\n', Mul(a,b), Div(a,b))
+  WriteF('A mod B =\d\n', Mod(a,b))
 ENDPROC

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

@@ -1,7 +1,7 @@
-∇ ← _mc  
-   ← ⎕
-   ← ⎕
-   ← 6 2 ⍴ 'u' (+) 'ff' (-) '' (×) 'qu' (⌊÷) '' (|) '' (*)
+∇res ← integer_arithmetic; l; r
+  l ← ⎕
+  r ← ⎕
+  res ← 6 2 ⍴ 'sum' (l+r) 'diff' (l-r) 'prod' (l×r) 'quot' (⌊l÷r) 'rem' (r|l) 'pow' (l*r)
 ∇
 
-Qu  u    .
+Quotient will round down in this version.

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

@@ -1,16 +1,16 @@
 
- 1 o ( ud of (d do "E   vu" dfu w ""))  
- 2  ( u f (  "E   u" fu  ""))  
+set i1 to (text returned of (display dialog "Enter an integer value" default answer "")) as integer
+set i2 to (text returned of (display dialog "Enter another integer value" default answer "")) as integer
 
- u  1 + 2
- ff  1 - 2
-   1 * 2
- qu  1  2 -- Ru  z.
-   1  2 -- T u'  c  '.
-   1 ^ 2 -- T u'   .
+set sum to i1 + i2
+set diff to i1 - i2
+set prod to i1 * i2
+set quot to i1 div i2 -- Rounds towards zero.
+set remainder to i1 mod i2 -- The result's sign matches the dividend's.
+set exp to i1 ^ i2 -- The result's always a real.
 
-u {||:{1, 2}, ffc:ff, uc:, qu:qu, :, :}
+return {|integers|:{i1, i2}, difference:diff, product:prod, quotient:quot, remainder:remainder, exponientiation:exp}
 
-{{uu}}
+{{output}}
 
-{||:{-57, 2}, dffc:-59, oduc:-114, quo:-28, md:-1, oo:3249.0}
+{|integers|:{-57, 2}, difference:-59, product:-114, quotient:-28, remainder:-1, exponientiation:3249.0}