Back to task

70 symbols perl
Thu Oct 2 14:08:28 2014 vakorol
#!/usr/bin/perl -p
$l=($n=$&)-1,$g=$n+1,!/$l|$g/&&($s+=$n)&&s/$n//g while/\d+/g;$_=$s+0


Leave a comment

Parsed as Markdown

Login to leave a comment