f(Program,Poet)=Programet

上面的第十六题是这样的：2¹⁵ = 32768 and the sum of its digits is 3 + 2 + 7 + 6 + 8 = 26. What is the sum of the digits of the number 2¹⁰⁰⁰?

不难，我用pascal写的源码如下：

program euler16;
var a:array[0..1000] of integer;
n,i,j,len:integer;

begin
a[1]:=1;
len:=1;
for i:=1 to 1000 do begin
a[1]:=a[1]*2;
for j:=2 to len do begin
a[j]:=a[j]*2;
a[j]:=a[j]+a[j-1] div 10;
a[j-1]:=a[j-1] mod 10;
end;
if a[len]>=10 then begin
len:=len+1;
a[len]:=a[len-1] div 10;
a[len-1]:=a[len-1] mod 10;
end;
end;
n:=0;
for i:=1 to len do
n:=n+a[i];
writeln(n);
readln;
end.

标准的高精度乘法基础，应该不算长了。
但是，PE上面的一群职业程序员让我大开眼界。他们非常喜欢比较自己代码的长短。
昵称为bitRAKE 的一位用户使用Assembler语言编程，非常非常的长……
楼下就有一位来自瑞典的Dazen说：
” Easier in Python

sum = 0
for n in str(2**1000):
sum += int(n)
print sum “

我吓了一跳……发现pascal没有高精度确实弱了点。

接着3楼来自意大利的intinig使用的是Ruby：
” Even shorter in Ruby

sum = 0
(2**1000).to_s.each_byte {|b| sum+=b.chr.to_i}
puts sum “

我已经开始汗了，觉得自己的代码越来越丑……

4楼来自希腊的dionysis没有保持好队形，一大块的PHP源码（下面有一个一句话PHP代码，漂亮），我略过～5楼瑞典的ix使用Haskell语言给出了一个相当简短的解法：

sum (map (digitToInt) (show (2^1000)))