zettacode 0.1.0

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

@@ -0,0 +1,25 @@
+A Ac  NSIS   b  [:.ucf.DcC4.#4.9.10.2 IO] uc.  I  b  c f     u u ( f  ),  I  b  -c u u  u u,    f    u-u c.
+Fuco Amc
+	Pu $0
+	Pu $1
+	Pu $2
+	SC $0 21
+	SC $1 -2
+	
+	IO $2 $0 + $1
+	DP "$0 + $1 = $2"
+	IO $2 $0 - $1
+	DP "$0 - $1 = $2"
+	IO $2 $0 * $1
+	DP "$0 * $1 = $2"
+	IO $2 $0  $1
+	DP "$0  $1 = $2"
+	DP "Ru    f"
+	IO $2 $0 % $1
+	DP "$0 % $1 = $2"
+	DP "S f  c  f ub"
+	
+	P $2
+	P $1
+	P $0
+FucE

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

@@ -0,0 +1,14 @@
+Of Ob-2
+
+MODULE Ac
+IMPORT I, Ou
+VAR
+        ,: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.

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

@@ -0,0 +1,17 @@
+bud Dfu {
+  c Ac {
+    fuc : M( : S.S[]) ~ N {
+      DAc()
+    }
+	
+    fuc :  : DAc() ~ N {
+       := IO.C-GIc()-RS()-TI()
+      b := IO.C-GIc()-RS()-TI()
+  
+      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)
+    }
+  }
+}

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

@@ -0,0 +1,9 @@
+ _ =
+    = _ ()
+   b = _ () 
+
+  Pf.f " + b = %\" ( + b)
+  Pf.f " - b = %\" ( - b)
+  Pf.f " * b = %\" ( * b)
+  Pf.f "  b = %\" (  b)    (* uc  0 *)
+  Pf.f "  b = %\" (  b) (*    f  *)

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

@@ -0,0 +1,9 @@
+
+:  ( b -- )
+   " + b ="   .  b + .c
+   " - b ="   .  b - .c
+   " * b ="   .  b * .c
+   "  b ="   .  b  .c
+   "  b =" .  b  .c 
+   "  b =" .  b  .c
+

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

