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

heaps: Add >min-heap, >max-heap.

db4
Doug Coleman 2013-03-31 19:01:04 -07:00
parent c74939e43b
commit bfe0ace611
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
basis/heaps/heaps.factor
View File

@ -194,3 +194,9 @@ ERROR: not-a-heap obj ;
[ check-heap ] dip over heap-empty? [ 2drop ] [ [ check-heap ] dip over heap-empty? [ 2drop ] [
[ [ heap-pop drop ] dip call ] [ slurp-heap ] 2bi [ [ heap-pop drop ] dip call ] [ slurp-heap ] 2bi
] if ; inline recursive ] if ; inline recursive
: >min-heap ( assoc -- min-heap )
<min-heap> [ heap-push-all ] keep ;
: >max-heap ( assoc -- min-heap )
<max-heap> [ heap-push-all ] keep ;