Skip to content

Instantly share code, notes, and snippets.

@JJ

JJ/xmas-tree.raku

Created December 18, 2021 19:45
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save JJ/e39aec3d27d6754c1e9d400379e7fd02 to your computer and use it in GitHub Desktop.
Save JJ/e39aec3d27d6754c1e9d400379e7fd02 to your computer and use it in GitHub Desktop.
Download ZIP
Painting a Xmas tree with Text::Chart
Raw
xmas-tree.raku
use Text::Chart;
my @data = < 1 2 3 4 5 6 7 6 5 4 3 2 1 >;
my $midway = (@data.elems/2).truncate;
my $max = max(@data);
my &left-pad = { " " x $midway ~ $_ ~ "\n"};
say left-pad("✶") ~ vertical( :$max, @data ) ~ left-pad("█") x 2;
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment