1 ! Copyright (c) 2008 Aaron Schaefer.
2 ! See https://factorcode.org/license.txt for BSD license.
3 USING: kernel math math.functions ranges project-euler.common
7 ! https://projecteuler.net/problem=48
12 ! The series, 1^1 + 2^2 + 3^3 + ... + 10^10 = 10405071317.
14 ! Find the last ten digits of the series,
15 ! 1^1 + 2^2 + 3^3 + ... + 1000^1000.
21 : euler048 ( -- answer )
22 1000 [1..b] [ dup ^ ] map-sum 10 10^ mod ;
24 ! [ euler048 ] 100 ave-time
25 ! 276 ms run / 1 ms GC ave time - 100 trials