Contents

(de math (A B)
   (prinl "Add      " (+ A B))
   (prinl "Subtract " (- A B))
   (prinl "Multiply " (* A B))
   (prinl "Divide   " (/ A B))        # Trucates towards zero
   (prinl "Div/rnd  " (*/ A B))       # Rounds to next integer
   (prinl "Modulus  " (% A B))        # Sign of the first operand
   (prinl "Power    " (** A B)) )

Version data entries

10 entries across 7 versions & 1 rubygems

Version	Path
zettacode-0.1.7	files.zettacode/arithmetic.integer/picolisp.txt
zettacode-0.1.6	files.zettacode/arithmetic.integer/picolisp.txt
zettacode-0.1.6	files.zettacode2/arithmetic.integer/picolisp.txt
zettacode-0.1.5	files.zettacode/arithmetic.integer/picolisp.txt
zettacode-0.1.5	files.zettacode2/arithmetic.integer/picolisp.txt
zettacode-0.1.4	files.zettacode/arithmetic.integer/picolisp.txt
zettacode-0.1.4	files.zettacode2/arithmetic.integer/picolisp.txt
zettacode-0.1.3	files.zettacode/arithmetic.integer/picolisp.txt
zettacode-0.1.2	files.zettacode/arithmetic.integer/picolisp.txt
zettacode-0.1.1	zettacode.files/arithmetic.integer/picolisp.txt