@@ -0,0 +1,23 @@
+
+
+(f  8)
+(f b 12)
+
+( "(+ "  " " b ") = "    (+  b))
+( "(- "  " " b ") = "    (-  b))
+( "(* "  " " b ") = "    (*  b))
+( "( "  " " b ") = "    (  b))
+
+( "(qu "  " " b ") = "  (qu  b))    (qu  b)
+( "( "  " " b ") = " (   b))    (  b)
+( "(u "  " " b ") = "    (   b))    (u  b)
+
+( "( "  " " b ") = " (  b))
+( "(c "  " " b ") = " (c  b))
+( "(c "  " " b ") = " (c  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

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

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

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

@@ -0,0 +1,6 @@
+
+co (+b)  * Sum *
+c (-b)  * Dffc *
+c (*b)  * Puc *
+c (b)  * Qu *
+c (%b)  * Muu *

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

@@ -0,0 +1,19 @@
+dc
+  SI = {N c $ f O.f O.  (:)}
+
+  fu {RI}
+     {S.I {SI S($)}}
+  
+
+  A = {RI}
+  B = {RI}
+
+  {FA
+   ["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}
+   ]
+   S.If}

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

@@ -0,0 +1,2 @@
+U fc    fuc f  ub  ub  u ub.
+=3 b=7 fuc:_bbf__umb_umb_umb =f.m.b '('  b ')' ' = ' f( b) 

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

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

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

@@ -0,0 +1,14 @@
+om mc(u, ouu)
+
+
+ , b: 
+
+b
+ (, b)
+ ('+b = ', +b)
+ ('-b = ', -b)
+ ('*b = ', *b)
+ ('b = ',   b, ',  ',   b)
+ ('^b = ',P(,b):4:2)    { }
+ ('^b = ',IP(,b):4:2) { }
+.

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

@@ -0,0 +1,12 @@
+{{ |P|5.}}
+m $ = 
+ $b = 
+
+
+    "u:              ", $ + $b, "\",
+    "ffc:       ", $ - $b, "\",
+    "uc:          ", $ * $b, "\",
+    " qu: ", ($  $b), "\",
+    ":        ", $ % $b, "\",
+    ":         ", $ ** $b, "\"
+    

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

@@ -0,0 +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"
+ 
+  ="c: #004080"I  ="c: #000000"b ="c: #0000FF",  ="c: #000000"b ="c: #0000FF",  ="c: #000000" ="c: #0000FF",  ="c: #000000"
+ 
+  ="c: #008080"c  ="c: #000000"f  ="c: #0000FF"=  ="c: #008000""""
+  = %
+ b = %
+  + b = %
+  - b = %
+  * b = %
+   b = %  (  uc)
+ (,b) = % (   f )
+ (,b) = %
+ """
+ 
+  ="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
+ 
+  ="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
+  
+  ="c: #000000" ="c: #0000FF"()
+!----

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

@@ -0,0 +1,14 @@
+df O
+       
+f
+
+8   3  b
+" = "  O
+"b = " b O
+
+" + b = "  b + O
+" - b = "  b - O
+" * b = "  b * O
+"(  b) = "  b   O
+"  b = "  b  O
+" ^ b = "  b  O

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

@@ -0,0 +1,20 @@
+
+modu 
+
+ f
+ cf
+
+@I  [
+	@P@I  = c(4)
+	@P@I b = c(4)
+	cf("% %", , b)
+	
+	f(" + b = %\", :: + b::)
+	f(" - b = %\", :: - b::)
+	f(" * b = %\", :: * b::)
+	f("  b = %\", ::  b::)
+	f(" % b = %\", :: % b::)
+	f(" ** b = %\", :: ** b::)
+	
+	u 0
+]

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

@@ -0,0 +1,13 @@
+?
+$ = f(STDIN)
+$b = f(STDIN)
+
+c
+    "u:                 ", $ + $b, "\",
+    "ffc:          ", $ - $b, "\",
+    "uc:             ", $ * $b, "\",
+    "uc qu: ", ()($  $b), "\",
+    "f qu:   ", f($  $b), "\",
+    ":           ", $ % $b, "\",
+    ":               ", $ ** $b, "\"  PHP 5.6+ 
+?

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

@@ -0,0 +1,8 @@
+m =
+    X = _(),
+    Y = _(),
+    fc (O  [+,-,*,,])
+        R = (O,X,Y),
+        f("% % % = %\", X, O, Y, R)
+    .
+

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

@@ -0,0 +1,8 @@
+(d m (A B)
+   ( "A      " (+ A B))
+   ( "Subc " (- A B))
+   ( "Mu " (* A B))
+   ( "D   " ( A B))        # Tuc  z
+   ( "D  " (* A B))       # Ru   
+   ( "Muu  " (% A B))        # S f  f 
+   ( "P    " (** A B)) )

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

@@ -0,0 +1,38 @@
+[[F:PAcI.]]b
+ c
+ c   c
+ ()   A
+ uc AA
+ uc AAA
+ uc AAAA
+ uc AAAAA
+ ()   BAAAAA
+ uc BBAAAAA
+ uc BBBAAAAA
+ uc BBBBAAAAA
+ uc BBBBBAAAAA
+ u 9    9BBBBBAAAAA
+ u 1    19BBBBBAAAAA
+       BBBBAAAABA
+ u 7    7BBBBAAAABA
+ u 1    17BBBBAAAABA
+       BBBAAABABA
+ u 5    5BBBAAABABA
+ u 1    15BBBAAABABA
+       BBAABABABA
+ u 3    3BBAABABABA
+ u 1    13BBAABABABA
+       BABABABABA
+        (A+B)BABABABA
+ u()  BABABABA
+ ub       (A-B)BABABA
+ u()  BABABA
+ u      (A*B)BABA
+ u()  BABA
+     (AB)BA
+ u()  BA
+        (A%B)
+ u()  NULL
+ u 1    1
+ c
+H u    u   , bu I b    u  0.

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

@@ -0,0 +1,8 @@
+ =""
+  (, b)
+u   (+b)
+u   (-b)
+u   (*b)
+u   (uc(b)) * uc  z.       *
+u   ((, b))  * R   . *
+u   ((, b))  * S c b .         *

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

@@ -0,0 +1,26 @@
+To u:
+S u.
+D  c.
+W f  c .
+Su .
+
+T   c:
+W "E  ub: "   c u c.
+R  ub f  c.
+W "E  ub: "   c u c.
+R  ub f  c.
+S  c  b  ub    ub.
+
+T   c  b  ub   ub:
+W  ub u   ub  "   u."   c.
+W  ub u   ub  "   ffc."   c.
+W  ub    ub  "   uc."   c.
+S   f  ub b   ub.
+R  ub    ub.
+W  ub  "   ."   c.
+
+T    f  ub b  ub:
+Pz  ub.
+D  ub b   ub   qu [u  z]    [      ].
+W  qu  "   qu."   c.
+W    "   ."   c.

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

@@ -0,0 +1,12 @@
+
+ Su ok d
+ 
+c(c) - 
+   ub
+  = (), b = ()
+ P u
+f( + b, ' + b = %\')
+f( - b, ' - b = %\')
+f( * b, ' * b = %\')
+f(  b, '  b = %\')
+f(  b, '  b = %\')

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

@@ -0,0 +1,10 @@
+I {
+    c f
+    c f
+      =
+     ub =
+     u =
+      =
+      =
+      =
+} f

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

@@ -0,0 +1,15 @@
+$ = [] (Rd-Ho F Numb)
+$b = [] (R-H Sc Nub)
+
+W-H "Su:                              $($ + $b)"
+W-H "Dffc:                       $($ - $b)"
+W-H "Puc:                          $($ * $b)"
+W-H "Qu:                         $($  $b)"
+W-H "Qu, u  :          $([M]::Ru($  $b))"
+W-H "R,  f f:    $($ % $b)"
+Nub  uc c  cc f  u. T     I32  b   I64 bu    - qu  cu  u  b f  f- .
+
+T     f  f .
+
+N   , bu c b  u   .NET BCL:
+[M]::Pow($, $b)

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

@@ -0,0 +1,7 @@
+  = 7, b = 5
+
+( + " + " + b + " = " + ( + b))
+( + " - " + b + " = " + ( - b))
+( + " * " + b + " = " + ( * b))
+( + "  " + b + " = " + (  b)) Ru  z
+( + " % " + b + " = " + ( % b)) S   f 

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

@@ -0,0 +1,35 @@
+IGNORELINE No: T m cud  m modu.
+cu cu
+:
+  u= =E f : 
+  u=b =E c :
+  u=c 
+  --,-b-=-c-
+ -c-
+ ubc ,b
+ -c-
+ u ,b
+ -c-
+  ,b
+ -c-
+ uu ,b
+ -c-
+  u= =D u   ccu  ub?
+f -- u   :   :
+:
+
+IGNORELINE No: T m do o u  m modu.
+:
+  u= =E f : 
+  u=b =E c :
+  u=--+-b-=-c-
+ -c-
+  u=*b=c
+ -c-
+  u=b=c
+ -c-
+  u= %% b=c
+ -c-
+  u= =D u   ccu  ub?
+f -- u   :   :
+:

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

@@ -0,0 +1,33 @@
+
+I qu (``) u  0.
+
+R (``) c   f  f .
+
+
+
+___u(M, N, O) :-
+    E =.. [O, M, N],
+    Ru  E,
+    f('~ ~8| ~~', [E, Ru]).
+
+c_ :-
+    (M),
+    (N),
+    ( ___u(M, N), [+,-,*,,,^] ).
+
+
+
+U u:
+
+
+?- c_.
+|: 5.
+|: 7.
+5+7      12
+5-7      -2
+5*7      35
+57     0
+5  7  5
+5^7      78125
+u.
+

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

@@ -0,0 +1,17 @@
+OCoo()
+ 
+Df , b
+
+P("Nub 1: "):  = V(Iu())
+P("Nub 2: "): b = V(Iu())
+
+PN("Su:        " + S( + b))
+PN("Dffc: " + S( - b))
+PN("Puc:    " + S( * b))
+PN("Qu:   " + S(  b))  I  (u =uc)
+PN("R: " + S( % b))
+PN("P:      " + S(P(, b)))
+ 
+Iu()
+ 
+CC()

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

@@ -0,0 +1,47 @@
+
+ = (w_u("Numb 1: "))
+ = (_u("Nub 2: "))
+
+ "Su: %" % ( + )
+ "Dffc: %" % ( - )
+ "Puc: %" % ( * )
+ "Qu: %" % (  )     #       f   .
+                                   # uc   f
+ "R: %" % ( % )    #    c 
+ "Qu: %  R: %" % (, )
+ "P: %" % **
+
+## O u     u    
+_u( )
+
+N: I P3 ''_u()''  b   ''u()'' (  ''u()'' bu-   , u  cu u ''(u())''  u   ...  - ... b).  A  b  u    ''()'' c   '': ... c VuE:...'' cuc uc :
+
+df um(om):
+     Tu: #  ...
+        :
+             = (_u())
+        c VuE:
+             "Iu cu  b    . P  ."\
+            cu
+        b
+    u 
+
+ = u("Nub1: ")
+ = u("Nub2: ")
+...
+
+(I  '  cc  f  f  u  c  bc.  T  c u f c u u, bu      f cfu   f,   f  c   IPC c).
+
+P    cu ''''  u b qu  . 
+ qu,  = (355,113)
+G  qu f 3,    f 16. 
+
+=== P 3.0 cb c ===
+df mc(, ):
+    f   "+ - *  % **".():
+         = "%() %() %()" % ()
+        ("%\= %" % (, ()))
+
+
+c(12, 8)
+c(u("Nub 1: "), u("Nub 2: "))

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

@@ -0,0 +1,21 @@
+''CBTJD'': 20200312
+START:
+INPUT "E   (,b):" !, b!
+IF  = 0 THEN END
+IF b = 0 THEN
+    PRINT "Sc   z. Z   f Qu  R."
+    GOTO START
+END IF
+PRINT
+PRINT "             Su = "  + b
+PRINT "      Dffc = "  - b
+PRINT "         Puc = "  * b
+' Nc  u f  INTEGER D "\"     u  "".
+PRINT "I Qu = "  \ b, , "* Ru  0."
+PRINT "       R = "  MOD b, , "* S c f ."
+PRINT "  E = "  ^ b
+PRINT
+INPUT "A? (N)" $
+IF UCASE$($) = "Y" THEN CLS: GOTO START
+CLS
+END

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

@@ -0,0 +1,12 @@
+
+ ="quc "  $ "P     b  c. "
+  u quc
+  2u  "T u :              " +    c c
+  2u  "T ffc :       " -    c c
+  2u  "T uc : "        " *    c c
+  2u  "T  qu : "     c c
+  2u  "T  :        "   c c
+        "T  :   " **   c c
+  c
+   "Qu u   f." c
+   "R c   f  c u."

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

@@ -0,0 +1,11 @@
+c(" umb ")
+ - c(=1, qu=TRUE)
+c(" ub ")
+b - c(=1, qu=TRUE)
+(('+b=', +b))
+(('-b=', -b))
+(('*b=', *b))
+(('%%b=', %%b))
+(('%%b=', %%b))
+(('^b=', ^b))
+

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

@@ -0,0 +1,8 @@
+
+# cb
+
+(f (c  )
+  (f ([ ( + - *  qu  u   c c)])
+    (f "~ = ~\" `(,(bjc- ) , ,) (  ))))
+
+(c 8 12)