application/octet-stream
•
1.79 KB
•
62 lines
(3 (+ 1 2))
(-1 (+ 1 -2))
(3 (- 4 1))
(5 (- 4 -1))
(8 (* 4 2))
(16 (* 4 4))
(2.0 (/ 4 2))
(2 (do 2))
(4.0 (/ 8 2))
(1 (rem 5 2))
(0 (rem 4 2))
(1 (int (round (rem 4.6 2))))
(0 (int (round (rem 4.4 2))))
(39 (+ 42 (- 3)))
(24 (* 4 (- (+ 1 (+ 1 1)) (- 3 3 3))))
(3.0 (/ 9 3))
(3.25 (let ((vier -4)) (+ (rem 9 4) (/ -9 vier))))
(69.0 (+ (* 2 (/ 32 8) (- 16 8)) 5))
(256 (int (pow 2 8)))
(1 (int (pow 1 8)))
(1 (int (pow 1.0 8)))
("0.5" (string/write (pow 2.0 -1.0)))
("0.25" (string/write (pow 2.0 -2.0)))
("0.125" (string/write (pow 2.0 -3.0)))
(2 (int (sqrt 4)))
(3 (int (sqrt 9)))
(16 (int (* (sqrt 16) (sqrt 16))))
("3.0" (string/write (sqrt 9)))
("2.0" (string/write (ceil 1.3)))
("1.0" (string/write (round 1.3)))
("2.0" (string/write (round 1.51)))
("256.0" (string/write (pow 2.0 8)))
("2.0" (string/write (/ 1.0 0.5)))
("0.5" (string/write (/ 1.0 2)))
("0.1" (string/write (/ 1.0 10)))
("0.1" (string/write (/ 1.0 10.0)))
(:arity-error (try car (string/write (/ 0.5))))
(2.0 (cbrt 8))
("3.0" (string/write (cbrt 27)))
(2.0 (cbrt 8.0))
("3.0" (string/write (cbrt 27.0)))
(14 (def abs (fn (a) (if (neg? a) (- 0 a) a))) (+ (abs -7) (abs 7)))
(3 (abs -3))
(3 (abs 3))
(0 (abs 0))
(0 (abs -0))
(2.0 (abs -2.0))
("1.0" (string/write (sin (/ PI 2))))
("-1.0" (string/write (sin (/ PI -2))))
("-1.0" (string/write (cos π)))
("1.0" (string/write (cos (* π 2))))
("0.0" (string/write (atan2 0.0 0.0)))
(:type-error (try car (atan2)))
(:type-error (try car (atan2 0)))
(:type-error (try car (atan2 0 "0")))
("0.0" (string/write (atan2 0 0)))
("0.0" (string/write (round (abs (- PI (* (atan2 1.0 0.0) 2.0))))))
("0.0" (string/write (round (abs (atan2 0.0 1.0)))))
("10.0" (string/write (* (sin (atan2 10.0 10.0)) (sqrt (+ (* 10.0 10.0) (* 10.0 10.0))))))
(0 (bit-shift-right 16 8))
(1 (bit-shift-right 16 4))
(16 (bit-shift-right 16 0))
