Paste: Tracking down UNIX signal #8 (SIGFPE)
Author: | Loryn Jenkins |
Mode: | factor |
Date: | Tue, 5 Mar 2013 06:53:03 |
Plain Text |
: next
1 + ;
:: iota-replacement
0 [ next dup max < ] [ dup ] produce nip ;
:: candidates-1a
target iota >array
[ target swap mod 0 = ] filter ;
:: candidates-1b
target primes-upto >array
[ target swap mod 0 = ] filter ;
:: candidates-2ai
target iota >array
[ target swap divisor? ] filter ;
:: candidates-2aii
target iota-replacement >array
[ target swap divisor? ] filter ;
:: candidates-2b
target primes-upto >array
[ target swap divisor? ] filter ;
New Annotation