zettacode 0.1.0 → 0.1.2

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

@@ -1,25 +0,0 @@
-A Ac  NSIS   b  [:.ucf.DcC4.#4.9.10.2 IO] uc.  I  b  c f     u u ( f  ),  I  b  -c u u  u u,    f    u-u c.
-Fuco Amc
-	Pu $0
-	Pu $1
-	Pu $2
-	SC $0 21
-	SC $1 -2
-	
-	IO $2 $0 + $1
-	DP "$0 + $1 = $2"
-	IO $2 $0 - $1
-	DP "$0 - $1 = $2"
-	IO $2 $0 * $1
-	DP "$0 * $1 = $2"
-	IO $2 $0  $1
-	DP "$0  $1 = $2"
-	DP "Ru    f"
-	IO $2 $0 % $1
-	DP "$0 % $1 = $2"
-	DP "S f  c  f ub"
-	
-	P $2
-	P $1
-	P $0
-FucE

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

@@ -1,14 +0,0 @@
-Of Ob-2
-
-MODULE Ac
-IMPORT I, Ou
-VAR
-        ,:INTEGER
-BEGIN
-        Ou.S("G  ub: ")I.I()I.I()
-        Ou.S(" +  ")Ou.I( + ,6)Ou.L
-        Ou.S(" -  ")Ou.I( - ,6)Ou.L
-        Ou.S(" *  ")Ou.I( * ,6)Ou.L
-        Ou.S("   ")Ou.I( DIV ,6)Ou.L
-        Ou.S(" MOD  ")Ou.I( MOD ,6)Ou.L
-END Ac.

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

@@ -1,17 +0,0 @@
-bud Dfu {
-  c Ac {
-    fuc : M( : S.S[]) ~ N {
-      DAc()
-    }
-	
-    fuc :  : DAc() ~ N {
-       := IO.C-GIc()-RS()-TI()
-      b := IO.C-GIc()-RS()-TI()
-  
-      IO.C-GIc()-P("+b = ")-PL(+b)
-      IO.C-GIc()-P("-b = ")-PL(-b)
-      IO.C-GIc()-P("*b = ")-PL(*b)
-      IO.C-GIc()-P("b = ")-PL(b)
-    }
-  }
-}

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

@@ -1,9 +0,0 @@
- _ =
-    = _ ()
-   b = _ () 
-
-  Pf.f " + b = %\" ( + b)
-  Pf.f " - b = %\" ( - b)
-  Pf.f " * b = %\" ( * b)
-  Pf.f "  b = %\" (  b)    (* uc  0 *)
-  Pf.f "  b = %\" (  b) (*    f  *)

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

@@ -1,9 +0,0 @@
-
-:  ( b -- )
-   " + b ="   .  b + .c
-   " - b ="   .  b - .c
-   " * b ="   .  b * .c
-   "  b ="   .  b  .c
-   "  b =" .  b  .c 
-   "  b =" .  b  .c
-

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

@@ -1,23 +0,0 @@
-
-
-(f  8)
-(f b 12)
-
-( "(+ "  " " b ") = "    (+  b))
-( "(- "  " " b ") = "    (-  b))
-( "(* "  " " b ") = "    (*  b))
-( "( "  " " b ") = "    (  b))
-
-( "(qu "  " " b ") = "  (qu  b))    (qu  b)
-( "( "  " " b ") = " (   b))    (  b)
-( "(u "  " " b ") = "    (   b))    (u  b)
-
-( "( "  " " b ") = " (  b))
-( "(c "  " " b ") = " (c  b))
-( "(c "  " " b ") = " (c  b))
-
- u c u    u f +,-,*, fuc
-( (+ 1 3 5 7 9))
-( (- 1 3 5 7 9))
-( (* 1 3 5 7 9))    (1*3*5*7*9)
-( ( 1 3 5 7 9))    (((13)5)7)9

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

@@ -1,44 +0,0 @@
-
-# Mo of  o c  m o.
-# A u      u     c
-#   cu , ub, u, ,  .
-
-$CSc { # U ANSI  c
-  `\[2J\[11H'  fu
-} b f
-
-$S { #  S -
-  `\' c  fu
-} b f
-
-$SPb {
-`T    c    O,' S
-`\' u  ub f u cc, c' S
-`\' c A  B.\' S
-} b f
-
-$P { # c:  --
-  u c   fu
-} f
-
-$GI { # c:  -- 
-  u c `E  ' c c `: ' c
-  P    c  f
-} b f
-
-$T { # c__ b_ T u_
-  A c ` ' B c ` ' 5 c  c `  ' 3 c c
-  A B  c  c `.' 3 c S
-} b f
-
-$SRu {
-  $ `A: ' T
-  $ub `Subc: ' T
-  $u `Muc: ' T
-  $ `D: ' T
-  `N   u f    u  z.' S
-  $ `E: ' T
-  `N   u f          ub.' S
-} b f
-
-CSc SPb $A GI $B GI SRu

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

@@ -1,6 +0,0 @@
-
-co (+b)  * Sum *
-c (-b)  * Dffc *
-c (*b)  * Puc *
-c (b)  * Qu *
-c (%b)  * Muu *

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

@@ -1,19 +0,0 @@
-dc
-  SI = {N c $ f O.f O.  (:)}
-
-  fu {RI}
-     {S.I {SI S($)}}
-  
-
-  A = {RI}
-  B = {RI}
-
-  {FA
-   ["A+B = "#A+B
-    "A-B = "#A-B
-    "A*B = "#A*B
-    "AB = "#A  B  %% uc  0
-    " "#A  B  %%      A
-    "A^B = "#{P A B}
-   ]
-   S.If}

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

@@ -1,2 +0,0 @@
-U fc    fuc f  ub  ub  u ub.
-=3 b=7 fuc:_bbf__umb_umb_umb =f.m.b '('  b ')' ' = ' f( b) 

data/zettacode.files/arithmetic.integer/pari-gp.txt

@@ -1,9 +0,0 @@
-I   c\c u  -\f. T    c\c u-- (  +\f) .  O  cc   u bu u  f     - qu.
-(,b)={
-  (+b)
-  (-b)
-  (*b)
-  (\b)
-  (%b)
-  (^b)
-}

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

@@ -1,14 +0,0 @@
-om mc(u, ouu)
-
-
- , b: 
-
-b
- (, b)
- ('+b = ', +b)
- ('-b = ', -b)
- ('*b = ', *b)
- ('b = ',   b, ',  ',   b)
- ('^b = ',P(,b):4:2)    { }
- ('^b = ',IP(,b):4:2) { }
-.

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

@@ -1,12 +0,0 @@
-{{ |P|5.}}
-m $ = 
- $b = 
-
-
-    "u:              ", $ + $b, "\",
-    "ffc:       ", $ - $b, "\",
-    "uc:          ", $ * $b, "\",
-    " qu: ", ($  $b), "\",
-    ":        ", $ % $b, "\",
-    ":         ", $ ** $b, "\"
-    

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

@@ -1,49 +0,0 @@
-{{b|PGUI}}
-{{b|P}}
-Yu c u   [:.10.2jAI. ] (uc   fc ).
-!--(o)--
-  ="c: #008080"  ="c: #008080"jc_c
-  ="c: #008080"cu  ="c: #000000"GUI ="c: #0000FF". ="c: #000000"
- 
-  ="c: #004080"I  ="c: #000000"b ="c: #0000FF",  ="c: #000000"b ="c: #0000FF",  ="c: #000000" ="c: #0000FF",  ="c: #000000"
- 
-  ="c: #008080"c  ="c: #000000"f  ="c: #0000FF"=  ="c: #008000""""
-  = %
- b = %
-  + b = %
-  - b = %
-  * b = %
-   b = %  (  uc)
- (,b) = % (   f )
- (,b) = %
- """
- 
-  ="c: #008080"fuc  ="c: #000000"uc_cb ="c: #0000FF"( ="c: #004080"I  ="c: #000000"b ="c: #0000FF")
-      ="c: #004080"  ="c: #000000"  ="c: #0000FF"=  ="c: #7060A8"IuGAbu ="c: #0000FF"( ="c: #000000"b ="c: #0000FF", ="c: #008000""VALUE" ="c: #0000FF")
-      ="c: #004080"quc  ="c: #000000"  ="c: #0000FF"=  ="c: #7060A8"cf ="c: #0000FF"( ="c: #000000" ="c: #0000FF", ="c: #008000""% %" ="c: #0000FF")
-      ="c: #008080"f  ="c: #7060A8" ="c: #0000FF"( ="c: #000000" ="c: #0000FF")= ="c: #000000"1  ="c: #008080"
-          ="c: #004080"  ="c: #0000FF"{ ="c: #000000" ="c: #0000FF", ="c: #000000"b ="c: #0000FF"}  ="c: #0000FF"=  ="c: #000000" ="c: #0000FF"[ ="c: #000000"1 ="c: #0000FF"]
-          ="c: #000000"  ="c: #0000FF"=  ="c: #7060A8"f ="c: #0000FF"( ="c: #000000"f ="c: #0000FF",  ="c: #0000FF"{ ="c: #000000" ="c: #0000FF",  ="c: #000000"b ="c: #0000FF",  ="c: #000000" ="c: #0000FF"+ ="c: #000000"b ="c: #0000FF",  ="c: #000000" ="c: #0000FF"- ="c: #000000"b ="c: #0000FF",  ="c: #000000" ="c: #0000FF"* ="c: #000000"b ="c: #0000FF",  ="c: #000000" ="c: #0000FF" ="c: #000000"b ="c: #0000FF",  ="c: #7060A8" ="c: #0000FF"( ="c: #000000" ="c: #0000FF", ="c: #000000"b ="c: #0000FF"),  ="c: #7060A8" ="c: #0000FF"( ="c: #000000" ="c: #0000FF", ="c: #000000"b ="c: #0000FF")})
-          ="c: #7060A8"IuSSAbu ="c: #0000FF"( ="c: #000000" ="c: #0000FF", ="c: #008000""TITLE" ="c: #0000FF", ="c: #000000" ="c: #0000FF")
-          ="c: #7060A8"IuRf ="c: #0000FF"( ="c: #000000" ="c: #0000FF")
-      ="c: #008080"  ="c: #008080"f
-      ="c: #008080"u  ="c: #004600"IUP_DEFAULT
-  ="c: #008080"  ="c: #008080"fuc
- 
-  ="c: #008080"cu  ="c: #000000" ="c: #0000FF"()
-      ="c: #7060A8"IuO ="c: #0000FF"()
-      ="c: #000000"b  ="c: #0000FF"=  ="c: #7060A8"IuLb ="c: #0000FF"( ="c: #008000""E  ub" ="c: #0000FF")
-      ="c: #000000"b  ="c: #0000FF"=  ="c: #7060A8"IuT ="c: #0000FF"( ="c: #008000""VALUECHANGED_CB" ="c: #0000FF",  ="c: #7060A8"Icbc ="c: #0000FF"( ="c: #008000""uc_cb" ="c: #0000FF"), ="c: #008000""EXPAND=HORIZONTAL" ="c: #0000FF")
-      ="c: #000000"  ="c: #0000FF"=  ="c: #7060A8"IuLb ="c: #0000FF"( ="c: #008000""( b  c)\\\\\\\" ="c: #0000FF", ="c: #008000""EXPAND=BOTH" ="c: #0000FF")
-      ="c: #000000"  ="c: #0000FF"=  ="c: #7060A8"IuD ="c: #0000FF"( ="c: #7060A8"IuVb ="c: #0000FF"({ ="c: #7060A8"IuHb ="c: #0000FF"({ ="c: #000000"b ="c: #0000FF", ="c: #000000"b ="c: #0000FF"}, ="c: #008000""GAP=10,NORMALIZESIZE=VERTICAL" ="c: #0000FF"),
-                               ="c: #7060A8"IuHb ="c: #0000FF"({ ="c: #000000" ="c: #0000FF"})}, ="c: #008000""MARGIN=55" ="c: #0000FF"),
-                              ="c: #008000"`SIZE=188112,TITLE="AcI"` ="c: #0000FF")
-      ="c: #7060A8"IuS ="c: #0000FF"( ="c: #000000" ="c: #0000FF")
-      ="c: #008080"f  ="c: #7060A8"f ="c: #0000FF"()!= ="c: #004600"JS  ="c: #008080"
-          ="c: #7060A8"IuML ="c: #0000FF"()
-          ="c: #7060A8"IuC ="c: #0000FF"()
-      ="c: #008080"  ="c: #008080"f
-  ="c: #008080"  ="c: #008080"cu
-  
-  ="c: #000000" ="c: #0000FF"()
-!----

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

@@ -1,14 +0,0 @@
-df O
-       
-f
-
-8   3  b
-" = "  O
-"b = " b O
-
-" + b = "  b + O
-" - b = "  b - O
-" * b = "  b * O
-"(  b) = "  b   O
-"  b = "  b  O
-" ^ b = "  b  O

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

@@ -1,20 +0,0 @@
-
-modu 
-
- f
- cf
-
-@I  [
-	@P@I  = c(4)
-	@P@I b = c(4)
-	cf("% %", , b)
-	
-	f(" + b = %\", :: + b::)
-	f(" - b = %\", :: - b::)
-	f(" * b = %\", :: * b::)
-	f("  b = %\", ::  b::)
-	f(" % b = %\", :: % b::)
-	f(" ** b = %\", :: ** b::)
-	
-	u 0
-]

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

@@ -1,13 +0,0 @@
-?
-$ = f(STDIN)
-$b = f(STDIN)
-
-c
-    "u:                 ", $ + $b, "\",
-    "ffc:          ", $ - $b, "\",
-    "uc:             ", $ * $b, "\",
-    "uc qu: ", ()($  $b), "\",
-    "f qu:   ", f($  $b), "\",
-    ":           ", $ % $b, "\",
-    ":               ", $ ** $b, "\"  PHP 5.6+ 
-?

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

@@ -1,8 +0,0 @@
-m =
-    X = _(),
-    Y = _(),
-    fc (O  [+,-,*,,])
-        R = (O,X,Y),
-        f("% % % = %\", X, O, Y, R)
-    .
-

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

@@ -1,8 +0,0 @@
-(d m (A B)
-   ( "A      " (+ A B))
-   ( "Subc " (- A B))
-   ( "Mu " (* A B))
-   ( "D   " ( A B))        # Tuc  z
-   ( "D  " (* A B))       # Ru   
-   ( "Muu  " (% A B))        # S f  f 
-   ( "P    " (** A B)) )

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

@@ -1,38 +0,0 @@
-[[F:PAcI.]]b
- c
- c   c
- ()   A
- uc AA
- uc AAA
- uc AAAA
- uc AAAAA
- ()   BAAAAA
- uc BBAAAAA
- uc BBBAAAAA
- uc BBBBAAAAA
- uc BBBBBAAAAA
- u 9    9BBBBBAAAAA
- u 1    19BBBBBAAAAA
-       BBBBAAAABA
- u 7    7BBBBAAAABA
- u 1    17BBBBAAAABA
-       BBBAAABABA
- u 5    5BBBAAABABA
- u 1    15BBBAAABABA
-       BBAABABABA
- u 3    3BBAABABABA
- u 1    13BBAABABABA
-       BABABABABA
-        (A+B)BABABABA
- u()  BABABABA
- ub       (A-B)BABABA
- u()  BABABA
- u      (A*B)BABA
- u()  BABA
-     (AB)BA
- u()  BA
-        (A%B)
- u()  NULL
- u 1    1
- c
-H u    u   , bu I b    u  0.

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

@@ -1,8 +0,0 @@
- =""
-  (, b)
-u   (+b)
-u   (-b)
-u   (*b)
-u   (uc(b)) * uc  z.       *
-u   ((, b))  * R   . *
-u   ((, b))  * S c b .         *

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

@@ -1,26 +0,0 @@
-To u:
-S u.
-D  c.
-W f  c .
-Su .
-
-T   c:
-W "E  ub: "   c u c.
-R  ub f  c.
-W "E  ub: "   c u c.
-R  ub f  c.
-S  c  b  ub    ub.
-
-T   c  b  ub   ub:
-W  ub u   ub  "   u."   c.
-W  ub u   ub  "   ffc."   c.
-W  ub    ub  "   uc."   c.
-S   f  ub b   ub.
-R  ub    ub.
-W  ub  "   ."   c.
-
-T    f  ub b  ub:
-Pz  ub.
-D  ub b   ub   qu [u  z]    [      ].
-W  qu  "   qu."   c.
-W    "   ."   c.

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

@@ -1,12 +0,0 @@
-
- Su ok d
- 
-c(c) - 
-   ub
-  = (), b = ()
- P u
-f( + b, ' + b = %\')
-f( - b, ' - b = %\')
-f( * b, ' * b = %\')
-f(  b, '  b = %\')
-f(  b, '  b = %\')

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

@@ -1,10 +0,0 @@
-I {
-    c f
-    c f
-      =
-     ub =
-     u =
-      =
-      =
-      =
-} f

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

@@ -1,15 +0,0 @@
-$ = [] (Rd-Ho F Numb)
-$b = [] (R-H Sc Nub)
-
-W-H "Su:                              $($ + $b)"
-W-H "Dffc:                       $($ - $b)"
-W-H "Puc:                          $($ * $b)"
-W-H "Qu:                         $($  $b)"
-W-H "Qu, u  :          $([M]::Ru($  $b))"
-W-H "R,  f f:    $($ % $b)"
-Nub  uc c  cc f  u. T     I32  b   I64 bu    - qu  cu  u  b f  f- .
-
-T     f  f .
-
-N   , bu c b  u   .NET BCL:
-[M]::Pow($, $b)

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

@@ -1,7 +0,0 @@
-  = 7, b = 5
-
-( + " + " + b + " = " + ( + b))
-( + " - " + b + " = " + ( - b))
-( + " * " + b + " = " + ( * b))
-( + "  " + b + " = " + (  b)) Ru  z
-( + " % " + b + " = " + ( % b)) S   f 

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

@@ -1,35 +0,0 @@
-IGNORELINE No: T m cud  m modu.
-cu cu
-:
-  u= =E f : 
-  u=b =E c :
-  u=c 
-  --,-b-=-c-
- -c-
- ubc ,b
- -c-
- u ,b
- -c-
-  ,b
- -c-
- uu ,b
- -c-
-  u= =D u   ccu  ub?
-f -- u   :   :
-:
-
-IGNORELINE No: T m do o u  m modu.
-:
-  u= =E f : 
-  u=b =E c :
-  u=--+-b-=-c-
- -c-
-  u=*b=c
- -c-
-  u=b=c
- -c-
-  u= %% b=c
- -c-
-  u= =D u   ccu  ub?
-f -- u   :   :
-:

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

@@ -1,33 +0,0 @@
-
-I qu (``) u  0.
-
-R (``) c   f  f .
-
-
-
-___u(M, N, O) :-
-    E =.. [O, M, N],
-    Ru  E,
-    f('~ ~8| ~~', [E, Ru]).
-
-c_ :-
-    (M),
-    (N),
-    ( ___u(M, N), [+,-,*,,,^] ).
-
-
-
-U u:
-
-
-?- c_.
-|: 5.
-|: 7.
-5+7      12
-5-7      -2
-5*7      35
-57     0
-5  7  5
-5^7      78125
-u.
-

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

@@ -1,17 +0,0 @@
-OCoo()
- 
-Df , b
-
-P("Nub 1: "):  = V(Iu())
-P("Nub 2: "): b = V(Iu())
-
-PN("Su:        " + S( + b))
-PN("Dffc: " + S( - b))
-PN("Puc:    " + S( * b))
-PN("Qu:   " + S(  b))  I  (u =uc)
-PN("R: " + S( % b))
-PN("P:      " + S(P(, b)))
- 
-Iu()
- 
-CC()

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

@@ -1,47 +0,0 @@
-
- = (w_u("Numb 1: "))
- = (_u("Nub 2: "))
-
- "Su: %" % ( + )
- "Dffc: %" % ( - )
- "Puc: %" % ( * )
- "Qu: %" % (  )     #       f   .
-                                   # uc   f
- "R: %" % ( % )    #    c 
- "Qu: %  R: %" % (, )
- "P: %" % **
-
-## O u     u    
-_u( )
-
-N: I P3 ''_u()''  b   ''u()'' (  ''u()'' bu-   , u  cu u ''(u())''  u   ...  - ... b).  A  b  u    ''()'' c   '': ... c VuE:...'' cuc uc :
-
-df um(om):
-     Tu: #  ...
-        :
-             = (_u())
-        c VuE:
-             "Iu cu  b    . P  ."\
-            cu
-        b
-    u 
-
- = u("Nub1: ")
- = u("Nub2: ")
-...
-
-(I  '  cc  f  f  u  c  bc.  T  c u f c u u, bu      f cfu   f,   f  c   IPC c).
-
-P    cu ''''  u b qu  . 
- qu,  = (355,113)
-G  qu f 3,    f 16. 
-
-=== P 3.0 cb c ===
-df mc(, ):
-    f   "+ - *  % **".():
-         = "%() %() %()" % ()
-        ("%\= %" % (, ()))
-
-
-c(12, 8)
-c(u("Nub 1: "), u("Nub 2: "))

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

@@ -1,21 +0,0 @@
-''CBTJD'': 20200312
-START:
-INPUT "E   (,b):" !, b!
-IF  = 0 THEN END
-IF b = 0 THEN
-    PRINT "Sc   z. Z   f Qu  R."
-    GOTO START
-END IF
-PRINT
-PRINT "             Su = "  + b
-PRINT "      Dffc = "  - b
-PRINT "         Puc = "  * b
-' Nc  u f  INTEGER D "\"     u  "".
-PRINT "I Qu = "  \ b, , "* Ru  0."
-PRINT "       R = "  MOD b, , "* S c f ."
-PRINT "  E = "  ^ b
-PRINT
-INPUT "A? (N)" $
-IF UCASE$($) = "Y" THEN CLS: GOTO START
-CLS
-END

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

@@ -1,12 +0,0 @@
-
- ="quc "  $ "P     b  c. "
-  u quc
-  2u  "T u :              " +    c c
-  2u  "T ffc :       " -    c c
-  2u  "T uc : "        " *    c c
-  2u  "T  qu : "     c c
-  2u  "T  :        "   c c
-        "T  :   " **   c c
-  c
-   "Qu u   f." c
-   "R c   f  c u."

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

@@ -1,11 +0,0 @@
-c(" umb ")
- - c(=1, qu=TRUE)
-c(" ub ")
-b - c(=1, qu=TRUE)
-(('+b=', +b))
-(('-b=', -b))
-(('*b=', *b))
-(('%%b=', %%b))
-(('%%b=', %%b))
-(('^b=', ^b))
-

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

@@ -1,8 +0,0 @@
-
-# cb
-
-(f (c  )
-  (f ([ ( + - *  qu  u   c c)])
-    (f "~ = ~\" `(,(bjc- ) , ,) (  ))))
-
-(c 8 12)