diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2020-04-26 06:43:17 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2020-04-26 06:43:17 +0100 |
| commit | a3260b00228ae899c75e6562c23de829e44bce32 (patch) | |
| tree | 387e1c24acfe0b88283f652321faca9443af888a | |
| parent | cfe34bf9ca198844877a9cd6b7ab831fd2cf8242 (diff) | |
| parent | 17fb92423a18b625c8f9d32fe5aeacf9e2b4b00d (diff) | |
| download | perlweeklychallenge-club-a3260b00228ae899c75e6562c23de829e44bce32.tar.gz perlweeklychallenge-club-a3260b00228ae899c75e6562c23de829e44bce32.tar.bz2 perlweeklychallenge-club-a3260b00228ae899c75e6562c23de829e44bce32.zip | |
Merge pull request #1626 from andemark/branch-for-challenge-057
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; |