13 lines
578 B
Factor
13 lines
578 B
Factor
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
|