Visualize a tree: Difference between revisions

#<lang elena>import extensionssystem'routines.

constructor new : value &children:children

<= new:value &children:nil.

constructor new &children:children

<= new:emptyLiteralValue &children:children.

constructor new : value &child:child

<= new:value &children:(Array new &object:child).

writeTree : node : prefix &subject: childrenProp

var children := node::~childrenProp get.

children zip:(RangeEnumerator new &from:1 &to:length) &eachPair:forEach(:child:index)

self writeLine:printLine(prefix:,"|").

self writeLine:printLine(prefix:,"+---":(,child get).

var nodeLine := prefix + (index==length)iif:(" ":,"| ").

self writeTree:(child:,nodeLine &subject:,childrenProp).

writeTree : node &subject: childrenProp

= self~treeOp writeTree:(node:,"" &subject:,childrenProp).

var tree := Node new &children:

Node new:"a" &children:

Node new:"b" &child:(Node new:"c"),

console writeTree:(tree, &subject:%children); readChar.