Back to task

59 symbols perl
Fri Jan 10 22:38:13 2014 bugov
#!/usr/bin/perl -p
($q,$e)=<>;$n=--$q*--$_;do{$_=(1+$n*$t++)/$e}until/^\d+$/


Leave a comment

Parsed as Markdown

Login to leave a comment