all repos — min @ master

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 d2r sin 0 ==) *test/assert

  (30 d2r sin 0.5 ==) *test/assert

  (45 d2r sin 2 sqrt 2 / ==) *test/assert

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

  (90 d2r sin 1 ==) *test/assert

  (15 d2r sin 75 d2r cos ==) *test/assert

  (15 cos 2 pow 15 sin 2 pow + 1 ==) *test/assert

  (pi 4 / tan 1 ==) *test/assert

  (e 3 pow ln 3 ==) *test/assert

  (pi floor 3 ==) *test/assert

  (pi 2 round 3.14 ==) *test/assert

  (pi ceil 4 ==) *test/assert

  (pi trunc 3 ==) *test/assert
  
  (-2.87 abs 2.87 ==) *test/assert

  *test/report
  clear-stack