Back to task

86 symbols perl
Thu Jul 24 00:46:48 2014 dionys
#!/usr/bin/perl -pa
$a[$_]=1for@F;$_=0;while(@a){if(pop@a){$i=@a;if(pop@a){0while pop@a}else{$_+=$i}}}


Leave a comment

Parsed as Markdown

Login to leave a comment