Talk:Sparkline in unicode: Difference between revisions

m
→‎sparktest.pl: shorter still
(shorter, faster sparktest.pl)
m (→‎sparktest.pl: shorter still)
Line 19:
This is some Perl code that will report the widths of same-height sections of output, when provided with a sparkline on standard input. Non-sparkline-lines are ignored. The line produced from a continuous integer sequence should produce eight equal widths (or almost equal if the sequence length is not a multiple of eight).
 
<code> perl -CS -Mutf8 -nle '$,=" "; y/▁-█//cd; $i@x=0; print grep $i^=1, map length, /((.)\2*)/g ifand lengthprint"@x"' </code>
 
Sample usage (in bash, and assuming program accepts space-separated data on standard input):