Back to task

49 symbols perl
Sat Jan 11 10:41:09 2014 bugov
#!/usr/bin/perl -p
($q,$e)=<>;$n=--$q*--$_;$_=2;1while$e*++$_%$n-1


Leave a comment

Parsed as Markdown

Login to leave a comment