Beefy Boxes and Bandwidth Generously Provided by pair Networks
Syntactic Confectionery Delight
 
PerlMonks  

Re^4: (Golf) Anagram Finder

by Sartak (Hermit)
on Jul 26, 2006 at 18:38 UTC ( [id://563861] : note . print w/replies, xml ) Need Help??


in reply to Re: Re: Re: (Golf) Anagram Finder
in thread (Golf) Anagram Finder

If you lift the requirement that you have to compare one word to many, you can get the following (which returns whether its two arguments are anagramic)
sub anagram { @_=map{join"",sort/./g}@_;pop eq pop }
36 characters.