Project Euler

[ホーム](https://redmine.noppi.jp) - [[Wiki|Project Euler]]

# [[Problem 48]]

## Self Powers

The series, $1^1 + 2^2 + 3^3 + \cdots + 10^{10} = 10405071317$.

Find the last ten digits of the series, $1^1 + 2^2 + 3^3 + \cdots + 1000^{1000}$.

## 自身のべき乗(self powers)

次の式は, $1^1 + 2^2 + 3^3 + \cdots + 10^{10} = 10405071317$ である.

では, $1^1 + 2^2 + 3^3 + \cdots + 1000^{1000}$ の最後の10桁を求めよ.

```scheme

(import (scheme base)

        (gauche base))

(define answer-48

  (mod (apply + (map (^n (expt n n))

                     (iota 1000 1)))

       10_000_000_000))

(format #t "48: ~d~%" answer-48)

```