Paste: compiled inconsistencies?
Author: | elasticdog |
Mode: | factor |
Date: | Thu, 7 May 2009 00:11:50 |
Plain Text |
( scratchpad - auto ) \ largest-value see
USING: kernel math math.combinatorics sequences ;
IN: math.combinatorics.private
: largest-value ( a b x -- v )
[ [ nCk ] dip <= ] 2curry find-last nip ;
( scratchpad - auto ) 10 5 0 largest-value
--- Data stack:
4
( scratchpad - auto ) Command: refresh-all
Loading resource:basis/math/combinatorics/combinatorics.factor
--- Data stack:
4
( scratchpad - auto ) \ largest-value see
USING: binary-search kernel math.combinatorics math.order ;
IN: math.combinatorics.private
: largest-value ( a b x -- v )
[ [ nCk ] dip >=< ] 2curry search nip ;
--- Data stack:
4
( scratchpad - auto ) 10 5 0 largest-value
--- Data stack:
4
2
( scratchpad - auto ) 10 5 0 '[ _ nCk _ >=< ] search nip
--- Data stack:
4
2
f
New Annotation