zettacode 0.1.0

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

@@ -0,0 +1,10 @@
+
+ 
+ b
+c ' + b =' ( "$ + $b") # Su
+c ' - b =' ( "$ - $b") # Dffc
+c ' * b =' ( "$ * $b") # Puc
+c '  b =' ( "$  $b") # I qu
+c ' % b =' ( "$ % $b") # R
+c ' ^ b =' ( "$ ^ $b") # E
+

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

@@ -0,0 +1,10 @@
+T    (c uc  ub  b), CODECODE,  CODECODE.  CODECODE u   f (f  CODEf[]CODE).  CODECODE u   f  c ub (f  CODE -  * f[]CODE).  A  uc uc b   c  ub  c.
+
+[,b] = u["E ub",["","b"]]
+=["+", "-", "*", "", "" ,"" ,"^"]
+f  = 
+{
+    = "$ $ $b"
+   ["$ = " + []]
+}
+

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

@@ -0,0 +1,158 @@
+Bc 
+
+ 1, @"I Ac", ( 0, 0, 400, 300 )
+
+NSI  = 25
+NSI b = 53
+
+ "        "" + "b" = " ( + b)
+ "ubc     "" - "b" = " ( - b)
+ "uc  "" * "b" = " ( * b)
+ "        ""  "b" = " (  b)
+f @"f   %  % = %f", , b, (f)  (f)b
+ "u          "" % "b" = " (  b)
+ "           "" ^ "b" = " ( ^ b)
+
+HE
+
+
+Ouu:
+
+:       25 + 53 = 78
+ubc:    25 - 53 = -28
+uc: 25 * 53 = 1325
+:       25  53 = 0
+f : 25  53 = 0.471698
+u:         25  53 = 25
+:          25 ^ 53 = 1.232595+74
+
+
+S I, M1, M2 Mc c  u u
+
+
+_ = 1
+b u 1
+_1Lb
+_1F
+_2Lb
+_2F
+_ccRu
+_ccB
+ u
+
+ c f BuW
+CGRc 
+
+ = f CGRcM( 0, 0, 480, 360 )
+ _, @"I Ac", , NSWSMT + NSWSMCb + NSWSMMuzb
+
+ = f CGRcM( 240, 320, 150, 24 )
+b _1Lb, @"E f :", , _
+CSA( _1Lb, NSTAR )
+ = f CGRcM( 400, 322, 60, 24 )
+f _1F, YES, @"25", , _
+CSA( _1F, NSTAC )
+CSUSLM( _1F, YES )
+CSF( _1F, @"0123456789-", YES, 5, NULL )
+
+ = f CGRcM( 240, 290, 150, 24 )
+b _2Lb, @"E c :", , _
+CSA( _2Lb, NSTAR )
+ = f CGRcM( 400, 292, 60, 24 )
+f _2F, YES, @"53", , _
+CSA( _2F, NSTAC )
+CSUSLM( _2F, YES )
+CSF( _2F, @"0123456789-", YES, 5, NULL )
+
+ = f CGRcM( 50, 60, 380, 200 )
+ _ccRu, ,,, _
+TVSTCI( _ccRu, f CGSzM( 10, 20 ) )
+TSFWN( _ccRu, @"M", 13.0 )
+TVSEb( _ccRu, NO )
+
+ = f CGRcM( 370, 13, 100, 32 )
+bu _ccB,,, @"Ccu", 
+ f
+
+c f PfCcu
+CFSRf S
+
+NSI 1 = f CIVu( _1F )
+NSI 2 = f CIVu( _2F )
+
+CFMubSRf uS = f MubSWCc( 0 )
+
+ D u 
+S = f SWF( @"Nub 1: %\Nub 2: %\\", 1, 2 )
+MubSAS( uS, S )
+
+ A
+S = f SWF( @"A: % + % = %\", 1, 2, 1 + 2 )
+MubSAS( uS, S )
+
+ Subc
+S = f SWF( @"Subc: % - % = %\", 1, 2, 1 - 2 )
+MubSAS( uS, S )
+
+ Mu
+S = f SWF( @"Muc: % * % = %\", 1, 2, 1 * 2 )
+MubSAS( uS, S )
+
+f ( 2 != 0 )
+
+ D
+S = f SWF( @"I D: %  % = %\", 1, 2, 1  2 )
+MubSAS( uS, S )
+
+ F D
+S = f SWF( @"F D: %  % = %f\", 1, 2, (f)1  (f)2 )
+MubSAS( uS, S )
+
+ 
+S = f SWF( @"Mu: %  % = % \", 1, 2, 1  2 )
+MubSAS( uS, S )
+
+ 
+S = f SWF( @"P: % ^ % = %\", 1, 2, 1 ^ 2 )
+MubSAS( uS, S )
+
+
+
+MubSAS( uS, @"C  b z." )
+
+ f
+
+TSS( _ccRu, uS )
+ f
+
+ c f DD(   ,   ,    )
+'~'1
+c (  )
+c _bCc
+c (  )
+c _ccB : f PfCcu
+ c
+c _WC : 
+ c
+ f
+
+  f DD
+
+f BuW
+
+HE
+
+
+Ouu:
+
+Nub 1: 25
+Nub 2: 53
+
+A: 25 + 53 = 78
+Subc: 25 - 53 = -28
+Muc: 25 * 53 = 1325
+I D: 25  53 = 0
+F D: 25  53 = 0.471698
+Mu: 25  53 = 25 
+P: 25 ^ 53 = 1.232595+74
+

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

@@ -0,0 +1,30 @@
+Pubc Sub M()
+  D , b A S
+  D c,  A I
+
+  P "E   ub,  b c:"
+  Iu , b
+
+  c = CI()
+   = CI(b)
+
+  P "Su: "  (c + )
+  P "Dffc:"  (c - )
+  P "Puc: "  (c * )
+  P "I: "  (c D )
+  P "R: "  (c M )
+  P "E: "  (c ^ )
+
+E
+
+Ouu:
+
+E   ub,  b c:
+8 1
+Su: 9
+Dffc:7
+Puc: 8
+I: 8
+R: 0
+E: 8
+

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

@@ -0,0 +1,15 @@
+u := fuco()
+  c , b, f
+  f := IuTU()
+  P(" =\")
+   := I(C(RL(f)))
+  P("b =\")
+  b := I(C(RL(f)))
+  D(Cc(S(), " + ", S(b), " = ", S( + b)))
+  D(Cc(S(), " - ", S(b), " = ", S( - b)))
+  D(Cc(S(), " * ", S(b), " = ", S( * b)))
+  D(Cc(S(), "  ", S(b), " = ", S(QuI(, b)))) #  0
+  D(Cc(S(), "  ", S(b), " = ", S(RI(, b)))) # 
+  D(Cc(S(), " ^ ", S(b), " = ", S( ^ b)))
+  CS(f)
+

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

@@ -0,0 +1,23 @@
+N: U '':''   ''u'' f   bc  uc   0.43.92, Fbu 2019.
+
+[d=4]
+*
+   AcI,  G
+   c c-.
+*
+
+:
+    : = 0
+    b: = 0
+    f .  2  b = .([2])
+    f .  1   = .([1])
+
+     @"+b: $ u  $b  $(+b)"
+     @"-b: $ u $b  $(-b)"
+     @"*b: $  $b  $(*b)"
+     @"b: $ b    $b qu   $(b)  (u   TRUNCATION)"
+     @"%b: $ b    $b   $(%b)  ( c f )"
+
+     "\G   cu     "
+
+    u 0

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

@@ -0,0 +1,7 @@
+R (m) 
+R () 
+  + P
+  - P
+  × P
+   P
+   P

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

@@ -0,0 +1,66 @@
+======
+ck m
+
+ "f"
+
+fuc () {
+     , b 
+    f.P("  : ")
+    f.Sc(, b)
+    f.Pf("% + % = %\", , b, +b)
+    f.Pf("% - % = %\", , b, -b)
+    f.Pf("% * % = %\", , b, *b)
+    f.Pf("%  % = %\", , b, b)   uc  0
+    f.Pf("% %% % = %\", , b, %b)     f 
+       
+}
+{{u|E u}}
+
+  : -5 3
+-5 + 3 = -2
+-5 - 3 = -8
+-5 * 3 = -15
+-5  3 = -1
+-5 % 3 = -2
+
+===b.I===
+ck m
+
+ (
+    "f"
+    "b"
+)
+
+fuc () {
+     , b, c b.I
+    f.P("  : ")
+    f.Sc(, b)
+    f.Pf("% + % = %\", , b, c.A(, b))
+    f.Pf("% - % = %\", , b, c.Sub(, b))
+    f.Pf("% * % = %\", , b, c.Mu(, b))
+
+     Qu, R fuc   G   :
+     qu uc  0,
+       -z        f .
+    f.Pf("% qu % = %\", , b, c.Qu(, b))
+    f.Pf("%  % = %\", , b, c.R(, b))
+
+     D, M fuc  Euc :
+      u  =   b   -,
+      f  =   b,  u     * +  = .
+    f.Pf("%  % = %\", , b, c.D(, b))
+    f.Pf("%  % = %\", , b, c.M(, b))
+
+       ,   
+}
+{{u|E u}}
+
+  : -5 3
+-5 + 3 = -2
+-5 - 3 = -8
+-5 * 3 = -15
+-5 qu 3 = -1
+-5  3 = -2
+-5  3 = -2
+-5  3 = 1
+

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

@@ -0,0 +1,18 @@
+'''Su:'''
+df mc = { , b -
+     """
+        + b =        ${} + ${b} = ${ + b}
+        - b =        ${} - ${b} = ${ - b}
+        * b =        ${} * ${b} = ${ * b}
+         b =        ${}  ${b} = ${  b}   !!! C  f !
+()(  b) = ()(${}  ${b}) = ${()(  b)}              !!! Tuc  f  fc
+ .(b) =  ${}.(${b}) = ${.(b)}              !!! B  f uc , cu  
+        % b =        ${} % ${b} = ${ % b}
+
+E    b c   G, :
+       ** b =       ${} ** ${b} = ${ ** b}
+"""
+}
+
+'''T:'''
+mc(5,3)

data/zettacode.files/arithmetic.integer/harbour.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/haskell.txt

@@ -0,0 +1,16 @@
+
+m = do
+   - L :: IO I
+  b - L :: IO I
+  uSL $ " + b = " ++  ( + b)
+  uSL $ " - b = " ++  ( - b)
+  uSL $ " * b = " ++  ( * b)
+  uSL $ "    f b = " ++  ( ** b)
+  uSL $ "    f b = " ++  ( ^ b)
+  uSL $ "    f b = " ++  ( ^^ b)
+  uSL $ " `` b = "  ++  ( `` b)  -- uc   f
+  uSL $ " `` b = "  ++  ( `` b)  --    c 
+  uSL $ " `M` b = "  ++  ( `M` b)
+  uSL $ " `qu` b = " ++  ( `qu` b) -- uc  0
+  uSL $ " `` b = "  ++  ( `` b)  --    f 
+  uSL $ " `quR` b = "  ++  ( `quR` b)

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

@@ -0,0 +1,13 @@
+c BcIAmc {
+    ubc c fuc () {
+          =S.()
+        f (.  2) u
+          = S.F([0])
+         b = S.F([1])
+        c("+b = " + (+b))
+        c("-b = " + (-b))
+        c("*b = " + (*b))
+        c("b = " + (b))
+        c("%b = " + (%b))
+    }
+}

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

@@ -0,0 +1,26 @@
+A uc  8-b-f. C  b INT, NINT, FLOOR, CEILING,  F IO
+DLG(Ed=A, Ed=B, TI='E umc A d B')
+WRITE(N) A, B
+WRITE() '              A + B = ', A + B
+WRITE() '              A - B = ', A - B
+WRITE() '              A * B = ', A * B
+WRITE() '              A  B = ', A  B          !  uc
+WRITE() 'uc      A  B = ', INT(A  B)     ! uc  0
+WRITE() 'u     A  B = ', NINT(A  B)    ! uc   
+WRITE() 'u     A  B = ', FLOOR(A  B)   ! uc  u f
+WRITE() 'u u      A  B = ', CEILING(A  B) ! uc  u f
+WRITE() ' f  A  B = ', MOD(A, B)      !    A
+WRITE() 'A    f B = ', A ^ B
+WRITE() 'A    f B = ', A ** B
+A=5 B=-4
+              A + B = 1 
+              A - B = 9 
+              A * B = -20 
+              A  B = -1.25 
+uc      A  B = -1 
+u     A  B = -1 
+u     A  B = -2 
+u u      A  B = -1 
+ f  A  B = 1 
+A    f B = 16E-4 
+A    f B = 16E-4 

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

@@ -0,0 +1,14 @@
+I64 *, *b
+ = S2I64(GS("E u f ub: "))
+b = S2I64(GS("E u c ub: "))
+
+f (b == 0)
+  P("E: T c ub u  b z.\")
+ {
+  P(" + b = %\",  + b)
+  P(" - b = %\",  - b)
+  P(" * b = %\",  * b)
+  P("  b = %\",   b) * u  *
+  P(" % b = %\",  % b) *    f  *
+  P(" ` b = %\",  ` b)
+}

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

@@ -0,0 +1,11 @@
+m
+	 $= ((' ')) 
+	b $= (('\')) 
+	
+	("Su:"		,  + b)
+	("Dffc:",  - b)
+	("Puc:"	,  * b)
+	("Qu:"	,   b)  u  z
+	("Muu:"	,  % b)     f 
+	("E:"	,  ^ b)
+}

data/zettacode.files/arithmetic.integer/icon}}_and_{{header|unicon.txt

@@ -0,0 +1,13 @@
+ocdu m()
+("Iu 1   := ")
+ := (())
+("Iu 2  b := ")
+b := (())
+
+("  + b = ",+b)
+("  - b = ",-b)
+("  * b = ",*b)
+("   b = ",b, " u  0")
+("  % b = ",%b, "   c ")
+("  ^ b = ",^b)
+

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

@@ -0,0 +1,27 @@
+
+E Two Numb   oom.
+
+Nuc    c    ub. U "[ub]"  uc .
+
+T f ub   ub  .
+
+Af uc  f  f :
+	  f ub   ub u.
+
+Af uc  f  c :
+	 A b  f ub
+	 B b  ub u
+	 "[A] + [B] = [A + B]." [ ]
+	 "[A] - [B] = [A u B]." [E ]
+	 P b  b P = A * B  P   ub [ qu]
+	 "[A] * [B] = [P]."
+	 Q b  b  D Fu [ qu]
+	 "[A]  [B] = [Q]."
+	 "[A]  [B] = [ f  A b B]."
+	  .
+
+Equ - D Fu
+	Q = A  B
+ Q   ub, A   ub,  B   ub.
+
+T u  fu : c , E ,  qu,   qu. D u  z,          qu.

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

@@ -0,0 +1,18 @@
+cc =:    + , - , * , .@% , |~ , ^
+T fuc cccc cuc   f uc u f  . T  f    u  (c.@%.c) u  (  f),    cb      u .
+   17 cc 3
+20 14 51 5 2 4913
+
+T fuc cbc b  u, u:
+
+b  =: ].2 'Sum: Dffc: Poduc: Quo: Rmd: Eoo: '
+cb =: ,. ":@,.
+b     =: b cb cc
+
+   17 b 3
+Su:              20
+Dffc:       14
+Puc:          51
+Qu:          5
+R:         2
+E: 4913

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

@@ -0,0 +1,22 @@
+mo jv.u.Sc
+
+ubc c IAc {
+    ubc c  (S[] ) {
+         G  2 ub f c  u
+        Sc c =  Sc(S.)
+          = c.I()
+         b = c.I()
+
+         u =  + b         T u f  ''  'b' (N:    cu    u  cfu   cc)
+         ffc =  - b  T u f ubc 'b' f ''
+         uc =  * b     T u f u ''  'b'
+          =   b    T u f  '' b 'b' (N: ''   c  fc u)
+          =  % b   T  f  '' b 'b'
+
+        S.u.(" + b = " + u)
+        S.u.(" - b = " + ffc)
+        S.u.(" * b = " + uc)
+        S.u.("qu f   b = " + )    uc  0
+        S.u.(" f   b = " + )       f 
+    }
+}

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

@@ -0,0 +1,30 @@
+===WSc===
+{{ |JSc}}
+{{ |SM}}
+N          f JSc  qu f cfc       u u.
+v  = I(_u("E  "), 10)
+ b = I(_u("E  "), 10)
+
+WSc.Ec(" = " + )
+WSc.Ec("b = " + b)
+WSc.Ec("u:  + b = "        + ( + b))
+WSc.Ec("ffc:  - b = " + ( - b))
+WSc.Ec("uc:  * b = "    + ( * b))
+WSc.Ec("qu:   b = "   + (  b | 0))  "| 0" c    
+WSc.Ec(":  % b = "  + ( % b))
+
+fuc _u() {
+    uu()
+     {
+        u WSc.SI.L()
+    } cc() {
+        u ()
+    }
+}
+fuc uu() {
+     {
+        WSc.Ec()
+    } cc() {
+        ()
+    }
+}

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

@@ -0,0 +1,17 @@
+# L wc do o v wo   kd:
+
+f c:
+  (" ") | c(  0) | (ub)
+  | f   1 
+    .[0]  $ | .[1]  $b
+    | "F  = \($)  b = \($b):\" +
+      " + b = \($ + $b)\" +
+      " - b = \($ - $b)\" +
+      " * b = \($ * $b)\" +
+      "b|f = \($  $b | f)\" +
+      " % b = \($ % $b)\" +
+      " |  = \($ | )\"
+     
+     
+
+c

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

@@ -0,0 +1,33 @@
+"u c"
+* AcI,  J *
+  = c.u()
+ u = .c(^\*([+-]?[0-9]+)\+([+-]?[0-9]+)\*)
+  = Nub(u[1])
+ b = Nub(u[2])
+
+u("A  ", , ", B  ", b)
+u("Su               A + B  ",  + b)
+u("Dffc        A - B  ",  - b)
+u("Puc           A * B  ",  * b)
+u("I qu  A  B  ",   b | 0, " uc  0")
+u("R         A % B  ",  % b, "  f f ")
+u("E    A    B  ", M.(, b))
+
+*
+=!INPUTSTART!=
+7 4
+=!INPUTEND!=
+*
+
+
+*
+=!EXPECTSTART!=
+A   7 , B   4
+Su               A + B   11
+Dffc        A - B   3
+Puc           A * B   28
+I qu  A  B   1  uc  0
+R         A % B   3   f f 
+E    A    B   2401
+=!EXPECTEND!=
+*

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

@@ -0,0 +1,4 @@
+fuco mc ( = (I, d()), b = (I, d()))
+  f    [+,-,*,,]
+    (" $ b = $((,b))")
+  

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

@@ -0,0 +1,41 @@
+ vo 1.1
+
+fu (: AS) {
+      = R("""-?\+[ ]+-?\+""")
+    (u) {
+        ("E    b c()  q  qu: ")
+         u: S = L()!!.()
+        f (u == "q" || u == "Q") b
+        f (!u.c()) {
+            ("I u,  ")
+            cu
+        }
+          = u.IOf(' ')
+          = u.ub(0, ).E().L()
+         b = u.ub( + 1).L()
+        ("$ + $b = ${ + b}")
+        ("$ - $b = ${ - b}")
+        ("$ * $b = ${ * b}")
+        f (b != 0L) {
+            ("$  $b = ${  b}")   u  z
+            ("$ % $b = ${ % b}")   f -z, c  f f 
+        }
+         {
+            ("$  $b = uf")
+            ("$ % $b = uf")
+        }
+          = M.(.Dub(), b.Dub())
+        ("$ ^ $b = ")
+        f ( % 1.0 == 0.0) {
+            f ( = L.MIN_VALUE.Dub()   = L.MAX_VALUE.Dub())
+                ("${.L()}")
+            
+                ("u f ")
+        }
+         f (!.F())
+            (" f")
+        
+            (" ")
+        ()
+    }
+}

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

@@ -0,0 +1,2 @@
+{{VI }}b
+[[F:LbVIEW_Ac_I.]]

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

@@ -0,0 +1,23 @@
+T f Rc
+
+{f c 
+ {b {: :}
+  {S. {{b {: : :} 
+                  {b} :  :  : u {: : :}} : :}
+         + - *  %    =  }}}
+- c
+
+{c 8 12}
+- 
+ +  8  12 u 20 
+ -  8  12 u -4 
+ *  8  12 u 96 
+   8  12 u 0.6666666666666666 
+ %  8  12 u 8 
+   8  12 u 68719476736 
+   8  12 u 12 
+   8  12 u 8 
+ =  8  12 u f 
+   8  12 u f 
+   8  12 u u
+