diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2022-04-25 22:07:54 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2022-04-25 22:07:54 +0100 |
| commit | 6455c8e4aa170fff2d49f97898f4cecbd0c98579 (patch) | |
| tree | 5b8f1943e794d8a1a51e2916606155b67520f5bf /challenge-161 | |
| parent | bd6cb58ec91d630d3b9e13a00ff0918705f2dcda (diff) | |
| parent | 357d132ccf72a5c04d531fc233269c35016a7d31 (diff) | |
| download | perlweeklychallenge-club-6455c8e4aa170fff2d49f97898f4cecbd0c98579.tar.gz perlweeklychallenge-club-6455c8e4aa170fff2d49f97898f4cecbd0c98579.tar.bz2 perlweeklychallenge-club-6455c8e4aa170fff2d49f97898f4cecbd0c98579.zip | |
Merge pull request #6000 from drbaggy/master
First commit
Diffstat (limited to 'challenge-161')
| -rw-r--r-- | challenge-161/james-smith/README.md | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/challenge-161/james-smith/README.md b/challenge-161/james-smith/README.md index bd2de9087b..7ae99adb0f 100644 --- a/challenge-161/james-smith/README.md +++ b/challenge-161/james-smith/README.md @@ -71,10 +71,10 @@ The list of words are: ```perl sub generate_a_pangram_random { my ($list,$c,%letters,@pangram) = (shift,0,map { $_ => 0 } 'a'..'z'); - O: while( $c < 26 ) { + O: while( $c < 26 ) { ## Keep a counter of letters used... my($f,@l) = (1,split //, my $word = $list->[rand @{$list}]); $f *= $letters{$_} foreach @l; - next if $f; + next if $f; ## Only choose words which have at least one new unique letter push @pangram, $word; $letters{$_} || ( $letters{$_}=1, $c++ ) for @l; } @@ -191,4 +191,6 @@ sub most_letters { This gives us *"**oversimpl**i**f**i**cat**io**n** la**dybug** **h**a**wk** **j**a**z**z e**q**uino**x**"* +If we replace "equinox" with "quixotic" which introduces the same two letters "q" and "x" you could rearrange this to: **Ladybug Hawk - Quixotic jazz oversimplification**. This just sounds like an NME headline! + If we stick to the words from challenge 1 - we get *"abhors deity flux know chimp go iv qt jot buzz"*. |