Embedding Text::Chart code

text-char.raku

unit module Text::Chart;

constant $default-char is export = "█";

sub vertical ( Int :$max = 10,
               Str :$chart-chars = $default-char,
               *@data ) is export  {

    my $space = " ";
    my @chars = $chart-chars.comb;
    my $chart;
    for $max^...0 -> $i  {
	    for  0..^@data.elems -> $j {
	        $chart ~= @data[$j] > $i ?? @chars[$j % @chars.elems] !!
                    $space;
	    }
	    $chart ~= "\n";
    }
    return $chart;
}