26 lines
571 B
Factor
26 lines
571 B
Factor
! Copyright (c) 2008 Aaron Schaefer.
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
USING: kernel math math.functions sequences ;
|
|
IN: project-euler.048
|
|
|
|
! http://projecteuler.net/index.php?section=problems&id=48
|
|
|
|
! DESCRIPTION
|
|
! -----------
|
|
|
|
! The series, 1^1 + 2^2 + 3^3 + ... + 10^10 = 10405071317.
|
|
|
|
! Find the last ten digits of the series, 1^1 + 2^2 + 3^3 + ... + 1000^1000.
|
|
|
|
|
|
! SOLUTION
|
|
! --------
|
|
|
|
: euler048 ( -- answer )
|
|
1000 [ 1+ dup ^ ] sigma 10 10 ^ mod ;
|
|
|
|
! [ euler048 ] 100 ave-time
|
|
! 276 ms run / 1 ms GC ave time - 100 trials
|
|
|
|
MAIN: euler048
|