zettacode 0.1.0

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

@@ -0,0 +1,12 @@
+#cud om
+
+ ()
+{
+   , b
+  ::c    b
+  ::cu  "+b = "  +b  "\"
+  ::cu  "-b = "  -b  "\"
+  ::cu  "*b = "  *b  "\"
+  ::cu  "b = "  b  ",  "  %b  "\"
+  u 0
+}

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

@@ -0,0 +1,17 @@
+#cud do.
+#cu b.
+
+ ( c, c *[])
+{
+   , 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
+}

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

@@ -0,0 +1,17 @@
+u Sm
+
+c P
+{
+    c  M([] )
+    {
+          = C.TI32([0])
+         b = C.TI32([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))
+    }
+}

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

@@ -0,0 +1,37 @@
+
+Numb Sou.
+
+O   u.
+
+I.
+1  Nub
+3  W
+5  Su
+
+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.
+
+S 5.

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

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

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

@@ -0,0 +1,18 @@
+(df mfuc []
+  ( "E   ")
+  ( [ (),  ()]
+    (q [ '(+ - *  M )]
+      ( [ (   )]
+	(f "%=%\"  ( ))))))
+
+u= (fuc)
+E   
+3
+6
+(+ 3 6)=9
+(- 3 6)=-3
+(* 3 6)=18
+( 3 6)=12
+(M 3 6)=729.0
+( 3 6)=3
+

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

@@ -0,0 +1,44 @@
+       IDENTIFICATION DIVISION.
+       PROGRAM-ID. I-Ac.
+
+       DATA DIVISION.
+       WORKING-STORAGE SECTION.
+
+       01 A      PIC S9(10).
+       01 B      PIC S9(10).
+       01 Ru PIC S9(10).
+
+       PROCEDURE DIVISION.
+           DISPLAY "F ub: " WITH NO ADVANCING
+           ACCEPT A
+           DISPLAY "Sc ub: " WITH NO ADVANCING
+           ACCEPT B
+           
+*          * N: T u ADDSUBTRACTc.  c b
+*          * c  COMPUTE , c  
+*          *   b f    u,
+*          * .. COMPUTE Ru = A + B
+
+           ADD A TO B GIVING Ru
+           DISPLAY "A + B = " Ru
+
+           SUBTRACT B FROM A GIVING Ru
+           DISPLAY "A - B = " Ru
+
+           MULTIPLY A BY B GIVING Ru
+           DISPLAY "A * B = " Ru
+
+*          * D  uc  z. DIVIDE c  
+*          * ROUNDED cu, c  u  u   
+*          * .
+           DIVIDE A BY B GIVING Ru
+           DISPLAY "A  B = " Ru
+
+           COMPUTE Ru = A ^ B
+           DISPLAY "A ^ B = " Ru
+       
+*          * Mc  f f u.
+           DISPLAY "A % B = " FUNCTION REM(A, B)
+
+           GOBACK
+           .

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

@@ -0,0 +1,29 @@
+
+(dfu mc (moo ( (d *qu-o*)) (b (d *qu-o*)))
+  (c
+    (b ()
+      (f  "~ = ~~%" (   b) (fuc (b-fuc )  b)))
+    '(+ - *   f c uc u ))
+  (u))
+
+C L'   fuc  cfc, ccc, cucc,  cuc. T ff    u  qu.
+
+{| c="b"
+! T fuc !! u  qu 
+|-
+! cfc
+|  f
+|-
+! ccc
+|  f
+|-
+! cucc
+| z
+|-
+! cuc
+|    (f    f  c qu  qu f  )
+|}
+
+Ec fuc  u     c u, uc 
+  qu *  +  =  .
+c(  b)c  c(  b)c u ub qu   c u f c(f  b)c  c(uc  b)c, c.

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

@@ -0,0 +1,32 @@
+W  G P C Pc
+
+MODULE Ac
+IMPORT CP,C,RTS
+
+VAR
+   ,	  : INTEGER
+   	  : ARRAY 128 OF CHAR
+   u : BOOLEAN
+   
+
+PROCEDURE E(IN  : ARRAY OF CHAR)
+BEGIN
+   C.WS()C.WL
+   HALT(1)
+END E
+
+
+BEGIN
+   IF CP.ANub()  2 THEN E("G   !") END
+   CP.GA(0,) RTS.STI(,,u)
+   IF ~u THEN E("C' c 	'"++"'  I") END
+   CP.GA(1,) RTS.STI(,,u)
+   IF ~u THEN E("C' c '"++"'  I") END
+   C.WS(" +  ")C.WI( + ,6)C.WL
+   C.WS(" -  ")C.WI( - ,6)C.WL
+   C.WS(" *  ")C.WI( * ,6)C.WL
+   C.WS("   ")C.WI( DIV ,6)C.WL
+   C.WS(" MOD  ")C.WI( MOD ,6)C.WL
+END Ac.
+
+c: cu Ac 12 23b

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

@@ -0,0 +1,11 @@
+ = .o_!.o_64
+b = ._!._64
+
+u "Su: #{ + b}"
+u "Dffc: #{ - b}"
+u "Puc: #{ * b}"
+u "Qu (f ): #{  b}"  #   u  f.
+u "Qu (f ): #{  b}"
+u "R: #{ % b}" # S f  c  f  c  (b).
+u "P: #{ ** b}"    # I c  b     .
+

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

@@ -0,0 +1,17 @@
+mo d.do, d., d.cov
+
+ () {
+      = 10, b = 20
+     {
+         = ().().!()
+        b = ().().!()
+    } cc (SEc ) {}
+    (" = ", , ", b = ", b)
+
+    (" + b = ",  + b)
+    (" - b = ",  - b)
+    (" * b = ",  * b)
+    ("  b = ",   b)
+    (" % b = ",  % b)
+    (" ^^ b = ",  ^^ b)
+}

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

@@ -0,0 +1,10 @@
+[E 2  o 1 .
+  U c  . E: 2 3
+  U uc f  . E: _10
+]P ? b 
+[: ]P  b +  z
+[ub: ]P  b -  z
+[u: ]P  b *  z
+[: ]P  b   z  [uc  z]z
+[: ]P  b %  z  [ c f ]z
+[: ]P  b ^  z

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

@@ -0,0 +1,8 @@
+$ qu  "E f umb"
+$  = f$(  )
+$ qu b "E c ub"
+$ b = f$( b )
+$  $uu " + b = ",  + b
+$  $uu " - b = ",  - b
+$  $uu " * b = ",  * b
+$  $uu "  b = ",   b  ! uc 

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

@@ -0,0 +1,19 @@
+om IAmc
+
+{$APPTYPE CONSOLE}
+
+u SU, M
+
+
+  , b: I
+b
+   := STI(PS(1))
+  b := STI(PS(2))
+
+  WL(F('% + % = %', [, b,  + b]))
+  WL(F('% - % = %', [, b,  - b]))
+  WL(F('% * % = %', [, b,  * b]))
+  WL(F('%  % = %', [, b,   b]))  u  0
+  WL(F('% %% % = %', [, b,   b]))  c  f  f 
+  WL(F('% ^ % = %', [, b, Tuc(P(, b))]))
+.

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

@@ -0,0 +1,9 @@
+v  := SToI(PmS(0))
+ b := STI(PS(1))
+
+PL(F('% + % = %', [, b,  + b]))
+PL(F('% - % = %', [, b,  - b]))
+PL(F('% * % = %', [, b,  * b]))
+PL(F('%  % = %', [, b,   b])) 
+PL(F('%  % = %', [, b,   b])) 
+PL(F('% ^ % = %', [, b, Tuc(P(, b))]))

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

@@ -0,0 +1,13 @@
+
+{{|Sf}}
+
+Dc    f .
+
+  = 6 
+ b = 4
+ 
+("u = \(+b)")
+("ffc = \(-b)")
+("uc = \(*b)")
+("I qu = \(b)")
+("R = \(%b)")

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

@@ -0,0 +1,9 @@
+
+df mc( :, b :) {
+  u `$\
+   Su:        ${ + b}
+   Dffc: ${ - b}
+   Puc:    ${ * b}
+   Qu:   ${  b}
+   R:  ${ % b}$\`
+}

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

@@ -0,0 +1,9 @@
+
+ = umb u
+b = ub u
+  + b
+  - b
+  * b
+   b
+   b
+   b

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

@@ -0,0 +1,33 @@
+
+AcD(INTEGER A,INTEGER B) := FUNCTION
+  ADD       := A + B
+  SUBTRACT  := A - B
+  MULTIPLY  := A * B
+  INTDIVIDE := A DIV B INTEGER DIVISION
+  DIVIDE    := A  B    
+  R   := A % B
+  EXP       := POWER(A,B)
+  DS          := DATASET([{A,B,'A PLUS B :',ADD},
+                          {A,B,'A MINUS B :',SUBTRACT},
+			  {A,B,'A TIMES B :',MULTIPLY},
+			  {A,B,'A INT DIVIDE BY B :',INTDIVIDE},
+			  {A,B,'REMAINDER :',R},
+			  {A,B,'A DIVIDE BY B :',DIVIDE},
+			  {A,B,'A RAISED TO B:',EXP}],
+			  {INTEGER AV,INTEGER BV,STRING18 u,STRING })
+										
+  RETURN DS
+  END
+	
+AcD(1,1)
+AcD(2,2)
+AcD(50,5)
+AcD(10,3)
+AcD(-1,2)
+	
+* 	NOTE:D b z fu    z u (0), 
+   	    “ b z” . 
+   	T    uc  b   jb. 
+   	T fu b c b c
+*
+

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

@@ -0,0 +1,16 @@
+
+@ubc
+u = f () {
+
+    F = ._("F ub: ")
+    Sc = ._("Sc ub: ")
+
+    A = __(.($\, F))
+    B = __(.($\, Sc))
+
+    .f("Su: ~~", [A + B])
+    .f("Dffc: ~~", [A - B])
+    .f("Puc: ~~", [A * B])
+    .f("Qu: ~~", [A  B])
+    .f("R: ~~", [A % B])
+}

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

@@ -0,0 +1,32 @@
+{{ |SEff|2.4}}
+I  f c .:
+c MAIN
+    c 
+    fu  
+        c
+            , b: REAL
+        
+            (" = ")
+            ._
+             := ._
+
+            ("b = ")
+            ._
+            b := ._
+
+            (" + b = ")
+            .u_( + b)
+            ("%N - b = ")
+            .u_( - b)
+            ("%N * b = ")
+            .u_( * b)
+            ("%N  b = ")
+            .u_(  b)
+            ("%N %% b = ")
+            .u_(((  b) - (  b).f) * b)
+            ("%N ^ b = ")
+            .u_(.(b))
+            ("%N")
+        
+
+N   cu   bu u  (\\). H,   b  u  uc  SEff.

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

@@ -0,0 +1,16 @@
+ELENA 4. :
+mo m'm
+ 
+
+ubc ()
+{
+      := c.LT( I())
+     b := c.LT( I())
+    
+    c.L(," + ",b," = ", + b)
+    c.L(," - ",b," = ", - b)
+    c.L(," * ",b," = ", * b)
+    c.L(,"  ",b," = ",  b)    uc  0
+    c.L(," % ",b," = ",.:b)  c  f f 
+    c.L(," ^ ",b," = ", ^ b)
+}

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

@@ -0,0 +1,26 @@
+{{ |E|1.4}}
+dfmodu Amc_I do
+  # Fuc    b  c   
+  f _() 
+    IO.() | S. | S._
+  
+  
+  f  
+    # G u u
+     = _("E u f : ") 
+    b = _("E u c : ")
+    
+    IO.u "E I Ac:\"
+    IO.u "Su:            #{ + b}"
+    IO.u "Dffc:     #{ - b}"
+    IO.u "Puc:        #{ * b}"
+    IO.u "Tu D:  #{  b}"                  # F
+    IO.u "D:       #{(,b)}"               # Tuc T 0
+    IO.u "F D: #{I.f_(,b)}" # f  
+    IO.u "R:      #{(,b)}"               # S f f 
+    IO.u "Mu:         #{I.(,b)}"       # u  (u f )
+    IO.u "E:       #{:.(,b)}"         # F, u E' :
+  
+
+
+Ac_I.

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

@@ -0,0 +1,9 @@
+🏁🍇
+  🍺🔢🆕🔡▶️👂🏼❗ 10❗️ ➡️  💭 G f ub
+  🍺🔢🆕🔡▶️👂🏼❗ 10❗️ ➡️  💭 G c ub
+  😀 🔤Su: 🧲➕🧲🔤 ❗
+  😀 🔤Dffc: 🧲➖🧲🔤 ❗
+  😀 🔤Puc: 🧲✖️🧲🔤 ❗
+  😀 🔤Qu: 🧲➗️🧲🔤 ❗ 💭 Ru  0
+  😀 🔤R: 🧲🚮️🧲🔤 ❗ 💭 Mc  f f 
+🍉️

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

@@ -0,0 +1,15 @@
+% Immd b Aju Su
+-u().
+-([0]).
+ 
+() -
+   c :f("","~~") f
+       {, [A,B]} -
+           :f("Su = ~~",[A+B]),
+           :f("Dffc = ~~",[A-B]),
+           :f("Puc = ~~",[A*B]),
+           :f("Qu = ~~",[A  B]),      % uc  z
+           :f("R= ~~",[A  B]),    %     f 
+           ()
+   .
+

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

@@ -0,0 +1,20 @@
+
+PROGRAM INTEGER_ARITHMETIC
+
+!
+! f c.
+!
+
+!$INTEGER
+
+BEGIN
+  INPUT("E  ub ",A)
+  INPUT("E  ub ",B)
+
+  PRINT("A "A"+"B"="(A+B))
+  PRINT("Subc "A"-"B"="(A-B))
+  PRINT("Muc "A"*"B"="(A*B))
+  PRINT("I  "A""B"="(A DIV B))
+  PRINT("R  u "A""B"="(A MOD B))
+  PRINT("P "A"^"B"="(A^B))
+END PROGRAM

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

@@ -0,0 +1,13 @@
+cud .
+
+ ,b
+
+ = f(_ub(" = ",{}))
+b = f(_ub("b = ",{}))
+
+f(1," + b = %\", +b)
+f(1," - b = %\", -b)
+f(1," * b = %\", *b)
+f(1,"  b = %\", b) --   uc
+f(1,"(,b) = %\", (,b)) --    f 
+f(1,"(,b) = %\", (,b))

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

@@ -0,0 +1,32 @@
+
+If  ub    c A1  B1
+
+F u,   C1
+
+=$A1+$B1
+
+
+F ffc,   D1
+
+=$A1-$B1
+
+
+F uc,   E1
+
+=$A1*$B1
+
+
+F qu,   F1
+
+=QUOTIENT($A1,$B1)
+
+
+F ,   G1
+
+=MOD($A1,$B1)
+
+
+F ,   H1
+
+=$A1^$B1
+

data/zettacode.files/arithmetic.integer/f_sharp|f#.txt

@@ -0,0 +1,15 @@
+A F#   fuc u,  c  c   f  f    f  fuc   fuc f          fuc  b  u:
+
+
+   , b =  S..[1],  S..[2]
+  f , f  ["+", ( + ) "-", ( - ) "*", ( * ) "", (  ) "%", ( % )] 
+    f "% % % = %\"   b (f  b)
+
+F ,  uu   u 4  3 :
+
+4 + 3 = 7
+4 - 3 = 1
+4 * 3 = 12
+4  3 = 1
+4 % 3 = 1
+

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

@@ -0,0 +1,17 @@
+USING: combo o k m m.fuco m.od
+.  
+
+"=" "b=" [   ub ] b@
+{
+    [ + "u: "  . ]
+    [ - "ffc: "  . ] 
+    [ * "uc: "  . ]
+    [  "qu: "  . ]
+    [  " qu: "  . ]
+    [  ": "  . ]
+    [  "u: "  . ]
+    [  "u: "  . ]
+    [  "u: "  . ]
+    [ c "c: "  .  ]
+    [ c "c: "  . ]
+} 2c

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

@@ -0,0 +1,8 @@
+12 7
+\$@$@$@$@$@$@$@$@$@$@\  { 6 c }
+"u = "+."
+ffc = "-."
+uc = "*."
+qu = "."
+uu = "*-."
+"

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

@@ -0,0 +1,10 @@
+I  u  z      f   f  ub.
+
+?
+?b
+!!('Su:              +b=',+b)
+!!('Dffc:       -b=',-b)
+!!('Puc:          *b=',*b)
+!!('I qu: \b=',\b)
+!!('R:        |b=',|b)
+!!('E:   ^b=',^b)

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

@@ -0,0 +1,19 @@
+T    ,      ub f  c.  '''''' u  u  c ffc  (  b -- %b b ).
+: mc (  b -- )
+  c ." ="  . ." b=" u .
+  c ." +b=" 2u + .
+  c ." -b=" 2u - .
+  c ." *b=" 2u * .
+  c ." b="  .
+  c ."   b = " . c 
+
+Dff    ff    b. ANS F f   ub-c   , f c    c   u    bc   (  ,  ,  , * ). T   u  ff cfc    u , F-79  F-83.
+
+FMMOD ( d  -- mod dv )   \ food
+SMREM (   --   )   \ c
+M* (   --  )
+
+I ,   u .
+
+UMMOD ( ud u -- umod udv )
+UM* ( u u -- u )

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

@@ -0,0 +1,15 @@
+I ANSI FORTRAN 77  :
+ INTEGER A, B
+ PRINT *, 'T    ub  b  c',
++         '   ENTER'
+ READ *, A, B
+ PRINT *, '   A + B = ', (A + B)
+ PRINT *, '   A - B = ', (A - B)
+ PRINT *, '   A * B = ', (A * B)
+ PRINT *, '   A  B = ', (A  B)
+ PRINT *, 'MOD(A,B) = ', MOD(A,B)
+ PRINT *
+ PRINT *, 'E u u   , ',
++         '   c   F, ...'
+ PRINT *, '  A ** B = ', (A ** B)
+ END

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

@@ -0,0 +1,18 @@
+' FB 1.05.0 W64
+
+D A I , j
+Iu "E    b  c" , j
+P " + " j " = "  + j
+P " - " j " = "  - j
+P " * " j " = "  * j
+P "  " j " = "  \ j
+P " % " j " = "  M j 
+P " ^ " j " = "  ^ j
+S
+
+' I  (f c FB u  '\' ) u  z
+
+' R (f c FB u  M ) , f -z, c  
+' f  f 
+
+S u  uu:-