zettacode 0.1.0

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

@@ -0,0 +1,8 @@
+oc( = 6, b = 4)
+# + #b  10
+# - #b  2
+# * #b  24
+#  #b  1
+# % #b  2
+_(#,#b)  1296
+_(#b,#)  4096

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

@@ -0,0 +1,32 @@
+
+
+(fu 
+  ( ))
+
+(fu - ()
+  (c (:  f '"P   : " '"~~")
+    ((u ' ( b))
+      (:  f '"~ + ~ = ~~" (  b (+  b)))
+      (:  f '"~ - ~ = ~~" (  b (-  b)))
+      (:  f '"~ * ~ = ~~" (  b (*  b)))
+      (:  f '"~^~ = ~~" (  b (:    b)))
+        uc  z
+      (:  f '"~  ~ = ~~" (  b (  b)))
+       ' u       f 
+      (:  f '"~  ~ = ~~" (  b (  b))))))
+
+
+U f  LFE REPL:
+
+ (u '".f")
+#( )
+ (-)
+P   : 2 8
+2 + 8 = 10
+2 - 8 = -6
+2 * 8 = 16
+2^8 = 256.0
+2  8 = 0
+2  8 = 2
+
+

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

@@ -0,0 +1,12 @@
+N      c     u    -f- .
+
+u "E  f :  " f
+u "E  c : " c
+
+ "T u  "  f + c
+ "T ffc  "  f -c
+ "T uc  "  f *c
+f c 0   "T  qu  "  ( f c) " (u  0)"   "D b z  ."
+ "T   "  f MOD c " ( c f )"
+ "T f     f  c  "  f ^c
+

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

@@ -0,0 +1,14 @@
+# AmcI,  LIL
+ "E  ub  b c: "
+f {[c]} {  []}
+
+
+  [ $ 0]
+ b [ $ 1]
+ "A  $"", B  $b"
+ "Su               A + B  [ $ + $b]"
+ "Dffc        A - B  [ $ - $b]"
+ "Puc           A * B  [ $ * $b]"
+ "I Qu  A \\ B  [ $ \ $b], uc  z"
+ "R         A % B  [ $ % $b],  f f "
+ "LIL     "

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

@@ -0,0 +1,10 @@
+-- X, Y: 2 db fd mmb, ow     cu GUI
+ = (b("X").)
+ = (b("Y").)
+
+u "Su: "       ,  + 
+u "Dffc: ",  - 
+u "Puc: "   ,  * 
+u "Qu: "  ,      -- Tuc  z
+u "R: " ,    -- Ru   f f 
+u "E: "  , (, )

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

@@ -0,0 +1,15 @@
+# Mb ou d o mo  mmc fuco 
+# f Tc :
+# ("c  ::c::fuc")
+
+ () {
+     , b 
+    u("E  :")
+     = ()(()) 
+    b = ()(()) 
+    u("${} + ${b} = ${+b}")
+    u("${} - ${b} = ${-b}")
+    u("${} * ${b} = ${*b}")
+    u("${}  ${b} = ${b},  ${%b}")
+    u("${}    f ${b} = ${()(,b)}")
+}

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

@@ -0,0 +1,17 @@
+k " 2 umb (comm d)"
+f     
+    u  1 f   1
+    u  2 f   2
+    u u(1,2)  ["u"]
+    u 1 * 2  ["uc"]
+    u 1  2  ["qu"]  -- uc
+    u 1  2  [""]
+    u 1^2  [""]
+    cb  u c  c
+    u 
+ f
+Em-2,4  - ow:16,oduc:-8,quo:0,md:-2,um:2
+2,-4  - :0.0625,uc:-8,qu:0,:2,u:-2
+-2,-4 - :0.0625,uc:8,qu:0,:-2,u:-6
+2,4   - :16,uc:8,qu:0,:2,u:6
+11,4  - :14641,uc:44,qu:2,:3,u:15

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

@@ -0,0 +1,11 @@
+o o : :b
+  ( [ =] :)
+  ( [b =] :b)
+  ( [ + b =] : + :b)
+  ( [ - b =] : - :b)
+  ( [ * b =] : * :b)
+  ( [  b =]  :  :b)
+  ( [  b =] u : :b)
+
+
+Ec f     f  (u, ffc, uc, qu). Su  uc c        u   (u 1 2 3). If      cc u    c  u    b  cc .

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

@@ -0,0 +1,10 @@
+ov : 2 ck
+2u :  
+
+c : \
+  " A=" ,  ,  " B=" , u ,  \
+  " A+B=" , 2u + ,  \
+  " A-B=" , 2u - ,  \
+  " A*B=" , 2u * ,  \
+  " AB=" , 2u  ,  \
+  " A%B=" ,      % , 

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

@@ -0,0 +1,9 @@
+oc  = o.d()
+c  = .()
+
+ ("Su: "       , ( + ))
+ ("Dffc: ", ( - ))
+ ("Puc: "   , ( * ))
+ ("Qu: "  , (  )) -- D  uc
+ ("R: " , ( % )) -- Ru   f  
+ ("E: "  , ( ^ ))

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

@@ -0,0 +1,54 @@
+W c  u b  %, c  ub    c . T c  17 . A A%=1.5   2,  1. T   c u: A%=12  1  A%. W c u FLOOR()  INT()   ,  CEIL(),     BANK() c   B Ru: BANK(2.5)=2  BANK(3.5)=4.
+
+
+
+
+ ="2000 "
+MODULE LCBc {
+      \\ ADDITION: EUCLIDEAN DIV#  MOD# AND ** FOR POWER INCLUDING ^
+      10 INPUT "ENTER A NUMBER:" A%
+      20 INPUT "ENTER ANOTHER NUMBER:" B%
+      30 PRINT "ADDITION:"A%"+"B%"="A%+B%
+      40 PRINT "SUBTRACTION:"A%"-"B%"="A%-B%
+      50 PRINT "MULTIPLICATION:"A%"*"B%"="A%*B%
+      60 PRINT "INTEGER DIVISION:"A%"DIV"B%"="A% DIV B%
+      65 PRINT "INTEGER EUCLIDEAN DIVISION:"A%"DIV"B%"="A% DIV# B%
+      70 PRINT "REMAINDER OR MODULO:"A%"MOD"B%"="A% MOD B%
+      75 PRINT "EUCLIDEAN REMAINDER OR MODULO:"A%"MOD#"B%"="A% MOD# B%
+      80 PRINT "POWER:"A%"^"B%"="A%^B%
+      90 PRINT "POWER:"A%"**"B%"="A%**B%
+}
+LCBc
+
+
+Mu IT {
+      =12% ' I 16 b
+      b=12 ' L 32 b
+      c=12@' Dc (29 )
+      Df ET$()=T$()
+      P ET$(+1)="Dub"
+      P ET$(+1%)="I"
+      P ET$(  5)="Dub"
+      P ET$(  5%)="Dub"
+      P ET$(  5)="Dub"
+      P ET$(  5%)="Dub"
+      P ET$(**2)="Dub"
+      
+      P ET$(b+1)="Dub"
+      P ET$(b+1)="L"
+      P ET$(b  5)="Dub"
+      P ET$(b  5)="Dub"
+      P ET$(b  5)="Dub"
+      P ET$(b  5)="Dub"
+      P ET$(b**2)="Dub"
+
+      P ET$(c+1)="Dc"
+      P ET$(c+1@)="Dc"
+      P ET$(c  5)="Dc"
+      P ET$(c  5@)="Dc"
+      P ET$(c  5)="Dc"
+      P ET$(c  5@)="Dc"     
+      P ET$(c**2)="Dub"
+}
+IT
+

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

@@ -0,0 +1,17 @@
+
+Bcu f  cu u f M4,   u-u   c f. A  f c c b u:
+v(A+B)
+(A-B)
+(A*B)
+(AB)
+(A%B)
+
+c    f, .. .4:
+
+4 -DA=4 -DB=6 .4
+
+ u   f '''':
+
+df(`A', 4)d
+f(`B', 6)
+cu(`.4')

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

@@ -0,0 +1,25 @@
+T    bu-.  A    c,    u u .
+
+DI := c()
+        c  := ( "Iu  : " ):
+        c b := ( "Iu  : " ):
+        f( "Su = %\",   + b ):
+        f( "Dffc = %\",   - b ):
+        f( "Puc = %\",   * b ):
+        f( "Qu = %\",  qu( , b, 'c' ) ):
+        f( "R = %\", c ) #  ( , b )
+        NULL # qu u
+ c:
+
+H    f c DI.
+
+ DI()
+Iu  : 15
+Iu  : 12
+Su = 27
+Dffc = 3
+Puc = 180
+Qu = 1
+R = 3
+
+

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

@@ -0,0 +1,51 @@
+T  b (f "T N" )     u     Mc  c   (, Mc 15, Mc P 6.0,  Mc P 6.0 E).   Mc' "b" fc   u   f    f  .  T  f  f b, u cc c   f, f z  bcu    c  .  M  u b   f b, fuc ( bu- fuc), ,    u (Mc   u-, SI-b qu ).  I      ''   b.
+
+----
+
+'''T N'''
+
+''F qu, c   u (..  z,   f, c.).''
+
+T   qu fuc  Mc,  c .  W u qu b   f b u u b f, c u   f,  uc, c u  z.
+
+''F , c    c   f  f   f  c , f   ff.
+''
+W u  Mc fuc (,), c u  u ,       . 
+
+'''Iuc'''
+
+E   f u cc f I1  I2.
+
+(      f  'I1:= '  'I2:=' ,   f  ub  )
+
+'''I'''
+
+'''Mc Iu  Ouu'''
+
+Mc "" u  uu  c c    (" uc c"). 
+
+'''Iu''':
+
+== '' u   u f := (f) ''
+
+I O:  ''I1'':='''-8'''
+
+I T:  ''I2'':='''3'''
+
+'''Ru''':
+
+== ''Mc uc ccu   u f = (u) .''
+
+u              :  ''I1'' + ''I2'' = -5  
+
+ffc       :  ''I1'' - ''I2'' = -11
+
+uc          :  ''I1'' · ''I2'' = -24
+
+ qu :  f(''I1''÷''I2'')=-3     uc(I1÷I2)=-2  
+
+        :  (''I1'',''I2'')=-2
+
+   :  ''I1''u''I2''u=-512
+
+----

data/zettacode.files/arithmetic.integer/mathematica}}-{{header|wolfram_language.txt

@@ -0,0 +1,18 @@
+Mc    fuc bu-    . E:
+ = Iu["Gv m   !"]
+b = Iu["G    !"]
+P["Yu   ", , "  ", b]
+P["u: ",  + b]
+P["ffc: ",  - b]
+P["uc: ",  b]
+P[" qu: ", Qu[, b]]
+P[": ", M[, b]]
+P[": ", ^b]
+ bc f u 17  3:
+Yu   17  3
+u: 20
+ffc: 14
+uc: 51
+ qu: 5
+: 2
+: 4913

data/zettacode.files/arithmetic.integer/matlab}}_-_{{header|octave.txt

@@ -0,0 +1,8 @@
+d(" : ")  = cf("%d", 1)
+(" b: ") b = cf("%", 1)
++b
+-b
+*b
+f(b)
+(,b)
+^b

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

@@ -0,0 +1,10 @@
+bock(
+   [: (""), b: ("b")],
+   ( + b),
+   ( - b),
+   ( * b),
+   (  b),
+   (qu(, b)),
+   ((, b)),
+   ^b
+)

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

@@ -0,0 +1,8 @@
+ = KBVu om:"F umb"
+ = KBVu :"Sc ub:"
+
+f "Su: %\" ( + ) 
+f "Dffc: %\" ( - ) 
+f "Puc: %\" ( * ) 
+f "Qu: %\" (  ) 
+f "R: %\" (  )

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

@@ -0,0 +1,44 @@
+
+:- u _.
+:- fc.
+
+:- _u .
+:-  (::, ::u)  .
+
+:- .
+:- _u , , .
+
+(!IO) :-
+    .c__u(A, !IO),
+    ( f
+        A = [AS, BS],
+        ._(AS, A),
+        ._(BS, B)
+      
+        .f("A + B = %\", [(A + B)], !IO),
+        .f("A - B = %\", [(A - B)], !IO),
+        .f("A * B = %\", [(A * B)], !IO),
+
+        % D: u  z.
+        %
+        .f("A  B = %\", [(A  B)], !IO),
+
+        % D: u  u f.
+        %
+        .f("A  B = %\", [(A  B)], !IO), 
+    
+        % Muu: X  Y = X - (X  Y) * Y.
+        %
+        .f("A  B = %\", [(A  B)], !IO),
+
+        % R: X  Y = X - (X  Y) * Y.
+        %
+        .f("A  B = %\", [(A  B)], !IO),
+
+        % E   u  fuc .2.
+        %
+        .f("A `` B = %\", [(A `` B)], !IO)
+      
+        .__u(1, !IO)
+    ).
+

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

@@ -0,0 +1,19 @@
+
+ []
+ "u ub : "
+1 := 
+ "u ub b: "
+2 := 
+ := c 1
+b := c 2
+
+f u( ) =
+   " "    " b = "  c( c() b) f
+
+u("+")
+u("-")
+u("*")
+u("")
+u("")
+
+

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

@@ -0,0 +1,5 @@
+{{ ||0.19.3}}
+(coc du - ' d "$1 - $2" w % u!) :ow
+
+("E  "  ) 2  ' 
+('+ '- '* ' ') qu- (' cc)  c

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

@@ -0,0 +1,18 @@
+MLI     f ' u'  , 
+  uu  u  ' uu'  .
+
+ =""MCSKIP "WITH" NL
+"" AcI
+"" u c  u  1,    2
+MCSKIP MT,
+MCINS %.
+MCDEF SL SPACES NL AS MCSET T1=%A1.
+MCSET T2=%A2.
+ + b   = %%T1.+%T2..
+ - b   = %%T1.-%T2..
+ * b   = %%T1.*%T2..
+  b   = %%T1.%T2..
+  b = %%T1.-%%%T1.%T2..*%T2...
+D  uc    
+   c  c u. R c
+  f  c , f   ff.

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

@@ -0,0 +1,31 @@
+MODULE 
+
+IMPORT  IOu
+
+VAR     , b    : INTEGER
+
+BEGIN
+  IOu.WS ("E   ub : ")   IOu.WBf
+  IOu.RI ()
+  IOu.RI (b)
+  IOu.WS (" + b   = ")  IOu.WI ( + b, 9)    IOu.WL
+  IOu.WS (" - b   = ")  IOu.WI ( - b, 9)    IOu.WL
+  IOu.WS (" * b   = ")  IOu.WI ( * b, 9)    IOu.WL
+  IOu.WS ("  b   = ")  IOu.WI ( DIV b, 9)  IOu.WL
+  IOu.WS (" MOD b = ")  IOu.WI ( MOD b, 9)  IOu.WL
+  IOu.WL
+END .Puc:$$ 
+E   ub : 12 7
+ + b   =        19
+ - b   =         5
+ * b   =        84
+  b   =         1
+ MOD b =         5
+
+$$ 
+E   ub : 123 -111
+ + b   =        12
+ - b   =       234
+ * b   =    -13653
+  b   =        -1
+ MOD b =        12

data/zettacode.files/arithmetic.integer/modula-3.txt

@@ -0,0 +1,15 @@
+MODULE A EXPORTS M
+
+IMPORT IO, F
+
+VAR , b: INTEGER
+
+BEGIN
+   := IO.GI()
+  b := IO.GI()
+  IO.Pu("+b = "  F.I( + b)  "\")
+  IO.Pu("-b = "  F.I( - b)  "\")
+  IO.Pu("*b = "  F.I( * b)  "\")
+  IO.Pu(" DIV b = "  F.I( DIV b)  "\")
+  IO.Pu(" MOD b = "  F.I( MOD b)  "\")
+END A.

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

@@ -0,0 +1,52 @@
+N: M[UMPS]    c "u".
+W b    ub, "u"   u      ""
+,     ffc.
+
+T b u  cc f "u"    
+ff f "",  D Ku' f (Vu 1 f  "b b"), 
+f u  bu f ccc b  fu b N H Ab (Auu 5, 1802 – A 6, 1829).
+
+A(f,cod)	 Mmc oo
+	W "Pu",?12,f,"+",c,?25," = ",f+c,!
+	W "Mu",?12,f,"-",c,?25," = ",f-c,!
+	W "Mu",?12,f,"*",c,?25," = ",f*c,!
+	W "D",?12,f,"",c,?25," = ",fc,!
+	W "I D",?12,f,"\",c,?25," = ",f\c,!
+	W "P",?12,f,"**",c,?25," = ",f**c,!
+	W "Mu",?12,f,"#",c,?25," = ",f#c,!
+	W "A",?12,f,"",c,?25," = ",fc,!
+	W "O",?12,f,"!",c,?25," = ",f!c,!
+	Qu
+
+D A(2,3)
+Pu        2+3           = 5
+Mu       2-3           = -1
+Mu    2*3           = 6
+D      23           = .6666666666666666667
+I D  2\3           = 0
+P       2**3          = 8
+Mu      2#3           = 2
+A         23           = 1
+O          2!3           = 1
+ 
+D A(16,0.5)
+Pu        16+.5         = 16.5
+Mu       16-.5         = 15.5
+Mu    16*.5         = 8
+D      16.5         = 32
+I D  16\.5         = 32
+P       16**.5        = 4
+Mu      16#.5         = 0
+A         16.5         = 1
+O          16!.5         = 1
+ 
+D A(0,2)
+Pu        0+2           = 2
+Mu       0-2           = -2
+Mu    0*2           = 0
+D      02           = 0
+I D  0\2           = 0
+P       0**2          = 0
+Mu      0#2           = 0
+A         02           = 0
+O          0!2           = 1

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

@@ -0,0 +1,13 @@
+{{|P}}
+ "Numb 1: "
+ = (u())
+ "Nub 2: "
+ = (u())
+
+ f("Su: %",  + )
+ f("Dffc: %",  - )
+ f("Puc: %",  * )
+ f("Qu: %f",   )
+
+ f("R: %",  % )
+ f("P: %",  ^ )

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

@@ -0,0 +1,18 @@
+A  b f C# u b. N  I' u    (**), bu M.P()  u   C# u u  .
+u Sm
+ 
+c P
+{
+    c M( : []) : 
+    {
+        f  = C.TI32([0])
+        f 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} ** {1} = {2}", , b,  ** b)
+    }
+}

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

@@ -0,0 +1,14 @@
+{{|REXX}}
+* NR *
+
+ c f c j cf b b
+
+ " 2  u  b b"
+   b
+  "+" b "="  + b
+  "-" b "="  - b
+  "*" b "="  * b
+  "" b "="  % b ""   b "( f f )"
+  "^" b "="  ** b
+
+u

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

@@ -0,0 +1,26 @@
+
+ .
+ f 2012-01-17
+
+(f ( ) ( ) ( (-)))
+(q  ( "P       []: "))
+(q  ( "P                 : "))
+
+ N  +, -, *,   %    .
+()
+( "Su: " (+  ))
+( "Dffc: " (-  ))
+( "Puc: " (*  ))
+( "I qu (u  0): " (  ))
+( "R: " (q  (%  )))
+
+( "R  c: "
+	 (c ((= ( ) ( ) ( )) "b")
+	       ((= ( ) ( ))         "f")
+	       ((= ( ) ( ))         "c")))
+	 
+()
+( "E: " (  ))
+
+()  NL     f u c.
+

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

@@ -0,0 +1,23 @@
+
+E   Q'N7.
+
+Df   u   f :
+     mc  OP A B{[f,,+,-,*,quo,mod,ow] A B}
+
+T  :
+     -23 mc 7
+-23 7 -16 -30 -161 -4 5 -3404825447
+
+N    cc f  qu cquc   cc,   b c  u       c? c.
+
+F cquc, f   cBc  z,  u  z.
+
+F cc, f   cBc  z,  u  cAc.
+
+T qu   b    cBc         f    cAc.
+
+N f f cquc:
+
+A quo B =f=  foo (A  B)
+
+cfc u   f (  ).

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

@@ -0,0 +1,25 @@
+mo o, u
+ 
+ 
+  : OP = OP()
+   = .cLR.
+  :  = 0
+  b:  = 0
+ 
+:
+   = I([0])
+  b = I([1])
+c VuE:
+  qu("I . T   c.")
+ 
+ 
+c("      : "  $)
+c("b      : "  $b)
+c(" + b  : "  $(+b))
+c(" - b  : "  $(-b))
+c(" * b  : "  $(*b))
+c("  b: "  $(  b)) #  u  z
+c("  b: "  $(  b)) # (  b)==() f ()!=(b)
+c(" ^ b  : "  $( ^ b))
+
+Ecu: A 4 5