Здравствуйте, Mirrorer, Вы писали:

M>Эт не зверь. Это старый добрый джей.
M>Когда начинается пенисометрия в разрезе "кто короче" ему нет равных

таки на перле сравнимо получается

#!perl -np
$_=reduce(\&add,0,split);

(reduce и add) описаны отдельно