extra/project-euler/036/036.factor

   1 ! Copyright (c) 2008 Aaron Schaefer.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: combinators.short-circuit kernel math.parser math.ranges
   4     project-euler.common sequences ;
   5 IN: project-euler.036
   6
   7 ! http://projecteuler.net/index.php?section=problems&id=36
   8
   9 ! DESCRIPTION
  10 ! -----------
  11
  12 ! The decimal number, 585 = 1001001001 (binary), is palindromic in both bases.
  13
  14 ! Find the sum of all numbers, less than one million, which are palindromic in
  15 ! base 10 and base 2.
  16
  17 ! (Please note that the palindromic number, in either base, may not include
  18 ! leading zeros.)
  19
  20
  21 ! SOLUTION
  22 ! --------
  23
  24 ! Only check odd numbers since the binary number must begin and end with 1
  25
  26 <PRIVATE
  27
  28 : both-bases? ( n -- ? )
  29     { [ palindrome? ] [ >bin dup reverse = ] } 1&& ;
  30
  31 PRIVATE>
  32
  33 : euler036 ( -- answer )
  34     1 1000000 2 <range> [ both-bases? ] filter sum ;
  35
  36 ! [ euler036 ] 100 ave-time
  37 ! 1703 ms ave run time - 96.6 SD (100 trials)
  38
  39 MAIN: euler036