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 ;
|
2009-09-28 09:48:39 -04:00
|
|
|
QUALIFIED-WITH: alien.c-types c
|
|
|
|
QUALIFIED-WITH: alien.complex c
|
|
|
|
SPECIALIZED-ARRAY: c:double
|
|
|
|
SPECIALIZED-ARRAY: c:complex-float
|
|
|
|
SPECIALIZED-ARRAY: c: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
|