# 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