zettacode 0.1.0

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

@@ -0,0 +1,21 @@
+
+:-- 
+
+(fu --u ()
+   (- (_  )
+           (-bjc *-* )
+      (c ( _))
+      (- (_ b )
+              (-bjc *-* )
+         (c ( _))
+         (  b ))))
+
+(fu -c ()
+   (- ( b )
+           (--u )
+      ( 
+          ($ (c "Su:        ~0~%" (+  b))
+                  (c "Dffc: ~0~%" (-  b))
+                  (c "Puc:    ~0~%" (*  b))
+                  (c "Qu:   ~0~%" (f  b))
+                  (c "R:  ~0~%" (  b))))))

data/zettacode.files/arithmetic.integer/action!.txt

@@ -0,0 +1,36 @@
+ ="c!"DEFINE NO_KEY="255"
+DEFINE KEY_Y="43"
+DEFINE KEY_N="35"
+
+PROC M()
+  BYTE CH=$02FC I  u f   
+  BYTE 
+  INT ,b
+
+  DO
+    P("Iu  u =")
+    =IuI()
+    P("Iu  u b=")
+    b=IuI()
+
+    PF("+b=%I%E",+b)
+    PF("-b=%I%E",-b)
+    PF("*b=%I%E",*b)
+    PF("b=%I%E",b)
+    PF(" MOD b=%I%E", MOD b)
+    
+    PuE()
+    PE("A? (YN)")
+
+    CH=NO_KEY Fu  b
+    DO
+      =CH
+    UNTIL =KEY_Y OR =KEY_N
+    OD
+    CH=NO_KEY Fu  b
+
+    IF =KEY_N THEN
+      EXIT
+    FI
+  OD
+RETURN

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

