소수점 뒤에 양의 정수를 차례대로 붙여 나가면 아래와 같은 무리수를 만들 수 있습니다.
0.123456789101112131415161718192021…
이 무리수의 소수점 아래 12번째 자리에는 1이 옵니다 (위에서 붉게 표시된 숫자).
소수점 아래 n번째 숫자를 dn이라고 했을 때, 아래 식의 값은 얼마입니까?
d1 × d10 × d100 × d1000 × d10000 × d100000 × d1000000
perl의 주특기인 문자열 처리!
|
1
2
3
4
5
6
7
8
9
10
11
12
13
|
#!/usr/bin/env perl use 5.010; use strict; use warnings; my $s = join("", (0..1000000)); say substr($s, 1, 1) *substr($s, 10, 1) *substr($s, 100, 1) *substr($s, 1000, 1) *substr($s, 10000, 1) *substr($s, 100000, 1) *substr($s, 1000000, 1); |