zettacode 0.1.0

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

@@ -0,0 +1,12 @@
+(f P 6)
+
+N  cc bqub  u. If u      ,  cf($$b)c.
+ ="u"  I $ = .f
+ I $b = .f
+
+ 'u:              ', $ + $b
+ 'ffc:       ', $ - $b
+ 'uc:          ', $ * $b
+ ' qu: ', $  $b
+ ':        ', $ % $b
+ ':   ', $**$b

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

@@ -0,0 +1,9 @@
+
+'  Numb 1: '  c 0 f  
+'  Nub 2: '  c 0 f  
+
+  + "       u: %\" 
+  - "ffc: %\" 
+  * "   uc: %\" 
+   "  qu: %\" 
+  % " : %\" 

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

@@ -0,0 +1,51 @@
+REBOL [
+	T: "I"
+	URL: :c.AcI
+]
+
+: -  "P    ,   []: "
+: -  "P   : "
+ ""
+
+ ["Su:"   + ]
+ ["Dffc:"   - ]
+ ["Puc:"  * ]
+
+ ["I qu (cc)                          :"  -   ]
+ ["I qu ( f z)                    :"  u   ]
+ ["I qu ( u   )  :"  u   ]
+ ["I qu ( u  z)         :"  uf-   ]
+ ["I qu (u   c)       :"  uf   ]
+ ["I qu (u   c)       :"  uc   ]
+ ["I qu ( u   c):"  uf-c   ]
+
+ ["R:"  :   ]
+
+ REBOL u f  f f  . T  
+ cc u --   f  u. Tf 
+ f  c, I u  u  f 
+ ("? ") f      u f  '
+ c    f b. T  u f , c  I '
+   u  cfc u . T f u  
+ fuc  u uc.
+
+c?: fuc [ b][(? ) = ? b]
+
+u: c []
+f c?   [ u "f"]
+f c?   [ u "c"]
+
+ Yu c u b     f  , 
+ I u  "c"     b u b  
+  f  u .
+
+ [
+	"R  c:" 
+	c ? u [
+		0 [""]
+		1 [u1]
+		2 ["b"]
+	] 
+]
+
+ ["E:"  ** ]

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

@@ -0,0 +1,11 @@
+T   u, b   b   c. F    f uu.
+
+  = -17
+ b = 4
+c "+b = ".f(+b,"%1")
+c "-b = ".f(-b,"%1")
+c "*b = ".f(*b,"%1")
+c " DIV b = ".f(f(b),"%1")
+c " MOD b = ".f(  b,"%1")
+c "^b = ".f((,b),"%1")
+

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

@@ -0,0 +1,15 @@
+
+  = _of_(S.v[2])
+ b = _f_(S.[3])
+
+ u =  + b
+ ffc =  - b
+ uc =  * b
+  =   b
+  = (, b)
+
+J.(" + b = " ++ _f_(u))
+J.(" - b = " ++ _f_(ffc))
+J.(" * b = " ++ _f_(uc))
+J.("  b = " ++ _f_())
+J.(" % b = " ++ _f_())

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

@@ -0,0 +1,10 @@
+R' c fuc  b    [[F]]. T     f   f F.
+ 
+:mc (b-)
+         '\_______=_% :u
+  u        '\b_______=_% :u
+  u- + '\_+_b___=_% :u
+  u- - '\_-_b___=_% :u
+  u- * '\_*_b___=_% :u
+         '\__b___=_% :u
+             '\__b_=_%\" :u 

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

