+++ /dev/null
-USING: algebra test math kernel prettyprint io ;
-
-[ [ - [ + 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
-[ "IN: algebra :| quadratic-formula a b c |:\n [ [ [ - b ] / 2 * a ] +- [ sqrt [ sq b ] - 4 * a * c ] / 2 * a ] ;\n" ] [ [ \ quadratic-formula see ] string-out ] unit-test