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 |
'test load 'test import "num" describe (2 2 + 4 ==) assert (1 3.0 + 4 ==) assert (3.1 3.9 + 7 ==) assert (3 -2.1 + 0.8999999999999999 ==) assert (3 3 - 0 ==) assert (-5 -4 - -1 ==) assert (-4 3.7 - -7.7 ==) assert (-2 4 * -8 ==) assert (-2.5 -2 * 5 ==) assert (3 3 * 9 ==) assert (5 2 / 2.5 ==) assert (1 3 / 0.3333333333333333 ==) assert (-3 2 / -1.5 ==) assert (5 2 div 2 ==) assert (1 3 div 0 ==) assert (-3 2 div -1 ==) assert (5 2 mod 1 ==) assert (4 2 mod 0 ==) assert (-3 2 mod -1 ==) assert (1000 random 1000 <) assert ((1 2 3 4 5) sum 15 ==) assert ((1 2 3 4 5) product 120 ==) assert ((1 2 3 4 5) avg 3.0 ==) assert ((1 2 3 4 5 6) avg 3.5 ==) assert ((1 3 5 7) med 4.0 ==) assert ((1 3 5 7 9) med 5 ==) assert (0 :c (c 10 <) (c succ @c) while c 10 ==) assert ((1 2 3 4 5) (even?) filter (2 4) ==) assert ((1 2 3 4 5) (even?) any?) assert ((2 4 6 8) (even?) all?) assert report clear-stack |