diff options
| author | Mark Anderson <mark@frontrangerunner.com> | 2020-04-25 22:58:30 -0600 |
|---|---|---|
| committer | Mark Anderson <mark@frontrangerunner.com> | 2020-04-25 22:58:30 -0600 |
| commit | 17fb92423a18b625c8f9d32fe5aeacf9e2b4b00d (patch) | |
| tree | 5afdb04219ccbd2ac34d85d9c72658876fb9a97e | |
| parent | ecd9861099b07b3afd2e97b2882f92d9c1da80fb (diff) | |
| download | perlweeklychallenge-club-17fb92423a18b625c8f9d32fe5aeacf9e2b4b00d.tar.gz perlweeklychallenge-club-17fb92423a18b625c8f9d32fe5aeacf9e2b4b00d.tar.bz2 perlweeklychallenge-club-17fb92423a18b625c8f9d32fe5aeacf9e2b4b00d.zip | |
Challenge 57 Solutions
| -rw-r--r-- | challenge-057/mark-anderson/raku/ch-1.p6 | 21 | ||||
| -rw-r--r-- | challenge-057/mark-anderson/raku/ch-2.p6 | 1 |
2 files changed, 22 insertions, 0 deletions
diff --git a/challenge-057/mark-anderson/raku/ch-1.p6 b/challenge-057/mark-anderson/raku/ch-1.p6 new file mode 100644 index 0000000000..227273d0ab --- /dev/null +++ b/challenge-057/mark-anderson/raku/ch-1.p6 @@ -0,0 +1,21 @@ +#!/usr/bin/env raku + +use Tree::DAG_Node:from<Perl5>; + +my $lol = ((4,5,2), (6,7,3), 1); + +my $tree = Tree::DAG_Node.lol_to_tree($lol); + +.say for $tree.draw_ascii_tree; + +$tree.walk_down({callback => &swap-nodes}); + +.say for $tree.draw_ascii_tree; + +sub swap-nodes($node, $options) { + if $node.daughters.elems > 1 { + $node.set_daughters($node.daughters[1], $node.daughters[0]); + } + + return 1; +}; diff --git a/challenge-057/mark-anderson/raku/ch-2.p6 b/challenge-057/mark-anderson/raku/ch-2.p6 index 227d526b9a..845b2e1871 100644 --- a/challenge-057/mark-anderson/raku/ch-2.p6 +++ b/challenge-057/mark-anderson/raku/ch-2.p6 @@ -1,4 +1,5 @@ #!/usr/bin/env raku + use Trie; my $trie = Trie.new; |