in reply to Re: The 15 Puzzle
in thread The 15 Puzzle
Thank you!
$_="msh210";$"=$\;@_=@{[split//,uc]}[2,0];$_="@_$\1";$\=$/;++$_[0]for$...1;print lc substr crypt($_,"@_"),1,6
|
---|
In Section
Cool Uses for Perl
in reply to Re: The 15 Puzzle
in thread The 15 Puzzle
Thank you!
|
---|