Solution to Project Euler problem 48
parent
ac10c4067a
commit
1954114d85
|
@ -0,0 +1,25 @@
|
||||||
|
! Copyright (c) 2008 Aaron Schaefer.
|
||||||
|
! See http://factorcode.org/license.txt for BSD license.
|
||||||
|
USING: combinators.lib kernel math math.functions ;
|
||||||
|
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
|
|
@ -12,8 +12,8 @@ USING: definitions io io.files kernel math math.parser project-euler.ave-time
|
||||||
project-euler.029 project-euler.030 project-euler.031 project-euler.032
|
project-euler.029 project-euler.030 project-euler.031 project-euler.032
|
||||||
project-euler.033 project-euler.034 project-euler.035 project-euler.036
|
project-euler.033 project-euler.034 project-euler.035 project-euler.036
|
||||||
project-euler.037 project-euler.038 project-euler.039 project-euler.040
|
project-euler.037 project-euler.038 project-euler.039 project-euler.040
|
||||||
project-euler.067 project-euler.075 project-euler.134 project-euler.169
|
project-euler.048 project-euler.067 project-euler.075 project-euler.134
|
||||||
project-euler.173 project-euler.175 ;
|
project-euler.169 project-euler.173 project-euler.175 ;
|
||||||
IN: project-euler
|
IN: project-euler
|
||||||
|
|
||||||
<PRIVATE
|
<PRIVATE
|
||||||
|
|
Loading…
Reference in New Issue