Project Euler - Problem 40

問題

• 原文

  An irrational decimal fraction is created by concatenating the positive integers:

  0.123456789101112131415161718192021...

  It can be seen that the 12^th digit of the fractional part is 1.

  If d_n represents the n^th digit of the fractional part, find the value of the following expression.

  d₁ × d₁₀ × d₁₀₀ × d₁₀₀₀ × d₁₀₀₀₀ × d₁₀₀₀₀₀ × d_1000000

• 日本語訳

  正の整数を順に連結して得られる以下の10進の無理数を考える:

  0.123456789101112131415161718192021...

  小数点第12位は1である.

  d_nで小数点第n位の数を表す. d₁ × d₁₀ × d₁₀₀ × d₁₀₀₀ × d₁₀₀₀₀ × d₁₀₀₀₀₀ × d_1000000 を求めよ.

解答

数列作って、繋げて、取り出して、掛け合わせる。おしまい。

#!/usr/bin/env perl

use strict;
use warnings;
use feature qw/say/;
use List::Util qw/reduce/;

my $n = 0;
my $str = '';
$str .= $n++ while length $str <= 1_000_000;

our ($a, $b);
say reduce { $a * $b } map { substr $str, 10 ** $_, 1 } 0 .. 6;