zettacode 0.1.0 → 0.1.2

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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