zettacode 0.1.0 → 0.1.2

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

@@ -1,32 +0,0 @@
-
-
-(fu 
-  ( ))
-
-(fu - ()
-  (c (:  f '"P   : " '"~~")
-    ((u ' ( b))
-      (:  f '"~ + ~ = ~~" (  b (+  b)))
-      (:  f '"~ - ~ = ~~" (  b (-  b)))
-      (:  f '"~ * ~ = ~~" (  b (*  b)))
-      (:  f '"~^~ = ~~" (  b (:    b)))
-        uc  z
-      (:  f '"~  ~ = ~~" (  b (  b)))
-       ' u       f 
-      (:  f '"~  ~ = ~~" (  b (  b))))))
-
-
-U f  LFE REPL:
-
- (u '".f")
-#( )
- (-)
-P   : 2 8
-2 + 8 = 10
-2 - 8 = -6
-2 * 8 = 16
-2^8 = 256.0
-2  8 = 0
-2  8 = 2
-
-

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

@@ -1,12 +0,0 @@
-N      c     u    -f- .
-
-u "E  f :  " f
-u "E  c : " c
-
- "T u  "  f + c
- "T ffc  "  f -c
- "T uc  "  f *c
-f c 0   "T  qu  "  ( f c) " (u  0)"   "D b z  ."
- "T   "  f MOD c " ( c f )"
- "T f     f  c  "  f ^c
-

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

@@ -1,14 +0,0 @@
-# AmcI,  LIL
- "E  ub  b c: "
-f {[c]} {  []}
-
-
-  [ $ 0]
- b [ $ 1]
- "A  $"", B  $b"
- "Su               A + B  [ $ + $b]"
- "Dffc        A - B  [ $ - $b]"
- "Puc           A * B  [ $ * $b]"
- "I Qu  A \\ B  [ $ \ $b], uc  z"
- "R         A % B  [ $ % $b],  f f "
- "LIL     "

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

@@ -1,10 +0,0 @@
--- X, Y: 2 db fd mmb, ow     cu GUI
- = (b("X").)
- = (b("Y").)
-
-u "Su: "       ,  + 
-u "Dffc: ",  - 
-u "Puc: "   ,  * 
-u "Qu: "  ,      -- Tuc  z
-u "R: " ,    -- Ru   f f 
-u "E: "  , (, )

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

@@ -1,15 +0,0 @@
-# Mb ou d o mo  mmc fuco 
-# f Tc :
-# ("c  ::c::fuc")
-
- () {
-     , b 
-    u("E  :")
-     = ()(()) 
-    b = ()(()) 
-    u("${} + ${b} = ${+b}")
-    u("${} - ${b} = ${-b}")
-    u("${} * ${b} = ${*b}")
-    u("${}  ${b} = ${b},  ${%b}")
-    u("${}    f ${b} = ${()(,b)}")
-}

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

@@ -1,17 +0,0 @@
-k " 2 umb (comm d)"
-f     
-    u  1 f   1
-    u  2 f   2
-    u u(1,2)  ["u"]
-    u 1 * 2  ["uc"]
-    u 1  2  ["qu"]  -- uc
-    u 1  2  [""]
-    u 1^2  [""]
-    cb  u c  c
-    u 
- f
-Em-2,4  - ow:16,oduc:-8,quo:0,md:-2,um:2
-2,-4  - :0.0625,uc:-8,qu:0,:2,u:-2
--2,-4 - :0.0625,uc:8,qu:0,:-2,u:-6
-2,4   - :16,uc:8,qu:0,:2,u:6
-11,4  - :14641,uc:44,qu:2,:3,u:15

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

@@ -1,11 +0,0 @@
-o o : :b
-  ( [ =] :)
-  ( [b =] :b)
-  ( [ + b =] : + :b)
-  ( [ - b =] : - :b)
-  ( [ * b =] : * :b)
-  ( [  b =]  :  :b)
-  ( [  b =] u : :b)
-
-
-Ec f     f  (u, ffc, uc, qu). Su  uc c        u   (u 1 2 3). If      cc u    c  u    b  cc .

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

@@ -1,10 +0,0 @@
-ov : 2 ck
-2u :  
-
-c : \
-  " A=" ,  ,  " B=" , u ,  \
-  " A+B=" , 2u + ,  \
-  " A-B=" , 2u - ,  \
-  " A*B=" , 2u * ,  \
-  " AB=" , 2u  ,  \
-  " A%B=" ,      % , 

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

@@ -1,9 +0,0 @@
-oc  = o.d()
-c  = .()
-
- ("Su: "       , ( + ))
- ("Dffc: ", ( - ))
- ("Puc: "   , ( * ))
- ("Qu: "  , (  )) -- D  uc
- ("R: " , ( % )) -- Ru   f  
- ("E: "  , ( ^ ))

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

@@ -1,54 +0,0 @@
-W c  u b  %, c  ub    c . T c  17 . A A%=1.5   2,  1. T   c u: A%=12  1  A%. W c u FLOOR()  INT()   ,  CEIL(),     BANK() c   B Ru: BANK(2.5)=2  BANK(3.5)=4.
-
-
-
-
- ="2000 "
-MODULE LCBc {
-      \\ ADDITION: EUCLIDEAN DIV#  MOD# AND ** FOR POWER INCLUDING ^
-      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%"DIV"B%"="A% DIV B%
-      65 PRINT "INTEGER EUCLIDEAN DIVISION:"A%"DIV"B%"="A% DIV# B%
-      70 PRINT "REMAINDER OR MODULO:"A%"MOD"B%"="A% MOD B%
-      75 PRINT "EUCLIDEAN REMAINDER OR MODULO:"A%"MOD#"B%"="A% MOD# B%
-      80 PRINT "POWER:"A%"^"B%"="A%^B%
-      90 PRINT "POWER:"A%"**"B%"="A%**B%
-}
-LCBc
-
-
-Mu IT {
-      =12% ' I 16 b
-      b=12 ' L 32 b
-      c=12@' Dc (29 )
-      Df ET$()=T$()
-      P ET$(+1)="Dub"
-      P ET$(+1%)="I"
-      P ET$(  5)="Dub"
-      P ET$(  5%)="Dub"
-      P ET$(  5)="Dub"
-      P ET$(  5%)="Dub"
-      P ET$(**2)="Dub"
-      
-      P ET$(b+1)="Dub"
-      P ET$(b+1)="L"
-      P ET$(b  5)="Dub"
-      P ET$(b  5)="Dub"
-      P ET$(b  5)="Dub"
-      P ET$(b  5)="Dub"
-      P ET$(b**2)="Dub"
-
-      P ET$(c+1)="Dc"
-      P ET$(c+1@)="Dc"
-      P ET$(c  5)="Dc"
-      P ET$(c  5@)="Dc"
-      P ET$(c  5)="Dc"
-      P ET$(c  5@)="Dc"     
-      P ET$(c**2)="Dub"
-}
-IT
-

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

@@ -1,17 +0,0 @@
-
-Bcu f  cu u f M4,   u-u   c f. A  f c c b u:
-v(A+B)
-(A-B)
-(A*B)
-(AB)
-(A%B)
-
-c    f, .. .4:
-
-4 -DA=4 -DB=6 .4
-
- u   f '''':
-
-df(`A', 4)d
-f(`B', 6)
-cu(`.4')

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

@@ -1,25 +0,0 @@
-T    bu-.  A    c,    u u .
-
-DI := c()
-        c  := ( "Iu  : " ):
-        c b := ( "Iu  : " ):
-        f( "Su = %\",   + b ):
-        f( "Dffc = %\",   - b ):
-        f( "Puc = %\",   * b ):
-        f( "Qu = %\",  qu( , b, 'c' ) ):
-        f( "R = %\", c ) #  ( , b )
-        NULL # qu u
- c:
-
-H    f c DI.
-
- DI()
-Iu  : 15
-Iu  : 12
-Su = 27
-Dffc = 3
-Puc = 180
-Qu = 1
-R = 3
-
-

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

@@ -1,51 +0,0 @@
-T  b (f "T N" )     u     Mc  c   (, Mc 15, Mc P 6.0,  Mc P 6.0 E).   Mc' "b" fc   u   f    f  .  T  f  f b, u cc c   f, f z  bcu    c  .  M  u b   f b, fuc ( bu- fuc), ,    u (Mc   u-, SI-b qu ).  I      ''   b.
-
-----
-
-'''T N'''
-
-''F qu, c   u (..  z,   f, c.).''
-
-T   qu fuc  Mc,  c .  W u qu b   f b u u b f, c u   f,  uc, c u  z.
-
-''F , c    c   f  f   f  c , f   ff.
-''
-W u  Mc fuc (,), c u  u ,       . 
-
-'''Iuc'''
-
-E   f u cc f I1  I2.
-
-(      f  'I1:= '  'I2:=' ,   f  ub  )
-
-'''I'''
-
-'''Mc Iu  Ouu'''
-
-Mc "" u  uu  c c    (" uc c"). 
-
-'''Iu''':
-
-== '' u   u f := (f) ''
-
-I O:  ''I1'':='''-8'''
-
-I T:  ''I2'':='''3'''
-
-'''Ru''':
-
-== ''Mc uc ccu   u f = (u) .''
-
-u              :  ''I1'' + ''I2'' = -5  
-
-ffc       :  ''I1'' - ''I2'' = -11
-
-uc          :  ''I1'' · ''I2'' = -24
-
- qu :  f(''I1''÷''I2'')=-3     uc(I1÷I2)=-2  
-
-        :  (''I1'',''I2'')=-2
-
-   :  ''I1''u''I2''u=-512
-
-----

data/zettacode.files/arithmetic.integer/mathematica}}-{{header|wolfram_language.txt

@@ -1,18 +0,0 @@
-Mc    fuc bu-    . E:
- = Iu["Gv m   !"]
-b = Iu["G    !"]
-P["Yu   ", , "  ", b]
-P["u: ",  + b]
-P["ffc: ",  - b]
-P["uc: ",  b]
-P[" qu: ", Qu[, b]]
-P[": ", M[, b]]
-P[": ", ^b]
- bc f u 17  3:
-Yu   17  3
-u: 20
-ffc: 14
-uc: 51
- qu: 5
-: 2
-: 4913

data/zettacode.files/arithmetic.integer/matlab}}_-_{{header|octave.txt

@@ -1,8 +0,0 @@
-d(" : ")  = cf("%d", 1)
-(" b: ") b = cf("%", 1)
-+b
--b
-*b
-f(b)
-(,b)
-^b

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

@@ -1,10 +0,0 @@
-bock(
-   [: (""), b: ("b")],
-   ( + b),
-   ( - b),
-   ( * b),
-   (  b),
-   (qu(, b)),
-   ((, b)),
-   ^b
-)

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

@@ -1,8 +0,0 @@
- = KBVu om:"F umb"
- = KBVu :"Sc ub:"
-
-f "Su: %\" ( + ) 
-f "Dffc: %\" ( - ) 
-f "Puc: %\" ( * ) 
-f "Qu: %\" (  ) 
-f "R: %\" (  )

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

@@ -1,44 +0,0 @@
-
-:- u _.
-:- fc.
-
-:- _u .
-:-  (::, ::u)  .
-
-:- .
-:- _u , , .
-
-(!IO) :-
-    .c__u(A, !IO),
-    ( f
-        A = [AS, BS],
-        ._(AS, A),
-        ._(BS, B)
-      
-        .f("A + B = %\", [(A + B)], !IO),
-        .f("A - B = %\", [(A - B)], !IO),
-        .f("A * B = %\", [(A * B)], !IO),
-
-        % D: u  z.
-        %
-        .f("A  B = %\", [(A  B)], !IO),
-
-        % D: u  u f.
-        %
-        .f("A  B = %\", [(A  B)], !IO), 
-    
-        % Muu: X  Y = X - (X  Y) * Y.
-        %
-        .f("A  B = %\", [(A  B)], !IO),
-
-        % R: X  Y = X - (X  Y) * Y.
-        %
-        .f("A  B = %\", [(A  B)], !IO),
-
-        % E   u  fuc .2.
-        %
-        .f("A `` B = %\", [(A `` B)], !IO)
-      
-        .__u(1, !IO)
-    ).
-

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

@@ -1,19 +0,0 @@
-
- []
- "u ub : "
-1 := 
- "u ub b: "
-2 := 
- := c 1
-b := c 2
-
-f u( ) =
-   " "    " b = "  c( c() b) f
-
-u("+")
-u("-")
-u("*")
-u("")
-u("")
-
-

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

@@ -1,5 +0,0 @@
-{{ ||0.19.3}}
-(coc du - ' d "$1 - $2" w % u!) :ow
-
-("E  "  ) 2  ' 
-('+ '- '* ' ') qu- (' cc)  c

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

@@ -1,18 +0,0 @@
-MLI     f ' u'  , 
-  uu  u  ' uu'  .
-
- =""MCSKIP "WITH" NL
-"" AcI
-"" u c  u  1,    2
-MCSKIP MT,
-MCINS %.
-MCDEF SL SPACES NL AS MCSET T1=%A1.
-MCSET T2=%A2.
- + b   = %%T1.+%T2..
- - b   = %%T1.-%T2..
- * b   = %%T1.*%T2..
-  b   = %%T1.%T2..
-  b = %%T1.-%%%T1.%T2..*%T2...
-D  uc    
-   c  c u. R c
-  f  c , f   ff.

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

@@ -1,31 +0,0 @@
-MODULE 
-
-IMPORT  IOu
-
-VAR     , b    : INTEGER
-
-BEGIN
-  IOu.WS ("E   ub : ")   IOu.WBf
-  IOu.RI ()
-  IOu.RI (b)
-  IOu.WS (" + b   = ")  IOu.WI ( + b, 9)    IOu.WL
-  IOu.WS (" - b   = ")  IOu.WI ( - b, 9)    IOu.WL
-  IOu.WS (" * b   = ")  IOu.WI ( * b, 9)    IOu.WL
-  IOu.WS ("  b   = ")  IOu.WI ( DIV b, 9)  IOu.WL
-  IOu.WS (" MOD b = ")  IOu.WI ( MOD b, 9)  IOu.WL
-  IOu.WL
-END .Puc:$$ 
-E   ub : 12 7
- + b   =        19
- - b   =         5
- * b   =        84
-  b   =         1
- MOD b =         5
-
-$$ 
-E   ub : 123 -111
- + b   =        12
- - b   =       234
- * b   =    -13653
-  b   =        -1
- MOD b =        12

data/zettacode.files/arithmetic.integer/modula-3.txt

@@ -1,15 +0,0 @@
-MODULE A EXPORTS M
-
-IMPORT IO, F
-
-VAR , b: INTEGER
-
-BEGIN
-   := IO.GI()
-  b := IO.GI()
-  IO.Pu("+b = "  F.I( + b)  "\")
-  IO.Pu("-b = "  F.I( - b)  "\")
-  IO.Pu("*b = "  F.I( * b)  "\")
-  IO.Pu(" DIV b = "  F.I( DIV b)  "\")
-  IO.Pu(" MOD b = "  F.I( MOD b)  "\")
-END A.

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

@@ -1,52 +0,0 @@
-N: M[UMPS]    c "u".
-W b    ub, "u"   u      ""
-,     ffc.
-
-T b u  cc f "u"    
-ff f "",  D Ku' f (Vu 1 f  "b b"), 
-f u  bu f ccc b  fu b N H Ab (Auu 5, 1802 – A 6, 1829).
-
-A(f,cod)	 Mmc oo
-	W "Pu",?12,f,"+",c,?25," = ",f+c,!
-	W "Mu",?12,f,"-",c,?25," = ",f-c,!
-	W "Mu",?12,f,"*",c,?25," = ",f*c,!
-	W "D",?12,f,"",c,?25," = ",fc,!
-	W "I D",?12,f,"\",c,?25," = ",f\c,!
-	W "P",?12,f,"**",c,?25," = ",f**c,!
-	W "Mu",?12,f,"#",c,?25," = ",f#c,!
-	W "A",?12,f,"",c,?25," = ",fc,!
-	W "O",?12,f,"!",c,?25," = ",f!c,!
-	Qu
-
-D A(2,3)
-Pu        2+3           = 5
-Mu       2-3           = -1
-Mu    2*3           = 6
-D      23           = .6666666666666666667
-I D  2\3           = 0
-P       2**3          = 8
-Mu      2#3           = 2
-A         23           = 1
-O          2!3           = 1
- 
-D A(16,0.5)
-Pu        16+.5         = 16.5
-Mu       16-.5         = 15.5
-Mu    16*.5         = 8
-D      16.5         = 32
-I D  16\.5         = 32
-P       16**.5        = 4
-Mu      16#.5         = 0
-A         16.5         = 1
-O          16!.5         = 1
- 
-D A(0,2)
-Pu        0+2           = 2
-Mu       0-2           = -2
-Mu    0*2           = 0
-D      02           = 0
-I D  0\2           = 0
-P       0**2          = 0
-Mu      0#2           = 0
-A         02           = 0
-O          0!2           = 1

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

@@ -1,13 +0,0 @@
-{{|P}}
- "Numb 1: "
- = (u())
- "Nub 2: "
- = (u())
-
- f("Su: %",  + )
- f("Dffc: %",  - )
- f("Puc: %",  * )
- f("Qu: %f",   )
-
- f("R: %",  % )
- f("P: %",  ^ )

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

@@ -1,18 +0,0 @@
-A  b f C# u b. N  I' u    (**), bu M.P()  u   C# u u  .
-u Sm
- 
-c P
-{
-    c M( : []) : 
-    {
-        f  = C.TI32([0])
-        f b = C.TI32([1])
- 
-        C.WL("{0} + {1} = {2}", , b,  + b)
-        C.WL("{0} - {1} = {2}", , b,  - b)
-        C.WL("{0} * {1} = {2}", , b,  * b)
-        C.WL("{0}  {1} = {2}", , b,   b)  uc  0
-        C.WL("{0} % {1} = {2}", , b,  % b)  c  f f 
-        C.WL("{0} ** {1} = {2}", , b,  ** b)
-    }
-}

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

@@ -1,14 +0,0 @@
-{{|REXX}}
-* NR *
-
- c f c j cf b b
-
- " 2  u  b b"
-   b
-  "+" b "="  + b
-  "-" b "="  - b
-  "*" b "="  * b
-  "" b "="  % b ""   b "( f f )"
-  "^" b "="  ** b
-
-u

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

@@ -1,26 +0,0 @@
-
- .
- f 2012-01-17
-
-(f ( ) ( ) ( (-)))
-(q  ( "P       []: "))
-(q  ( "P                 : "))
-
- N  +, -, *,   %    .
-()
-( "Su: " (+  ))
-( "Dffc: " (-  ))
-( "Puc: " (*  ))
-( "I qu (u  0): " (  ))
-( "R: " (q  (%  )))
-
-( "R  c: "
-	 (c ((= ( ) ( ) ( )) "b")
-	       ((= ( ) ( ))         "f")
-	       ((= ( ) ( ))         "c")))
-	 
-()
-( "E: " (  ))
-
-()  NL     f u c.
-

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

@@ -1,23 +0,0 @@
-
-E   Q'N7.
-
-Df   u   f :
-     mc  OP A B{[f,,+,-,*,quo,mod,ow] A B}
-
-T  :
-     -23 mc 7
--23 7 -16 -30 -161 -4 5 -3404825447
-
-N    cc f  qu cquc   cc,   b c  u       c? c.
-
-F cquc, f   cBc  z,  u  z.
-
-F cc, f   cBc  z,  u  cAc.
-
-T qu   b    cBc         f    cAc.
-
-N f f cquc:
-
-A quo B =f=  foo (A  B)
-
-cfc u   f (  ).

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

@@ -1,25 +0,0 @@
-mo o, u
- 
- 
-  : OP = OP()
-   = .cLR.
-  :  = 0
-  b:  = 0
- 
-:
-   = I([0])
-  b = I([1])
-c VuE:
-  qu("I . T   c.")
- 
- 
-c("      : "  $)
-c("b      : "  $b)
-c(" + b  : "  $(+b))
-c(" - b  : "  $(-b))
-c(" * b  : "  $(*b))
-c("  b: "  $(  b)) #  u  z
-c("  b: "  $(  b)) # (  b)==() f ()!=(b)
-c(" ^ b  : "  $( ^ b))
-
-Ecu: A 4 5