Back to task

55 symbols perl
Sat Jan 11 05:20:19 2014 Logioniz
#!/usr/bin/perl -p
($q,$e)=<>;$n=--$q*--$_;$_=2;1while(($e*++$_)%$n!=1);


Leave a comment

Parsed as Markdown

Login to leave a comment