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

Use existing recursion tools rather than explicit one

db4
Samuel Tardieu 2008-12-26 20:58:46 +01:00
parent 7303316a04
commit 4f42d00769
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extra/math/primes/primes.factor
View File

@ -7,7 +7,7 @@ IN: math.primes
<PRIVATE <PRIVATE
: find-prime-miller-rabin ( n -- p ) : find-prime-miller-rabin ( n -- p )
dup miller-rabin [ 2 + find-prime-miller-rabin ] unless ; foldable [ dup miller-rabin ] [ 2 + ] [ ] until ; foldable
PRIVATE> PRIVATE>