Back to task

73 symbols perl
Thu Jul 24 02:33:30 2014 dionys
#!/usr/bin/perl -pa
@@[@F]=@F;$_=0;pop@@?($@=@@,pop@@?do{0while pop@@}:($_+=$@)):0while@@

For positive integers only.

Thu Jul 24 02:35:17 2014


Leave a comment

Parsed as Markdown

Login to leave a comment