12 lines
387 B
Factor
12 lines
387 B
Factor
USING: algebra test math kernel ;
|
|
|
|
[ [ - [ + x [ mod [ * 2 pi ] 4 ] ] ] ] [
|
|
([ - x + [ 2 * pi ] mod 4 ])
|
|
] unit-test
|
|
[ 13/3 ] [
|
|
1 2 3 [ x y z ] ([ [ sq y ] + x / z ]) eval-infix call
|
|
] unit-test
|
|
[ [ + x 1/2 ] ] [ ([ x + 3 / 6 ]) fold-consts ] unit-test
|
|
[ 1 ] [ 5 3 [ x ] ([ sq x + 6 ]) install-mod eval-infix call ] unit-test
|
|
[ 1.0 -1.0 ] [ 1 0 -1 quadratic-formula ] unit-test
|