Talk:Sparkline in unicode: Difference between revisions

Content added Content deleted
(Most of these are buggy)
(shorter, faster sparktest.pl)
Line 19: 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).
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 -Mutf8 -CS -ne 'chomp; s/[^▁-█]//g; next unless length; @c=split ""; $i=$li=$lc=0; for $i (0..@c) { if ($c[$i] ne $lc) { $w=$i-$li; print "$w " if $w; $li=$i } $lc=$c[$i]||"" };print "\n"'</code>
<code> perl -CS -Mutf8 -nle '$,=" "; y/▁-█//cd; $i=0; print grep $i^=1, map length, /((.)\2*)/g if length' </code>


Sample usage (in bash, and assuming program accepts space-separated data on standard input):
Sample usage (in bash, and assuming program accepts space-separated data on standard input):
Retrieved from "https://rosettacode.org/wiki/Talk:Sparkline_in_unicode"