@@ -0,0 +1,47 @@
+A  uc uc    b (u   c     b),
+b ub   f  c. b (T REXX fu  b '''9''' b c .)
+
+F   uc  f  ub,  u  u    ub  c b   
+b  cu ub f c  b (    b,   b '''20''' b c ).
+*REXX om ob wo  fom  C.L. ( om)  d om oo.*
+uc  20                                *#  u  20 fc .*
+    .                                  *b       C.L.  *
+
+    \(,'W') | \(,'W')   *b   X    Y   u b . *
+   "─────E   u  ( b b):"
+   u   .                               *cc   f c .*
+     **
+                                                 * [↓]  f   DO   c.  *
+      j=1  f 2                               *  A    B,     B    A.*
+     c  ''          ,  "+",   +
+     c  'ubc'       ,  "-",   -
+     c  'uc'    ,  "*",   *
+     c  '  '     ,  "%",   %,  '    [u ]'
+     c  ' '     ,  "",   
+     c  ' ',  "",  , '    [ f 1 ]'
+     c  ''             ,  "**",  **
+
+      u                         *   u  f *
+     f j==1    c('═', 79)           *  fc f  1 u. *
+        *j*
+                                             *c  f  ,  '  . *
+*──────────────────────────────────────────────────────────────────────────────────────*
+:   c,,#,?    (c,25)' '    c(,4)    " ───► "  #  ?   u
+{{u|uu|=b  u  u f: b b  4 b -17 }}
+
+                   4  +   -17  ───►  -13
+              ubc  4  -   -17  ───►  21
+           uc  4  *   -17  ───►  -68
+                4  %   -17  ───►  0     [u ]
+               4     -17  ───►  -0.23529411764705882353
+          4    -17  ───►  4     [ f 1 ]
+                      4  **  -17  ───►  5.8207660913467407227E-11
+═══════════════════════════════════════════════════════════════════════════════
+                   -17  +   4  ───►  -13
+              ubc  -17  -   4  ───►  -21
+           uc  -17  *   4  ───►  -68
+                -17  %   4  ───►  -4     [u ]
+               -17     4  ───►  -4.25
+          -17    4  ───►  -1     [ f 1 ]
+                      -17  **  4  ───►  83521
+

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

@@ -0,0 +1,11 @@
+
+fuc T ,b
+    "+b" + (  + b ) + 
+    "-b" + (  - b ) + 
+    "*b" + (  * b ) + 
+    T qu ' ,   u  C() fuc, c uc  .
+    "b" + C(   b ) + 
+    R:
+    "%b" + (  % b ) + 
+    "**b" +  (,b )  + 
+

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

