Back to task

50 symbols perl
Sat Jan 11 10:38:28 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