challenge-130/arne-sommer/raku/bin-graph


1
2
3
4
5
6
7
8
9
10
11
12

#! /usr/bin/env raku

use lib "lib";
use BinaryNode;

unit sub MAIN (Str $tree = "8 | 5 9 | 4 6", :v(:$verbose), :g(:$graph));

my $btree = BinaryNode.create($tree);

say ": { $btree.raku }" if $verbose;

$btree.graph if $graph;