all repos — min @ e055edcc549c08adc2ac7dc7aa3c5bd7232518b0

A small but practical concatenative programming language.

tests/math.min

 1
 2
 3
 4
 5
 6
 7
 8
 9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34
 35
'min-test require :test
;;;

"math" test.describe

  (0 math.d2r math.sin 0 ==) test.assert

  (30 math.d2r math.sin 0.5 ==) test.assert

  (45 math.d2r math.sin 2 math.sqrt 2 / ==) test.assert

  (60 math.d2r math.sin 3 math.sqrt 2 / ==) test.assert

  (90 math.d2r math.sin 1 ==) test.assert

  (15 math.d2r math.sin 75 math.d2r math.cos ==) test.assert

  (15 math.cos 2 math.pow 15 math.sin 2 math.pow + 1 ==) test.assert

  (math.pi 4 / math.tan 1 ==) test.assert

  (math.e 3 math.pow math.ln 3 ==) test.assert

  (math.pi math.floor 3 ==) test.assert

  (math.pi 2 math.round 3.14 ==) test.assert

  (math.pi math.ceil 4 ==) test.assert

  (math.pi math.trunc 3 ==) test.assert
  
  (-2.87 math.abs 2.87 ==) test.assert

  test.report
  stack.clear