@@ -0,0 +1,13 @@
+
+u  "E ub 1:"
+ ""  "u"
+u  "E ub 2:"
+ "b"  "u"
+
+[ "Su: ('' + 'b')"
+[ "Dffc: ('' - 'b')"
+[ "Puc: ('' * 'b')"
+[ "I Qu: (''  'b')"
+[ "R: ('' % 'b')"
+[ "E: (''^'b')"
+

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

@@ -0,0 +1,12 @@
+
+u 'E  d '
+ = ._  #  cc , u =I()
+ = ._
+
+u "Su: #{+}",
+     "Dffc: #{-}",
+     "Puc: #{*}",
+     "Qu: #{}",       # uc   f
+     "Qu: #{.f()}", # f
+     "R: #{%}",      #    c 
+     "E: #{**}"

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

@@ -0,0 +1,9 @@
+u "1 : " 1
+u "2 : " 2
+ 
+ "      Su" 1 + 2
+ "     Dff" 1 - 2
+ "  Puc" 1 * 2
+f 2 0   "  Qu " ( 1  2)   "C  b z."
+ "R" 1 MOD 2
+ "1    f 2" 1 ^ 2

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

@@ -0,0 +1,15 @@
+
+N   c c b u   [:.u-. Ru ]     u c u.
+u d::v
+
+f () {
+     : Vc_ = ::().cc()
+      = [1].::32().u()
+     b = [2].::32().u()
+
+    !("u:              {}",  + b)
+    !("ffc:       {}",  - b)
+    !("uc:          {}",  * b)
+    !(" qu: {}",   b)  uc  z
+    !(":        {}",  % b)     f 
+}

data/zettacode.files/arithmetic.integer/sass-scss.txt

@@ -0,0 +1,36 @@
+
+
+@fuc c($,$b) {
+	@u $ + $b, $ - $b, $ * $b, ($ - ($ % $b))$b, $ % $b
+}
+
+Wc u u : 
+
+(c(10,3),1)
+
+O c f  fuc :
+
+@fuc u($,$b) {
+	@u $ + $b
+}
+
+@fuc ffc($,$b) {
+	@u $ - $b
+}
+
+@fuc uc($,$b) {
+	@u $ * $b
+}
+
+@fuc -($,$b) {
+	@u ($ - ($ % $b))$b
+}
+
+@fuc ($,$b) {
+	@u $ % $b
+}
+
+@fuc f-($,$b) {
+	@u $  $b
+}
+

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

@@ -0,0 +1,9 @@
+v  = Coo.dI
+ b = C.I
+ 
+ u =  + b    cu    u  cfu  S cc
+(" + b = " + u)
+(" - b = " + ( - b))
+(" * b = " + ( * b))
+("qu f   b = " + (  b))  uc  0
+(" f   b = " + ( % b))     f 

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

@@ -0,0 +1,27 @@
+
+(df (mc  )
+  (f-c (b ()
+              (  (   ))
+              ( " = ")
+              ( (( )  ))
+              ())
+            '(+ - *  qu  u   c c)))
+           
+(c 8 12)
+qu - uc  0
+ -    f 
+u -    c 
+ 
+   :
+ 
+ (+ 8 12) = 20
+ (- 8 12) = -4
+ (* 8 12) = 96
+ ( 8 12) = 23
+ (qu 8 12) = 0
+ ( 8 12) = 8
+ (u 8 12) = 8
+ ( 8 12) = 12
+ ( 8 12) = 8
+ (c 8 12) = 4
+ (c 8 12) = 24

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

@@ -0,0 +1,20 @@
+$ cud "d7_05.7"
+
+c c:   fuc
+  c
+     :   0
+     : b  0
+  b
+    (" = ")
+    ()
+    ("b = ")
+    (b)
+ 
+    (" + b = "   + b)
+    (" - b = "   - b)
+    (" * b = "   * b)
+    ("  b = "    b)    # Ru  z
+    ("  b = "    b)    # S f  f 
+    ("  b = "    b)  # Ru   f
+    ("  b = "    b)    # S f  c 
+   fuc

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

@@ -0,0 +1,12 @@
+k "E  f umb:"
+u   ub1
+
+ "E  c ub:"
+u   ub2
+
+u "Su: "  ub1 u ub2
+u "Dffc: "  ub1 u ub2
+u "Puc: "  ub1 u b ub2
+u "I qu: "  ub1  ub2 -- Ru  0
+u "R: "  ub1  ub2
+u "E: "  ub1    f ub2

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

@@ -0,0 +1,6 @@
+v  = S.c("F umb: ").o_
+ b = S.c("Sc ub: ")._
+
+%'+ - *  % ** ^ |   '.c { ||
+    "#{} #{} #{b} = #{.$(b)}".
+}

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

@@ -0,0 +1,9 @@
+[| : :b |
+f: ( + b) S.
+f: ( - b) S.
+f: ( * b) S.
+f: (  b) S.
+f: (  b) S.
+f: ( \\ b) S.
+
+] T: {I F: (qu: 'E : '). I F: (qu: 'E b: ')}.

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

@@ -0,0 +1,28 @@
+{{ |GNU S}}
+|  b |
+'Iu ub : ' .
+ := ( L) I.
+'Iu ub b: ' .
+b := ( L) I.
+('+b=%1' % {  + b }) N.
+('-b=%1' % {  - b }) N.
+('*b=%1' % {  * b }) N.
+('b=%1' % {   b }) N.
+('%%b=%1' % {  \\ b }) N.
+
+{{ |SX}} (   S)
+| b|
+ := (D qu:'E f ub:') Nub.
+b := (D qu:'E c ub:') Nub.
+#( + -  *  \\ qu: : T: **) :[: |
+    |u|
+    u :=  f: :b.
+    '%P % %P = %P\' f:{ .  . b . u} :Tc
+].
+  c 
+b  uc  (  f) 
+b\\   f \\
+bqu:  uc  ( z) 
+b\\   f qu:
+b**  ju   f T:
+E 10  3, :

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

@@ -0,0 +1,18 @@
+INPUT "E f umb.":f
+INPUT "E c ub.":c
+PRINT "T u f"f""c" "f+c"."
+PRINT "T ffc b"f""c" "ABS(f-c)"."
+PRINT "T uc f"f""c" "f*c"."
+IF c THEN
+    PRINT "T  qu f"f""c" "INTEG(fc)"."
+ELSE
+    PRINT "D b z  c."
+ENDIF
+PRINT "T  b..."f%c"."
+PRINT STR$(f)"    f"c" "f^c"."
+
+'''NOTES:''' S cuu c f  BASIC     c :
+
+I  BASIC, T c INTEG   u  fuc    u f  ccc. T  BASIC INT c ccu   u fuc. T ff f    f BASIC.
+ BASIC uc  c  f  b ub. T c cu uc f u  cb uu f uc b  . I   u   c, u u u   ()  cc  uc u   f  (  c,      f c c). I  c f  c, u u c  uc u   u  STR$ c (     f  c).
+

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

@@ -0,0 +1,12 @@
+
+        uu = "E f :"
+  	f = u
+	uu = "E c :"
+	c = u
+	uu = "u  = " f + c
+	uu = "ff = " f - c
+	uu = " = " f * c
+	uu = "qu = " (qu = f  c)
+	uu = "  = " f - (qu * c)
+	uu = "  = " f ** c
+

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

@@ -0,0 +1,61 @@
+A  BF , SNUSP   c  c   . H  u f  bc c u   ub  u.
+
+''S : [[E Muc]]''
+$\
+ ,
+ @
+ \=@@@-@-----#  
+ 
+ ,
+ @
+ \=@@@-@-----#
+ 
+ @     #        4 c
+ \=!?!-++++?\#
+   | #\?++++-
+ @  |
+ \==
+ \\
+ 
+ @
+ \==!===?\#    
+    \+-
+ @
+ \=@@@+@+++++#  
+ .
+ 
+ @
+ \==!===?\#    ubc
+    \--
+ @
+ \=@@@+@+++++#
+ .
+ !
+ \
+ ?-             u
+ \ #?++-==\     ==-++?\#    ==-+?\#
+    \-++!?#   #\?\!++-    #\?\!+-
+ @         ==|=========|=====\   -\    |
+ \======?!@-?!\@-?\=!\?!@#
+          \=======|==========   -\  |
+ @                 \======!\?=
+ \=@@@+@+++++#
+ .
+ !
+ \
+ ?-  z
+ \
+               
+ @    -\
+ \?\!\?#!===+\      -\
+ | \==@\@\!?!=?\!\?#
+ |      |  |  #\--+
+ |      \=!\=?!-+?\#
+ @            #\?+-
+ \=@@@+@+++++#
+ .
+ 
+ @
+ \=@@@+@+++++#
+ .
+ #

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

@@ -0,0 +1,68 @@
+{{ |Oc}}
+
+-- .q
+-- T  SQL*u
+
+ b 
+
+c b  ( , b )
+
+   u ('A','B')
+
+c
+
+c -b ffc f 
+
+c *b uc f 
+
+c uc(b) _qu f   
+
+c (,b)  f 
+
+c (,b)  f 
+
+
+
+SQL @.q
+
+Tb .
+
+
+Tb c.
+
+E u f : 3
+E u f b: 4
+   1:    u ('A','B')
+   1:    u ('3','4')
+
+1  c.
+
+
+C c.
+
+
+DIFFERENCE
+----------
+        -1
+
+
+   PRODUCT
+----------
+        12
+
+
+INTEGER_QUOTIENT
+----------------
+               0
+
+
+ REMAINDER
+----------
+         3
+
+
+EXPONENTIATION
+--------------
+            81
+   
+

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

@@ -0,0 +1,15 @@
+T     SSEM u   ubc. T  u  001 Sub. uc  f  ffc b   b, u       20  21 c.
+00101000000000100000000000000000   0. -20 o c
+10100000000001100000000000000000   1. c  5
+10100000000000100000000000000000   2. -5  c
+10101000000000010000000000000000   3. Sub. 21
+00000000000001110000000000000000   4. S
+00000000000000000000000000000000   5. 0
+T u    cc   u  b, bcu  SSEM c   u   ccuu (c ) f  u     c—    uff   f  bc u        bf  c ubc b f . T , ,       u   ubc. I  ,  f    ubc b,    u  f   u, b b  u f   .
+00101000000000100000000000000000   0. -20 o c
+10101000000000010000000000000000   1. Sub. 21
+10100000000001100000000000000000   2. c  5
+10100000000000100000000000000000   3. -5  c
+00000000000001110000000000000000   4. S
+00000000000000000000000000000000   5. 0
+A uc   b fu  [[Fuc f#SSEM]],    f    [[LF   cf #SSEM]].

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

@@ -0,0 +1,13 @@
+v () = 
+    = Of (I.fS (Of (TIO.uL TIO.I)))
+   b = Of (I.fS (Of (TIO.uL TIO.I)))
+
+   (" + b = "   ^ I.S ( + b)   ^ "\")
+   (" - b = "   ^ I.S ( - b)   ^ "\")
+   (" * b = "   ^ I.S ( * b)   ^ "\")
+   ("  b = " ^ I.S (  b) ^ "\")         (* uc   f *)
+   ("  b = " ^ I.S (  b) ^ "\")         (*    c  *)
+   (" qu b = " ^ I.S (I.qu (, b)) ^ "\")(* uc  0 *)
+   ("  b = " ^ I.S (I. (, b)) ^ "\")  (*    f  *)
+   ("~ = "      ^ I.S (~)      ^ "\")          (* u , uuu  c   u *)
+

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

@@ -0,0 +1,11 @@
+
+  = 6 
+ b = 4
+
+("u =\(+b)")
+("ffc = \(-b)")
+("uc = \(*b)")
+("I qu = \(b)")
+("R = (%b)")
+("N  f E")
+

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

@@ -0,0 +1,19 @@
+u "P  wo umb:"
+
+  [ {([ ])}] # Fc  
+  [ {([ ])}] # Fc  
+
+u "$ + $ = [ {$ + $}]"
+u "$ - $ = [ {$ - $}]"
+u "$ * $ = [ {$ * $}]"
+u "$  $ = [ {$  $}]"
+u "$  $ = [ {$ % $}]"
+u "$ ' ' $ = [ {$ ** $}]"
+
+Sc Tc '   bu  "" f  b,  "" c  u  c  f   "". T     uc   " c"  c  u  ([b]).
+
+Of,   u b f   ff  f    . F ,  c  b "" b  u f  b "",  u 
+
+c  $
+
+A, '   uu  u   cc  bc, c   f   f      c.  Dcu f    [:.c.10225 T Tc' W].

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

@@ -0,0 +1,33 @@
+HCL '          c     c, bu      uu b bc u  ff.......
+
+#Au, 15 Auu 2022
+
+b "" {
+   = ub
+}
+
+b "b" {
+   = ub
+}
+
+uu "Su" {
+  u = . + .b
+}
+
+uu "Dffc" {
+  u = . - .b
+}
+
+uu "Puc" {
+  u = . * .b
+}
+
+uu "Qu" {
+  u = f(.  .b)
+}
+
+uu "R" {
+  u = . % .b
+}
+
+T f fuc u   c  . Ic  uu   b :

data/zettacode.files/arithmetic.integer/ti-83_basic.txt

@@ -0,0 +1,14 @@
+Pu  u  TI-83' c f c z.
+
+P A,B
+D "SUM"
+Pu A+B
+D "DIFFERENCE"
+Pu A-B
+D "PRODUCT"
+Pu AB
+D "INTEGER QUOTIENT"
+Pu (AB)
+D "REMAINDER"
+Pu A-B*(AB)
+

data/zettacode.files/arithmetic.integer/ti-89_basic.txt

@@ -0,0 +1,8 @@
+
+Loc , b
+P , b
+D "Su: "  ( + b)
+D "Dffc: "  ( - b)
+D "Puc: "  ( * b)
+D "I qu: "  (D(, b))
+D "R: "  ((, b))

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

@@ -0,0 +1,7 @@
+
+[ (  b -- )
+  2u ." +b = " + . c  
+  2u ." -b = " - . c  
+  2u ." *b = " * . c  
+  2u ." b = "  . ."  "  . c  
+]