![]() |
||||||
|
SHAKSPER 1998: Re: Anagram
From: Hardy M. Cook (editor@ws.bowiestate.edu) Date: 05/11/98
The Shakespeare Conference: SHK 9.0451 Monday, 11 May 1998.
[1] From: John Robinson <Ucbubba@aol.com>
Date: Friday, 8 May 1998 16:12:48 EDT
Subj: Re: SHK 9.0443 Anagram
[2] From: Stephan B. Paragon <PARAGON860@aol.com>
Date: Sunday, 10 May 1998 02:58:21 EDT
Subj: Re: SHK 9.0443 Anagram
[1]-----------------------------------------------------------------
From: John Robinson <Ucbubba@aol.com>
Date: Friday, 8 May 1998 16:12:48 EDT
Subject: 9.0443Anagram
Comment: Re: SHK 9.0443Anagram
<< open (FH, "$ARGV[0]"); open (FH2, "$ARGV[1]");
grep ( $MARK{lc($_)}++, (grep (m"[a-zA-Z]",
split('', join('', (<FH>))))));
grep ( $MARK2{lc($_)}++, (grep (m"[a-zA-Z]",
split('', join('', (<FH2>))))));
if (grep ($MARK{$_} eq $MARK2{$_}, keys(%{ %MARK, %MARK2 })))
{ print "ANAGRAMS!\n"; } else { print "NOT ANAGRAMS!\n";
}
>>
Please stop all this gibberish.
Cheers,
John Robinson, not John Owens.
[Editor's Note: I am sorry that I mistakenly attributed John Robinson's
last post to John Owen and ask for everyone's assistance in helping me
not repeat this sort of mistake. I attribute all postings to the member
who sent the message in. If the member's name is not in the Name line
or at the end of the message, I have to spend extra time opening the
file of the approximately 1,400 members from 35 countries, looking up
the e-mail address, and copying the name to the digest I am editing.
Sometimes, I make mistakes or think I recognize the poster e-mail
address and just fill in the name I believe belongs. Editing the
SHAKSPER digests is very time consuming, but some time can be saved by
person's whose name does not appear in the Name lining signing all
postings. Thanks for the help. -Hardy]
[2]-----------------------------------------------------------------
From: Stephan B. Paragon <PARAGON860@aol.com>
Date: Sunday, 10 May 1998 02:58:21 EDT
Subject: 9.0443 Anagram
Comment: Re: SHK 9.0443 Anagram
When Birnam Wood comes to Dunsiname!
|
|
|||||