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
|
||||
17
Task/Visualize-a-tree/Lingo/visualize-a-tree-2.lingo
Normal file
17
Task/Visualize-a-tree/Lingo/visualize-a-tree-2.lingo
Normal file
|
|
@ -0,0 +1,17 @@
|
|||
-- create a tree
|
||||
root = script("TreeItem").new("root")
|
||||
a = script("TreeItem").new("a")
|
||||
root.addChild(a)
|
||||
b = script("TreeItem").new("b")
|
||||
root.addChild(b)
|
||||
a1 = script("TreeItem").new("a1")
|
||||
a.addChild(a1)
|
||||
a11 = script("TreeItem").new("a11")
|
||||
a1.addChild(a11)
|
||||
a12 = script("TreeItem").new("a12")
|
||||
a1.addChild(a12)
|
||||
b1 = script("TreeItem").new("b1")
|
||||
b.addChild(b1)
|
||||
|
||||
-- print the tree
|
||||
root.printTree()
|
||||
Loading…
Add table
Add a link
Reference in a new issue