diff options
| author | John Barrett <john@jbrt.org> | 2019-04-25 00:07:08 +0100 |
|---|---|---|
| committer | John Barrett <john@jbrt.org> | 2019-04-25 00:07:08 +0100 |
| commit | c91621414ceb3bea84d5db6cf7396d05ea64ace8 (patch) | |
| tree | 8ca2edb60626afb8ec7d0e4a0b5c1ad0db22c44a /challenge-005 | |
| parent | 3d23875d0ec4a40ae44eebb642559cc81e402dd6 (diff) | |
| download | perlweeklychallenge-club-c91621414ceb3bea84d5db6cf7396d05ea64ace8.tar.gz perlweeklychallenge-club-c91621414ceb3bea84d5db6cf7396d05ea64ace8.tar.bz2 perlweeklychallenge-club-c91621414ceb3bea84d5db6cf7396d05ea64ace8.zip | |
Output the found sequence
Diffstat (limited to 'challenge-005')
| -rwxr-xr-x | challenge-005/john-barrett/perl5/ch-2.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-005/john-barrett/perl5/ch-2.pl b/challenge-005/john-barrett/perl5/ch-2.pl index 020c35ee33..7a63a70f95 100755 --- a/challenge-005/john-barrett/perl5/ch-2.pl +++ b/challenge-005/john-barrett/perl5/ch-2.pl @@ -23,5 +23,5 @@ sub is_anagram { $word eq sortedlc $dictword; } -print "(A) longest anagram set:\n"; +print "(A) longest anagram set from '$word':\n"; print "$_\n" for grep { is_anagram( $_ ) } @dict; |