@@ -0,0 +1,20 @@
+w Ad.T_Io
+ A.I_T_IO
+
+cu I_Ac 
+   u A.T_IO
+   u A.I_T_I
+
+   A, B : I
+b
+   G(A)
+   G(B)
+   Pu_L("+b = "  I'I(A + B))
+   Pu_L("-b = "  I'I(A - B))
+   Pu_L("*b = "  I'I(A * B))
+   Pu_L("b = "  I'I(A  B))
+   Pu_L("  b = "  I'I(A  B)) -- S c B
+   Pu_L(" f b = "  I'I(A  B)) -- S c A
+   Pu_L("**b = "  I'I(A ** B))  
+
+ I_Ac

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

@@ -0,0 +1,10 @@
+v  = 0
+ b = 0
+ -        f 
+ - b       f 
+
+ ("+b=" + ( + b))
+ ("-b=" + ( - b))
+ ("*b=" + ( * b))
+ ("b=" + (  b))
+ ("%b=" + ( % b))

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

@@ -0,0 +1,14 @@
+{{|C}}
+{{ |ALGOL 68|R 1 -    u u}}
+{{ |ALGOL 68G|A -    [:ucf.jc68f6868-1.18.068-1.18.0-9..5.c.fc11.386. 1.18.0-9.]}}
+{{  |ELLA ALGOL 68|A (  jb c) -    [:ucf.jc68f68c68c-1.8.868c-1.8-8.fc9.386. 1.8-8] - u   u f FORMAT u}}
+m:(
+  LONG INT =355, b=113
+  f(($" PLUS b = +b = "$,  + b))
+  f(($" MINUS b = -b = "$,  - b))
+  f(($" TIMES b = *b = ×b = "$,  * b))
+  f(($" DIV b = b = "$,   b))
+  f(($" OVER b = %b = ÷b = "$,  % b))
+  f(($" MOD b = %*b = %×b = ÷×b = ÷*b = "$,  %* b))
+  f(($" UP b = **b = ↑b = "$,  ** b))
+)

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

@@ -0,0 +1,16 @@
+T A W    (c ) uc  z.b
+T u f  u  (c )    f  f      ff .
+b
+     , b
+    ( "E 2  " )
+    ( , b )
+    ( "  +  b: ",   +  b ) %          %
+    ( "  -  b: ",   -  b ) % ubc      %
+    ( "  *  b: ",   *  b ) % uc   %
+    ( "    b: ",   b ) %   %
+    ( "  b: ",   b ) % u           %
+    %  **  u   u      %
+    % (  -  u  b  ,  f- %
+    %  c b ,   c )                         %
+    ( "  ^  b: ", u(  ** b ) )
+.

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

@@ -0,0 +1,14 @@
+PROC m()
+  DEF , b, 
+  WF('A = ')
+  RS(, )
+   := V()
+  WF('B = ')
+  RS(, )
+  b := V()
+  WF('A+B=\\A-B=\\', +b, -b)
+  WF('A*B=\\AB=\\', *b, b)
+  * *    16 b  Mu  D  32b  *
+  WF('A*B=\\AB=\\', Mu(,b), D(,b))
+  WF('A  B =\\', M(,b))
+ENDPROC

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

@@ -0,0 +1,7 @@
+∇ ← _mc  
+   ← ⎕
+   ← ⎕
+   ← 6 2 ⍴ 'u' (+) 'ff' (-) '' (×) 'qu' (⌊÷) '' (|) '' (*)
+∇
+
+Qu  u    .

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

@@ -0,0 +1,16 @@
+
+ 1 o ( ud of (d do "E   vu" dfu w ""))  
+ 2  ( u f (  "E   u" fu  ""))  
+
+ u  1 + 2
+ ff  1 - 2
+   1 * 2
+ qu  1  2 -- Ru  z.
+   1  2 -- T u'  c  '.
+   1 ^ 2 -- T u'   .
+
+u {||:{1, 2}, ffc:ff, uc:, qu:qu, :, :}
+
+{{uu}}
+
+{||:{-57, 2}, dffc:-59, oduc:-114, quo:-28, md:-1, oo:3249.0}

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

@@ -0,0 +1,293 @@
+{{ ||Rb P}}
+ =" b"
+
+* ARM b Rb PI  *
+*   .   *
+* C    *
+.qu STDOUT, 1
+.qu WRITE,  4
+.qu EXIT,   1
+
+***********************
+* Iz  *
+***********************
+.
+zME:      .cz " T ub  c   ! \"       @ 
+zRuL: .cz "\"
+zMRu:  .cz "Ru "      @  u
+MVu:   .f 12, 1, ' '
+                   .cz "\"
+zMA: .cz " :"
+zMSuc: .cz "uc :"
+zMMuc: .cz "uc :"
+zMD: .cz " :"
+zMR: .cz " :"
+   
+***********************				   
+* N Iz  *
+***********************
+.b
+Vu:  .  4     @  4 b  
+
+.
+.b  
+:
+    u {f,}                @    2 
+     f,,#8                @ f -  ébu
+     0,[f]                 @ cu ub f   c 
+    c 0,#3
+    b 
+     0,[f,#8]              @  f 1 ub
+    b cAD
+     3,0
+     0,[f,#12]             @  f 2 ub
+    b cAD
+     4,0
+    @ 
+     0,3,4
+     1,AMVu      @ u  0
+    b c10S            @ c fuc  2  (0,1)
+     0,AzMRu
+    b ffcM            @  
+     0,AzMA
+    b ffcM            @  
+     0,AMVu
+    b ffcM            @  
+    @ uc
+    ub 0,3,4
+     1,=MVu                 
+    b c10S            @ c fuc  2  (0,1)
+     0,AzMRu
+    b ffcM            @  
+     0,AzMSuc
+    b ffcM            @  
+     0,AMVu
+    b ffcM            @  
+
+    @ uc
+    u 0,3,4
+     1,=MVu                 
+    b c10S            @ c fuc  2  (0,1)
+     0,AzMRu
+    b ffcM            @  
+     0,AzMMuc
+    b ffcM            @  
+     0,AMVu
+    b ffcM            @  
+   
+    @  
+     0,3
+     1,4
+    b 
+     0,2                   @ qu
+     1,=MVu                 
+    b c10S            @ c fuc  2  (0,1)
+     0,AzMRu
+    b ffcM            @  
+     0,AzMD
+    b ffcM            @  
+     0,AMVu
+    b ffcM            @  
+
+     0,3                   @ 
+     1,=MVu                 
+    b c10S            @ c fuc  2  (0,1)
+     0,AzMRu
+    b ffcM            @  
+     0,AzMR
+    b ffcM            @  
+     0,AMVu
+    b ffcM            @  
+ 
+     0, #0                  @ u c
+    b 100f
+:
+     0,AzME
+    b ffcM            @ c fuc  1  (0)
+     0, #1                  @ u c
+100: *  f   *
+     7, #EXIT               @ qu   
+     0                       @ f   c
+AMVu: . MVu	
+AzMRu: . zMRu
+AzME: . zME
+AzMA: . zMA
+AzMSuc: . zMSuc
+AzMMuc: . zMMuc
+AzMD: . zMD
+AzMR: . zMR
+******************************************************************
+*     ffc     c ccu uu              * 
+******************************************************************
+* 0 c   u  *
+ffcM:
+    u {f,}        *    2  * 
+    u {0,1,2,7}  *   u  *
+     2,#0           * cu uu *
+1:                      *ccu   uu *
+    b 1,[0,2]     * cu c  bu + c *
+    c 1,#0           *  0 c  f *
+    bq 1f
+     2,2,#1        *   ju 1 *
+    b 1b
+1:                      * c c 2 c  uu u  *
+     1,0           *  u   1 *
+     0,#STDOUT      * c u éc u    Lu *
+     7, #WRITE      * c     '' *
+     #0              *   *
+     {0,1,2,7}   * u  u  *
+     {f,}         * u   2  * 
+    b 	        * u cu *	
+***************************************************
+*   c   éc   é  *
+***************************************************
+* 0 c     *
+* 1 c     z  c *
+c10S:
+    u {f,}      *    2  f  u *
+    u {0-5}      *  u   *
+     2,1         * bu z c *
+     5,#'+'       *  fu    + *
+    c 0,#0         * b éf ? *
+     5,#'-'     * u    - *
+     0,0       *    u  *
+     0,#1
+     4,#10       * uu   z *
+1:                   * bu  buc  c *
+    b 10 *   *
+     1,#48       * ju  48 u  u c c *	
+    b 1,[2,4]  * c u b  ébu  z 5 +   4 *
+    ub 4,4,#1     *  éc *
+    c 0,#0     
+    b 1b	     * buc  qu ff  zé *
+    b 5,[2,4]  * c u  à   cu *
+    ub 4,4,#1    *  éc *
+    b  100f        *  4  0  f  *
+                     *   fu c  bu   z c  bc *
+     3,#' '      * cc c *	
+2:
+    b 3,[2,4]  * c u b  *
+    ub 4,4,#1    *  éc *
+    b 2b           * buc  4 u  u   z *
+100:                 * f    fc  *
+     {0-5}      *u  u  *
+     {f,}      * u   2  f  u  *
+    b    
+
+***************************************************
+*     10   é                       *
+* T  :.c-b-b-*  
+*    :.c.            *
+***************************************************
+* 0 c     *
+* 0 u  qu *	
+* 1 u    *
+10:	
+  * 0 c  u  b  b 10 *
+   u {2-4}   *  u   *
+    4,0 
+    3, .L_c_ub_10 * 1 - c_ub *
+   u 1, 2, 3, 0   * 1 - L32B(1*0). 2 - U32B(1*0) *
+    2, 2, ASR #2     * 2 - 2  2 *
+    1, 0, LSR #31    * 1 - 0  31 *
+    0, 2, 1         * 0 - 2 + 1 *
+    2,0,0,  #2   * 2 - 0 * 5 *
+   ub 1,4,2,  #1   * 1 - 4 - (2 * 2)  = 4 - (0 * 10) *
+    {2-4}
+   b                   *  fuc *
+   . 4
+.L_c_ub_10: . 066666667
+******************************************************************
+*     C  u c  b cé  u   * 
+******************************************************************
+* 0 c     z é  0 u 0A *
+cAD:
+    u {f,}      *    2  * 
+    u {1-7}      *   u  *
+     1,#0
+     2,#10        * fcu *
+     3,#0         * cu *
+     4,0         *      4 *
+     6,#0         *  f  fu *
+     0,#0         *  à 0 * 
+1:                    * buc  é  bc u bu *
+    b 5,[4,3]   * c  5   c ué u bu +   *
+    c 5,#0         * f  c - f u *
+    bq 100f
+    c 5,#00A      * f  c - f u *
+    bq 100f
+    c 5,#' '       * bc u ébu *
+    b 1f            *   cu *
+     3,3,#1      * u  buc  ç  u c *
+    b 1b
+1:
+    c 5,#'-'       *  cc  -    *
+    q 6,#1       * j u  6 c 1 *
+    bq 3f            * u  c à   u *
+2:                    * bu  buc    cff *
+    c 5,#'0'       * cc    u cff *
+    b 3f
+    c 5,#'9'       * cc    u cff *
+    b 3f
+                      * ccè  u cff *
+    ub 5,#48
+     1,M      *f  é u   *  
+    c 0,1
+    b 99f
+    u 0,2,0     * u  fcu *
+     0,5        * ju à 0 *
+3:
+     3,3,#1     * c à   u *
+    b 5,[4,3]  * c   c *
+    c 5,#0        * f  c - f u *
+    bq 4f
+    c 5,#10       * f  c - f u *
+    bq 4f
+    b 2b             * buc * 
+4:
+    c 6,#1        *  u  6 u   *
+    b 100f
+     1,#-1
+    u 0,1,0    *  f,  u  -1 *
+    b 100f
+99:                 * u  é *
+     1,=zMED
+    b   ffcu 
+     0,#0       *  c  u  u uju z *
+100:
+     {1-7}     * u  u  *
+     {f,}     * u   2  * 
+    b            * u cu *	
+* c  *	
+M: . 1073741824	
+zMED:  .cz  "Nb   : é  cc  32 b. :\"
+. 4
+*=============================================*
+*    é                *
+*============================================*
+:
+    * 0 c N *
+    * 1 c D *
+    * 2 c Q *
+    * 3 c R *
+    u {4, }
+     2, #0              * 2 ? 0 *
+     3, #0              * 3 ? 0 *
+     4, #32             * 4 ? 32 *
+    b 2f
+1:
+     0, 0, LSL #1    * 0 ? 0  1 u c ( C f 31 b f 0  1) *
+    c 3, 3, 3         * 3 ? 3 + 3 + C. T  qu  3 ? (3  1) + C *
+ 
+    c 3, 1             * cu 3 - 1  u c *
+    ub 3, 3, 1       * f 3 = 1 (C=1)  3 ? 3 - 1 *
+    c 2, 2, 2         * 2 ? 2 + 2 + C. T  qu  2 ? (2  1) + C *
+2:
+    ub 4, 4, #1        * 4 ? 4 - 1 *
+    b 1b                 * f 4 = 0 (N=0)  bc  .L1 *
+ 
+     {4, }
+    b 	
+
+
+

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

@@ -0,0 +1,10 @@
+
+: o : u "v m  f umb  : "
+b:  : u "   c ub : "
+
+ [ "+" b "=" +b]
+ [ "-" b "=" -b]
+ [ "*" b "=" *b]
+ [ "" b "=" b]
+ [ "%" b "=" %b]
+ [ "^" b "=" ^b]

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

@@ -0,0 +1,17 @@
+  = -12
+ b = 7
+
+ u =  + b
+  =  - b
+ uc =  * b
+  =   b
+  =  % b
+  =  ** b
+
+("S    = -12  b = 7")
+("       u   + b = ", u)
+("         - b = ", )
+("   uc   * b = ", uc)
+("   ó    b = ", )
+("        b = ", )
+("ccó  ^ b = ", )

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

@@ -0,0 +1,20 @@
+T qu u  0 f b u      f f  u  f . T  f          f  f  ().
+Gu, Add, Ed, v, 5
+Gu, A, E, b, -3
+Gu, A, Bu, Dfu, Cu
+Gu, S
+Ru
+
+BuCu:
+  Gu, Sub
+  MB,%
+  (J`"`"
+    "+" b " = " +b
+    "-" b " = " -b
+    "*" b " = " *b
+    "" b " = " b "  " M(,b)
+    "**" b " = " **b
+  )
+ fu
+GuC:
+  EA

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

@@ -0,0 +1,13 @@
+Mod "mc dmo_,_"  
+[
+     : ,
+    b : 
+|
+    P: “ + b”
+    P: “ - b”
+    P: “ × b”    * b
+    P: “ ÷ b”     b, u   f
+    P: “  b”   c c u
+    P: “ ^ b”
+]
+

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

@@ -0,0 +1,12 @@
+^[ \]*-?[0-9]+[ \]+-?[0-9]+[ \]*$ {
+	 ":", $1 + $2
+	 "ub:", $1 - $2
+	 "u:", $1 * $2
+	 ":", ($1  $2) # uc  z
+	 ":", $1 % $2      #    f 
+	 ":", $1 ^ $2
+	 }
+
+F   uu, A u c  C.
+
+'''E' :''' W [[]]  [[]], c$1 ** $2c c  c$1 ^ $2c. W [[]], c$1 ** $2c    . N  c**c, bu  u    c^c. G' u , ''"T POSIX   cf  u f `^' f . F u b,   u  `**' ."''

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

@@ -0,0 +1,56 @@
+==={{|Af BASIC}}===
+S c  [[#C_BASIC|C BASIC]]
+==={{|BC}}===
+' AmcI
+DECLARE %, b%
+INPUT "E  A: ", %
+INPUT "E  B: ", b%
+PRINT
+
+PRINT %, " + ", b%, "      ", % + b%
+PRINT %, " - ", b%, "      ", % - b%
+PRINT %, " * ", b%, "      ", % * b%
+PRINT %, "  ", b%, "      ", %  b%, ", uc  z"
+PRINT "MOD(", %, ", ", b%, ")  ", MOD(%, b%), ",    f "
+PRINT "POW(", %, ", ", b%, ")  ", INT(POW(%, b%))
+
+==={{|C BASIC}}===
+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%""B%"="INT(A%B%)
+70 PRINT "REMAINDER OR MODULO:"A%"%"B%"="A%-INT(A%B%)*B%
+80 PRINT "POWER:"A%"^"B%"="A%^B%
+
+==={{|Tu BASIC}}===
+
+! RC: I Ac
+! Tu BASIC 6.007
+! T f BC .
+PROGRAM I_Ac
+	INPUT PROMPT "E  A: ": 
+	INPUT PROMPT "E  B: ": b
+	PRINT
+	PRINT " + "b"  "+b
+	PRINT " - "b"  "-b
+	PRINT " * "b"  "*b
+	PRINT "  "b"  "INT(b)
+	PRINT "MOD("", "b")  " MOD(,b)
+	PRINT "POW("", "b")  "INT(^b)
+	GET KEY 
+END
+
+==={{|QBc}}===
+{{ |QucBc|4.5}}
+fuco m(!, b!)
+	  + b
+	  - b
+	  * b
+	   b
+	   b
+ fuc
+Tuc : 0
+
+R  c: f 

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

@@ -0,0 +1,11 @@
+
+u "  ub ?", 
+u "  ub ?", b
+
+ " " +  + " + " + b + " = " + ( + b)
+ "ubc " +  + " - " + b + " = " + ( - b)
+ "uc " +  + " * " + b + " = " + ( * b)
+ "  " +  + " \ " + b + " = " + ( \ b)
+ "  u " +  + " % " + b + " = " + ( % b)
+ " " +  + " ^ " + b + " = " + ( ^ b)
+

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

@@ -0,0 +1,7 @@
+{{ |W 7|  , ' cc  }}
+
+  qu=
+  u=%qu%
+c %u%
+u
+

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

@@ -0,0 +1,9 @@
+      INPUT "E  f : " f%
+      INPUT "E  c : " c%
+      
+      PRINT "T u  "  f% + c%
+      PRINT "T ffc  "  f% - c%
+      PRINT "T uc  "  f% * c%
+      PRINT "T  qu  "  f% DIV c% " (u  0)"
+      PRINT "T   "  f% MOD c% " ( c f )"
+      PRINT "T f     f  c  "  f% ^ c%

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

@@ -0,0 +1,8 @@
+df f(, b) {
+	": "  + b
+	"ub: "  - b
+	"u: "  * b
+	": "   b  * uc  z *
+	": "  % b  *    f  *
+	": "  ^ b
+}

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

@@ -0,0 +1,6 @@
+mm00"=A",,:."=B ",,,00.55+,v
+        ,+55.+00:,,,,"A+B="
+        "=B-A",,,,:00-.55+,
+        ,+55.*00:,,,,"A*B="
+        "=BA",,,,:00.55+,
+         @,+55.%00,,,,"A%B="

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

@@ -0,0 +1,22 @@
+•Ou "E ub 1: "
+ ← •BQN •GL @
+•Ou "E ub 2: "
+b ← •BQN •GL @
+
+•S  + b
+•S  - b
+•S  × b
+•S  ÷ b
+•S b | 
+•S  ⋆ b
+E ub 1:
+12
+E ub 2:
+2
+14
+10
+24
+6
+0
+144
+

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

@@ -0,0 +1,19 @@
+T  u b   -. Fu, c$(!.!)*!+$(!.!):!c f   c!c  c!c, c!:~0c.
+  ( 
+  =     u$"E   ub,  b c:"
+       ':(~#?_~#?|qu:?)
+    |     u
+        $ "Yu u    ub! E \"qu\" f u '     ."
+       !
+  )
+ !
+ !:~qu
+ u$("Yu " !  ! ". N :")
+ u$("Su:" !+!)
+ u$("Dffc:" !+-1*!)
+ u$("Puc:" !*!)
+ u$("I :" $(!.!))
+ u$("R:" $(!.!))
+ u$("E:" !^!)
+ 
+

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

@@ -0,0 +1,8 @@
+I b  c VBSc .
+ = k("F umb: ").o_
+ = ("Sc ub: ")._
+
+#D u f 
+#R u  f   
+[:+ :- :* : :% :^].c {  |
+   "#{} #{} #{} = #{.c_ , }"