From 17fb92423a18b625c8f9d32fe5aeacf9e2b4b00d Mon Sep 17 00:00:00 2001
From: Mark Anderson <mark@frontrangerunner.com>
Date: Sat, 25 Apr 2020 22:58:30 -0600
Subject: Challenge 57 Solutions

---
 challenge-057/mark-anderson/raku/ch-1.p6 | 21 +++++++++++++++++++++
 challenge-057/mark-anderson/raku/ch-2.p6 |  1 +
 2 files changed, 22 insertions(+)
 create mode 100644 challenge-057/mark-anderson/raku/ch-1.p6

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