From df64daf6d419ae5be1a3f7f2c23ab4c3181d568e Mon Sep 17 00:00:00 2001
From: Scimon Proctor <simon.proctor@gmail.com>
Date: Mon, 9 Aug 2021 16:27:32 +0100
Subject: Make the Str Rep Object a passable

---
 challenge-125/simon-proctor/raku/ch-2.raku | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/challenge-125/simon-proctor/raku/ch-2.raku b/challenge-125/simon-proctor/raku/ch-2.raku
index 2c11ae1465..2ab4173e5a 100644
--- a/challenge-125/simon-proctor/raku/ch-2.raku
+++ b/challenge-125/simon-proctor/raku/ch-2.raku
@@ -8,7 +8,7 @@ grammar BTreeGrammar {
 
 class BTreeRep {...}
 
-role BTree[::T] {
+role BTree[::T,::R=BTreeRep] {
     has T $.value is required;
     has BTree @!nodes[2];
 
@@ -34,7 +34,7 @@ role BTree[::T] {
     }
 
     method gist() {
-        BTreeRep.new( tree=>self ).gist();
+        R.new( tree=>self ).gist();
     }
 
     method raku() {
@@ -143,6 +143,8 @@ multi sub MAIN( *@data ) {
     my BTree[Any](Str) $tree = @data.join("");
     my @routes = $tree.traverse.sort( -*.elems );
 
+    say $tree;
+    
     my $long = shift @routes;
     my $result = $long.elems;
     for @routes -> $pos {
-- 
cgit