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

memoize: use unsafe words.

db4
John Benediktsson 2012-07-17 16:24:30 -07:00
parent 6a08de2203
commit 632f0d9810
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/memoize/memoize.factor
View File

@ -15,7 +15,7 @@ IN: memoize
: [nsequence] ( length exemplar -- quot ) : [nsequence] ( length exemplar -- quot )
[ [ [ 1 - ] keep ] dip '[ _ _ _ new-sequence ] ] [ [ [ 1 - ] keep ] dip '[ _ _ _ new-sequence ] ]
[ drop [ [ set-nth-unsafe ] 2keep [ 1 - ] dip ] (n*quot) ] 2bi [ drop [ [ set-nth-unsafe ] 2keep [ 1 - ] dip ] (n*quot) ] 2bi
[ nip ] 3append ; [ nip ] 3append ;
: [firstn] ( length -- quot ) : [firstn] ( length -- quot )
[ 0 swap ] swap [ 0 swap ] swap
@ -29,7 +29,7 @@ IN: memoize
: unpacker ( seq -- quot ) : unpacker ( seq -- quot )
length dup 4 <= length dup 4 <=
[ { [ drop ] [ ] [ first2 ] [ first3 ] [ first4 ] } nth ] [ { [ drop ] [ ] [ first2-unsafe ] [ first3-unsafe ] [ first4-unsafe ] } nth ]
[ [firstn] ] if ; [ [firstn] ] if ;
: pack/unpack ( quot effect -- newquot ) : pack/unpack ( quot effect -- newquot )