215 = 32768 의 각 자리수를 더하면 3 + 2 + 7 + 6 + 8 = 26 입니다.
21000의 각 자리수를 모두 더하면 얼마입니까?
일반적으로는 Math::BigInt를 사용하여 큰 정수를 처리하겠지만 이번에는 bigint를 사용해봤다.
bigint는 기존 연산자를 그대로 이용하여 프로그래밍 할 수 있어 편하니까…
|
1
2
3
4
5
6
7
8
9
10
11
12
13
|
#!/usr/bin/env perl use 5.010; use strict; use warnings; use bigint; my $r = 0; my @a = split(//, 2**1000); for (@a) { $r += $_; } say $r; |