! Copyright (c) 2008 Aaron Schaefer.
! See http://factorcode.org/license.txt for BSD license.
-USING: kernel math.combinatorics math.parser math.primes sequences ;
+USING: kernel math.combinatorics math.primes sequences project-euler.common ;
IN: project-euler.041
! http://projecteuler.net/index.php?section=problems&id=41
: euler041 ( -- answer )
{ 7 6 5 4 3 2 1 } all-permutations
- [ 10 digits>integer ] map [ prime? ] find nip ;
+ [ digits>number ] map [ prime? ] find nip ;
! [ euler041 ] 100 ave-time
! 64 ms ave run time - 4.22 SD (100 trials)
-MAIN: euler041
+SOLUTION: euler041