Part 1 with xtra credit - 55 charssub f{ #2345678901234567890123456789012345678901 (my$i=shift)=~y/_/./;grep/^$i$/i,@{$_[0]} }
sub f{ #234567890123456789012345678901234567890123456789012345 my$a=shift;(my$b=$a)=~s/_/[^$a]/gi;grep/^$b$/i,@{$_[0]} }
Part 2 may follow later, but I have to get back to work :(
In reply to Re: (Golf) Hangman Player
by gbarr
in thread (Golf) Hangman Player
by Masem
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |