[Moscow.pm] По следам YAPC::Russia::Golf, делимость на 11

[Andrey]

Во-первых, чуть подсократили решение Тарасова:

#!perl -lp
@h{a,0..9}=(0..9,a);s/^0//while s/(.)(.)/$h{$1}$h{$2}/;$_=/0/?yes:"no"

А во-вторых mtve прислал супер-вариант на 50 символов, красота!
#!perl -lp
$_=s/..?\b/"@:[0..$&]"/e?redo:/^( {11})*$/?yes:'no'

-- 
Андрей