Doesn't seem to work right -- ($1&&$x[$1]+7) adds 7 too often and !!$& has issues with "000".
# 123456789_123456789_1
# onemilliontwentyfour
# onethousandtwentyfour
echo 1000024 | perl duelafn.pl
1000024 is 20.
20 is 6.
6 is 3.
3 is 5.
5 is 4.
4 is magic.
echo 1024 | perl duelafn.pl
1024 is 21.
21 is 9.
9 is 4.
4 is magic.
echo 1000024 | haarg.pl
1000024 is 13.
13 is 8.
8 is 5.
5 is 4.
4 is magic.
echo 1024 | haarg.pl
1024 is 13.
13 is 8.
8 is 5.
5 is 4.
4 is magic.
echo 1000024 | perl thundergnat.pl
1000024 is 17.
17 is 9.
9 is 4.
4 is magic.
echo 1024 | perl thundergnat.pl
1024 is 13.
13 is 8.
8 is 5.
5 is 4.
4 is magic.
Update tracked doiwn more details of the bugs.