challenge-130/arne-sommer/raku/binary-search-tree


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));

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

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

say 1 if $btree.min-max(:$verbose);