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

Added alien-contrib for alien related utility words

darcs
wayo.cavazos 2006-09-11 10:24:05 +00:00
parent 8cd47f1ff7
commit e103d734ae
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
contrib/alien.factor Normal file
View File

@ -0,0 +1,10 @@
IN: alien-contrib
: copy-seq-to-float-array ( seq byte-array -- )
swap dup length [ pick set-float-nth ] 2each ;
: >float-array ( seq -- byte-array )
dup length "float" <c-array> copy-seq-to-float-array ;
: float-array>array ( byte-array n -- array ) [ swap float-nth ] map-with ;