diff options
| author | James Smith <js5@sanger.ac.uk> | 2022-05-28 09:09:50 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2022-05-28 09:09:50 +0100 |
| commit | 97eb139aced39e013cfd6c75f568f47639d4d265 (patch) | |
| tree | 43a4d408286d0ba6a728dae5a7d0676b725678de /challenge-166 | |
| parent | 771185091d026257be9401f0d8d50edc7bace2a3 (diff) | |
| download | perlweeklychallenge-club-97eb139aced39e013cfd6c75f568f47639d4d265.tar.gz perlweeklychallenge-club-97eb139aced39e013cfd6c75f568f47639d4d265.tar.bz2 perlweeklychallenge-club-97eb139aced39e013cfd6c75f568f47639d4d265.zip | |
Update README.md
Diffstat (limited to 'challenge-166')
| -rw-r--r-- | challenge-166/james-smith/README.md | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/challenge-166/james-smith/README.md b/challenge-166/james-smith/README.md index a73165d2cb..82352a1088 100644 --- a/challenge-166/james-smith/README.md +++ b/challenge-166/james-smith/README.md @@ -364,9 +364,9 @@ For ultimate compactness we can remove the function overhead off, turn off both ```perl /\//,$u{$'.'/'x-d}{$d{$`}=$`}++for<*/*>;$l<length?$l=length:1for(@p=sort keys%d),@_=keys%u;print$a=join('-'x$l,('+--')x@p,'+ '),sprintf($b="| %-${l}s "x@p.'| -',@p),$a,map({$l=$_;@p>keys%{$u{$l}}?sprintf$b,map{$u{$l}{$_}?$l:''}@p:()}sort@_),$a +',@p),$a,map({//;@p-%{$u{$'}}?sprintf$b,map{$' x$u{$'}{$_}}@p:()}sort@_),$a ``` -This is the 242 byte version - we could reduce it to 240 bytes by replacing +This is the 233 byte version - we could reduce it to 231 bytes by replacing `print` with `say` again... But ultimately that makes the execution more bytes. Command line with `print`: |