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

math.factorials: style.

db4
John Benediktsson 2013-04-09 13:57:53 -07:00
parent 3c6e90da60
commit 4767248369
1 changed files with 3 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -104,21 +104,14 @@ ALIAS: pochhammer rising-factorial
<PRIVATE <PRIVATE
: orial-prime? ( n quot: ( n -- m ) -- ? ) : -prime? ( n quot: ( n -- m ) -- ? )
[ 1 1 [ pick over - 1 <= ] ] dip [ 1 1 [ pick over - 1 <= ] ] dip
'[ drop [ 1 + ] _ bi ] until nip - abs 1 = ; inline '[ drop [ 1 + ] _ bi ] until nip - abs 1 = ; inline
PRIVATE> PRIVATE>
: factorial-prime? ( n -- ? ) : factorial-prime? ( n -- ? )
{ { [ prime? ] [ [ factorial ] -prime? ] } 1&& ;
[ prime? ]
[ [ factorial ] orial-prime? ]
} 1&& ;
: primorial-prime? ( n -- ? ) : primorial-prime? ( n -- ? )
{ { [ prime? ] [ 2 > ] [ [ primorial ] -prime? ] } 1&& ;
[ prime? ]
[ 2 > ]
[ [ primorial ] orial-prime? ]
} 1&& ;