Add tasks for all the new languages
This commit is contained in:
parent
9dc3c2bb62
commit
bba7bfd280
13208 changed files with 134745 additions and 0 deletions
25
Task/Visualize-a-tree/Lingo/visualize-a-tree-1.lingo
Normal file
25
Task/Visualize-a-tree/Lingo/visualize-a-tree-1.lingo
Normal file
|
|
@ -0,0 +1,25 @@
|
|||
-- parent script "TreeItem"
|
||||
-- (minimal implementation with direct property access)
|
||||
|
||||
property name
|
||||
property children
|
||||
|
||||
on new (me, itemName)
|
||||
me.name = itemName
|
||||
me.children = []
|
||||
return me
|
||||
end
|
||||
|
||||
on addChild (me, child)
|
||||
me.children.add(child)
|
||||
end
|
||||
|
||||
-- print a tree
|
||||
on printTree (me, treeItem, indent)
|
||||
if voidP(treeItem) then treeItem = me
|
||||
if voidP(indent) then indent = ""
|
||||
put indent&treeItem.name
|
||||
repeat with c in treeItem.children
|
||||
me.printTree(c, indent&" ")
|
||||
end repeat
|
||||
end
|
||||
Loading…
Add table
Add a link
Reference in a new issue