steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Float array type inference rules

db4
Slava Pestov 2008-10-17 15:35:33 -05:00
parent 239578353f
commit a57320997a
1 changed files with 35 additions and 35 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

70
basis/float-arrays/float-arrays.factor
View File

@ -86,38 +86,38 @@ HINTS: normalize { float-array } { array } ;
! More rice. Experimental, currently causes a slowdown in raytracer
! for some odd reason.
! USING: words classes.algebra compiler.tree.propagation.info ;
!
! { v+ v- v* v/ vmax vmin } [
! [
! [ class>> float-array class<= ] both?
! float-array object ? <class-info>
! ] "outputs" set-word-prop
! ] each
!
! { n*v n/v } [
! [
! nip class>> float-array class<= float-array object ? <class-info>
! ] "outputs" set-word-prop
! ] each
!
! { v*n v/n } [
! [
! drop class>> float-array class<= float-array object ? <class-info>
! ] "outputs" set-word-prop
! ] each
!
! { vneg normalize } [
! [
! class>> float-array class<= float-array object ? <class-info>
! ] "outputs" set-word-prop
! ] each
!
! \ norm-sq [
! class>> float-array class<= float object ? <class-info>
! ] "outputs" set-word-prop
!
! \ v. [
! [ class>> float-array class<= ] both?
! float object ? <class-info>
! ] "outputs" set-word-prop
USING: words classes.algebra compiler.tree.propagation.info ;
{ v+ v- v* v/ vmax vmin } [
[
[ class>> float-array class<= ] both?
float-array object ? <class-info>
] "outputs" set-word-prop
] each
{ n*v n/v } [
[
nip class>> float-array class<= float-array object ? <class-info>
] "outputs" set-word-prop
] each
{ v*n v/n } [
[
drop class>> float-array class<= float-array object ? <class-info>
] "outputs" set-word-prop
] each
{ vneg normalize } [
[
class>> float-array class<= float-array object ? <class-info>
] "outputs" set-word-prop
] each
\ norm-sq [
class>> float-array class<= float object ? <class-info>
] "outputs" set-word-prop
\ v. [
[ class>> float-array class<= ] both?
float object ? <class-info>
] "outputs" set-word-prop