all repos — min @ master

A small but practical concatenative programming language.

tests/num.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
 36
 37
 38
 39
 40
 41
 42
 43
 44
 45
 46
 47
 48
 49
 50
 51
 52
 53
 54
 55
 56
 57
 58
 59
 60
 61
 62
 63
 64
 65
 66
 67
 68
 69
 70
 71
 72
 73
 74
 75
 76
 77
 78
 79
 80
 81
 82
 83
 84
 85
 86
 87
 88
'min-test require :test
;;;

"num" *test/describe

  (2 2 + 4 ==) *test/assert
  (1 3.0 + 4 ==) *test/assert
  (3.1 3.9 + 7 ==) *test/assert
  (3 -2.1 + 0.8999999999999999 ==) *test/assert

  (3 3 - 0 ==) *test/assert
  (-5 -4 - -1 ==) *test/assert
  (-4 3.7 - -7.7 ==) *test/assert

  (-2 4 * -8 ==) *test/assert
  (-2.5 -2 * 5 ==) *test/assert
  (3 3 * 9 ==) *test/assert

  (5 2 / 2.5 ==) *test/assert
  (1 3 / 0.3333333333333333 ==) *test/assert
  (-3 2 / -1.5 ==) *test/assert

  (5 2 div 2 ==) *test/assert
  (1 3 div 0 ==) *test/assert
  (-3 2 div -1 ==) *test/assert
  
  (5 2 mod 1 ==) *test/assert
  (4 2 mod 0 ==) *test/assert
  (-3 2 mod -1 ==) *test/assert

  (1000 random 1000 <) *test/assert

  ((1 2 3 4 5) sum 15 ==) *test/assert

  ((1 2 3 4 5) product 120 ==) *test/assert

  ((1 2 3 4 5) avg 3.0 ==) *test/assert
  ((1 2 3 4 5 6) avg 3.5 ==) *test/assert

  ((1 3 5 7) med 4.0 ==) *test/assert
  ((1 3 5 7 9) med 5 ==) *test/assert

  ((1 5) range (1 2 3 4 5) ==) *test/assert
  ((5 1) range (5 4 3 2 1) ==) *test/assert
  ((4 7) range (4 5 6 7) ==) *test/assert
  ((7 4) range (7 6 5 4) ==) *test/assert
  ((1 6 2) range (1 3 5) ==) *test/assert
  ((1 6 3) range (1 4) ==) *test/assert
  ((0 6 2) range (0 2 4 6) ==) *test/assert
  ((6 1 2) range (6 4 2) ==) *test/assert
  ((6 1 3) range (6 3) ==) *test/assert
  ((6 0 2) range (6 4 2 0) ==) *test/assert
  
  (2 3 bitand 2 ==) *test/assert

  (123 bitnot -124 ==) *test/assert

  (2 3 bitor 3 ==) *test/assert

  (2 3 bitxor 1 ==) *test/assert

  (2 3 shl 16 ==) *test/assert

  (16 3 shr 2 ==) *test/assert
  
  (0 :c
    (c 10 <) (c succ @c) while
    c 10 ==) *test/assert

  ((1 2 3 4 5) (even?) filter (2 4) ==) *test/assert

  ((1 2 3 4 5) (even?) any?) *test/assert

  ((2 4 6 8) (even?) all?) *test/assert

  (base? "dec" ==) *test/assert
  ('bin base "bin" base? == 'dec base) *test/assert
  (0b10010 18 ==) *test/assert
  (0b101010 0b010101 bitand 0b000000 ==) *test/assert
  (0b101010 0b010101 bitor 0b111111 ==) *test/assert
  (0b101010 0b010101 bitxor 0b111111 ==) *test/assert
  (0b111000 (0 2) bitflip 0b111101 ==) *test/assert
  (0b111001 (0) bitclear 0b111000 ==) *test/assert
  (0b111000 (0 1) bitset 0b111011 ==) *test/assert
  (0b111000 bitparity 1 ==) *test/assert

  *test/report
  clear-stack