extra/project-euler/048/048.factor

   1 ! Copyright (c) 2008 Aaron Schaefer.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: kernel math math.functions math.ranges
   4 project-euler.common sequences ;
   5 IN: project-euler.048
   6
   7 ! http://projecteuler.net/index.php?section=problems&id=48
   8
   9 ! DESCRIPTION
  10 ! -----------
  11
  12 ! The series, 1^1 + 2^2 + 3^3 + ... + 10^10 = 10405071317.
  13
  14 ! Find the last ten digits of the series, 1^1 + 2^2 + 3^3 + ... + 1000^1000.
  15
  16
  17 ! SOLUTION
  18 ! --------
  19
  20 : euler048 ( -- answer )
  21     1000 [1..b] [ dup ^ ] map-sum 10 10^ mod ;
  22
  23 ! [ euler048 ] 100 ave-time
  24 ! 276 ms run / 1 ms GC ave time - 100 trials
  25
  26 SOLUTION: euler048