aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

2016 Update

Browse source
This commit is contained in:
Tina Müller 2016-12-05 22:15:40 +01:00
parent 948b86eafa
commit dcf5d15da3
7965 changed files with 139854 additions and 31002 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Task/Visualize-a-tree/Perl-6/visualize-a-tree.pl6
View file

@ -20,4 +20,4 @@ sub visualize-tree($tree, &label, &children,
# example tree built up of pairs
my $tree = root=>[a=>[a1=>[a11=>[]]],b=>[b1=>[b11=>[]],b2=>[],b3=>[]]];
.say for visualize-tree($tree, *.key, *.value.list);
.map({.join("\n")}).join("\n").say for visualize-tree($tree, *.key, *.value.list);