Interesting :) Without looking at your code I tried writing something to solve this myself. Strangely enough, we did it almost the exact same way.

The function takes the obvious parameters to it, a pattern and the word. 

sub match { 
  my $pattern=shift; 
  my $word=shift; 
   
  ## have to be exact 
  return unless length($pattern) == length($word); 
   
  my %seen; 
  my @pattern=split //,$pattern; 
  my @word=split //,$word; 
 
  for my $let (@word) { 
    my $pat=shift @pattern; 
    ## if this is a new pattern, make sure it doesn't 
    ## match a previous letter 
    if (!defined $seen{$pat}) { 
      ## bad if this letter exists 
      return if grep /$let/,join("",values %seen); 
      ## it's OK, 
      $seen{$pat}=$let; 
    } 
    else { 
      ## must be the same 
      return if $seen{$pat} ne $let; 
    } 
    ## tis good 
  } 
  1; 
}

[download]
Mine does not exhibit the same problem as yours, I think because I scan the pattern against the word, not the word against the pattern. Therefore, the UNIQUENESS of the testing is dependant on the pattern, not the word.

any senselessness you detect is due to medication

Oh, duh. I didn't realize what this solution could be used for :) Implementing a brute force decrypter using this would be simplistic, eh?

In reply to Re: Cryptogram Solver by mr.nick
in thread Cryptogram Solver by pchou

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.