! Copyright (c) 2008 Samuel Tardieu
! See http://factorcode.org/license.txt for BSD license.
-USING: kernel math math.functions math.parser math.ranges project-euler.common
- sequences ;
+USING: kernel math math.parser project-euler.common sequences ;
IN: project-euler.057
! http://projecteuler.net/index.php?section=problems&id=57
>fraction [ number>string length ] bi@ > ; inline
: euler057 ( -- answer )
- 0 1000 iota [ drop 2 + recip dup 1 + longer-numerator? ] count nip ;
+ 0 1000 <iota> [ drop 2 + recip dup 1 + longer-numerator? ] count nip ;
! [ euler057 ] 100 ave-time
! 1728 ms ave run time - 80.81 SD (100 trials)