2009-08-09 04:07:33 -04:00
|
|
|
IN: math.vectors.specialization.tests
|
|
|
|
USING: compiler.tree.debugger math.vectors tools.test kernel
|
2009-09-09 23:33:34 -04:00
|
|
|
kernel.private math specialized-arrays ;
|
|
|
|
SPECIALIZED-ARRAY: double
|
|
|
|
SPECIALIZED-ARRAY: complex-float
|
|
|
|
SPECIALIZED-ARRAY: float
|
2009-08-09 04:07:33 -04:00
|
|
|
|
|
|
|
[ V{ t } ] [
|
|
|
|
[ { double-array double-array } declare distance 0.0 < not ] final-literals
|
|
|
|
] unit-test
|
|
|
|
|
|
|
|
[ V{ float } ] [
|
|
|
|
[ { float-array float } declare v*n norm ] final-classes
|
2009-08-09 17:10:11 -04:00
|
|
|
] unit-test
|
|
|
|
|
2009-09-24 07:58:33 -04:00
|
|
|
[ V{ complex } ] [
|
2009-08-09 17:10:11 -04:00
|
|
|
[ { complex-float-array complex-float-array } declare v. ] final-classes
|
|
|
|
] unit-test
|
|
|
|
|
2009-09-24 07:58:33 -04:00
|
|
|
[ V{ float } ] [
|
|
|
|
[ { float-array float } declare v*n norm ] final-classes
|
|
|
|
] unit-test
|
|
|
|
|
|
|
|
[ V{ float } ] [
|
2009-08-09 17:10:11 -04:00
|
|
|
[ { complex-float-array complex } declare v*n norm ] final-classes
|
2009-08-09 04:07:33 -04:00
|
|
|
] unit-test
|