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

Add experimental rice

db4
Slava Pestov 2008-10-11 14:08:26 -05:00
parent 68c9b22cef
commit 37047a3b8e
1 changed files with 40 additions and 0 deletions
basis/float-arrays

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

@ -64,6 +64,7 @@ M: float-array pprint-delims drop \ F{ \ } ;
M: float-array >pprint-sequence ;
M: float-array pprint* pprint-object ;
! Rice
USING: hints math.vectors arrays ;
HINTS: vneg { float-array } { array } ;
@ -81,3 +82,42 @@ HINTS: v. { float-array float-array } { array array } ;
HINTS: norm-sq { float-array } { array } ;
HINTS: norm { float-array } { array } ;
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