June 2018 Update

Task/Ackermann-function/Perl-6/ackermann-function-3.pl6

@@ -7,3 +7,7 @@ multi A(3,      Int \𝑛) { 5 + 8 * (2 ** 𝑛 - 1) }
 
 multi A(Int \𝑚, 0     ) { A(𝑚 - 1, 1) }
 multi A(Int \𝑚, Int \𝑛) { A(𝑚 - 1, A(𝑚, 𝑛 - 1)) }
+
+# Testing:
+say A(4,1);
+say .chars, " digits starting with ", .substr(0,50), "..." given A(4,2);