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

math.factorials: include 1.

db4
John Benediktsson 2013-04-08 15:15:49 -07:00
parent cda0092fec
commit 4fa6e09310
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
extra/math/factorials/factorials.factor
View File

@ -11,8 +11,8 @@ MEMO: factorial ( n -- n! )
: factorial/ ( n k -- n!/k! ) : factorial/ ( n k -- n!/k! )
{ {
{ [ dup 1 < ] [ drop factorial ] } { [ dup 1 <= ] [ drop factorial ] }
{ [ over 1 < ] [ nip factorial recip ] } { [ over 1 <= ] [ nip factorial recip ] }
[ [
2dup < [ t ] [ swap f ] if 2dup < [ t ] [ swap f ] if
[ (a,b] product ] dip [ recip ] when [ (a,b] product ] dip [ recip ] when