in reply to Re: The 15 Puzzle
in thread The 15 Puzzle

Good idea; thanks!

$_="msh210";$"=$\;@_=@{[split//,uc]}[2,0];$_="@_$\1";$\=$/;++$_[0]for$...1;print lc substr crypt($_,"@_"),1,6

In Section Cool Uses for Perl