in reply to Re: The 15 Puzzle
in thread The 15 Puzzle
Thanks!
$_="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
Thanks!
|
---|