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

new accessors

db4
Doug Coleman 2008-08-29 16:49:41 -05:00
parent c013d63eea
commit 085e477a98
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/heaps/heaps-tests.factor
View File

@ -58,7 +58,7 @@ IN: heaps.tests
dup length random dup pick nth >r swap delete-nth r> ; dup length random dup pick nth >r swap delete-nth r> ;
: sort-entries ( entries -- entries' ) : sort-entries ( entries -- entries' )
[ [ entry-key ] compare ] sort ; [ [ key>> ] compare ] sort ;
: delete-test ( n -- ? ) : delete-test ( n -- ? )
[ [
@ -67,7 +67,7 @@ IN: heaps.tests
dup data>> clone swap dup data>> clone swap
] keep 3 /i [ 2dup >r delete-random r> heap-delete ] times ] keep 3 /i [ 2dup >r delete-random r> heap-delete ] times
data>> data>>
[ [ entry-key ] map ] bi@ [ [ key>> ] map ] bi@
[ natural-sort ] bi@ ; [ natural-sort ] bi@ ;
11 [ 11 [