parent
eb25325f87
commit
c3197c36c3
|
@ -11,10 +11,10 @@ sequences.private sets sorting sorting.extras ;
|
||||||
|
|
||||||
IN: math.extras
|
IN: math.extras
|
||||||
|
|
||||||
<PRIVATE
|
|
||||||
|
|
||||||
DEFER: stirling
|
DEFER: stirling
|
||||||
|
|
||||||
|
<PRIVATE
|
||||||
|
|
||||||
: (stirling) ( n k -- x )
|
: (stirling) ( n k -- x )
|
||||||
[ [ 1 - ] bi@ stirling ]
|
[ [ 1 - ] bi@ stirling ]
|
||||||
[ [ 1 - ] dip stirling ]
|
[ [ 1 - ] dip stirling ]
|
||||||
|
|
Loading…
Reference in New Issue