diff options
| author | Stephen Lynn <bizlsg@localhost.localdomain> | 2023-01-05 22:51:04 +0800 |
|---|---|---|
| committer | Stephen Lynn <bizlsg@localhost.localdomain> | 2023-01-05 22:51:04 +0800 |
| commit | 7668f410edb9b562c8724a091ea4c8ffa579140d (patch) | |
| tree | 07811cfc1c5fc9ccfbdf97032e34b2563cbb3ef8 /challenge-198 | |
| parent | cd64837b002e2248ab2f14d443b1cd3a295fa4cf (diff) | |
| download | perlweeklychallenge-club-7668f410edb9b562c8724a091ea4c8ffa579140d.tar.gz perlweeklychallenge-club-7668f410edb9b562c8724a091ea4c8ffa579140d.tar.bz2 perlweeklychallenge-club-7668f410edb9b562c8724a091ea4c8ffa579140d.zip | |
pwc 198
Diffstat (limited to 'challenge-198')
| -rwxr-xr-x | challenge-198/steve-g-lynn/raku/ch-1.p6 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-198/steve-g-lynn/raku/ch-1.p6 b/challenge-198/steve-g-lynn/raku/ch-1.p6 index 4bbc4a23a6..1340951e7f 100755 --- a/challenge-198/steve-g-lynn/raku/ch-1.p6 +++ b/challenge-198/steve-g-lynn/raku/ch-1.p6 @@ -9,7 +9,7 @@ sub max-gap (@list) { (@list.elems <= 2) && (return 0); my %gaps; - (0 .. @list-2).map( {%gaps{@list[$_+1]-@list[$_]}++} ); + (0 .. @sorted_list-2).map( {%gaps{@sorted_list[$_+1]-@sorted_list[$_]}++} ); %gaps{ ( (%gaps.keys).sort( {$^b <=> $^a} ))[0] }; |