Tree from nesting levels: Difference between revisions
Added C#
No edit summary |
(Added C#) |
||
| (2 intermediate revisions by 2 users not shown) | |||
Line 696:
[[[3, 3, 3]], 1, 1, [[3, 3, 3]]]
</pre>
=={{header|C sharp|C#}}==
{{works with|C sharp|12}}
<syntaxhighlight lang="csharp">public static class TreeFromNestingLevels
{
public static void Main()
{
List<int[]> tests = [[], [1,2,4], [3,1,3,1], [1,2,3,1], [3,2,1,3], [3,3,3,1,1,3,3,3]];
Console.WriteLine($"{"Input",24} -> {"Nested",-32} -> Round-trip");
foreach (var test in tests) {
var tree = BuildTree(test);
string input = $"[{string.Join(", ", test)}]";
string roundTrip = $"[{string.Join(", ", tree.ToList())}]";
Console.WriteLine($"{input,24} -> {tree,-32} -> {roundTrip}");
}
}
private static Tree BuildTree(int[] levels)
{
Tree root = new(0);
Tree current = root;
foreach (int level in levels) {
while (current.Level > level) current = current.Parent;
current = current.Parent.Add(level);
}
return root;
}
private class Tree
{
public int Level { get; }
public Tree Parent { get; }
private readonly List<Tree> children = [];
public Tree(int level, Tree? parent = null)
{
Level = level;
Parent = parent ?? this;
}
public Tree Add(int level)
{
if (Level == level) return this;
Tree tree = new(Level + 1, this);
children.Add(tree);
return tree.Add(level);
}
public override string ToString() => children.Count == 0
? (Level == 0 ? "[]" : $"{Level}")
: $"[{string.Join(", ", children.Select(c => c.ToString()))}]";
public List<int> ToList()
{
List<int> list = [];
ToList(this, list);
return list;
}
private static void ToList(Tree tree, List<int> list)
{
if (tree.children.Count == 0) {
if (tree.Level > 0) list.Add(tree.Level);
} else {
foreach (Tree child in tree.children) {
ToList(child, list);
}
}
}
}
}</syntaxhighlight>
{{out}}
<pre>
Input -> Nested -> Round-trip
[] -> [] -> []
[1, 2, 4] -> [1, [2, [[4]]]] -> [1, 2, 4]
[3, 1, 3, 1] -> [[[3]], 1, [[3]], 1] -> [3, 1, 3, 1]
[1, 2, 3, 1] -> [1, [2, [3]], 1] -> [1, 2, 3, 1]
[3, 2, 1, 3] -> [[[3], 2], 1, [[3]]] -> [3, 2, 1, 3]
[3, 3, 3, 1, 1, 3, 3, 3] -> [[[3, 3, 3]], 1, 1, [[3, 3, 3]]] -> [3, 3, 3, 1, 1, 3, 3, 3]</pre>
=={{header|Delphi}}==
Line 800 ⟶ 882:
</pre>
=={{header|Fōrmulæ}}==
{{FormulaeEntry|page=https://formulae.org/?script=examples/Tree_from_nesting_levels}}
'''Solution'''
[[File:Fōrmulæ - Tree from nesting levels 01.png]]
'''Test cases'''
[[File:Fōrmulæ - Tree from nesting levels 02.png]]
[[File:Fōrmulæ - Tree from nesting levels 03.png]]
Notice that in Fōrmulæ an array of arrays (of the same cardinality each) is automatically shown as a matrix.
[[File:Fōrmulæ - Tree from nesting levels 04.png]]
[[File:Fōrmulæ - Tree from nesting levels 05.png]]
[[File:Fōrmulæ - Tree from nesting levels 06.png]]
[[File:Fōrmulæ - Tree from nesting levels 07.png]]
[[File:Fōrmulæ - Tree from nesting levels 08.png]]
[[File:Fōrmulæ - Tree from nesting levels 09.png]]
[[File:Fōrmulæ - Tree from nesting levels 10.png]]
[[File:Fōrmulæ - Tree from nesting levels 11.png]]
[[File:Fōrmulæ - Tree from nesting levels 12.png]]
[[File:Fōrmulæ - Tree from nesting levels 13.png]]
'''Other test cases'''
Cases generated with random numbers:
[[File:Fōrmulæ - Tree from nesting levels 14.png]]
[[File:Fōrmulæ - Tree from nesting levels 15.png]]
=={{header|FreeBASIC}}==
Line 2,481 ⟶ 2,602:
{{libheader|Wren-seq}}
{{libheader|Wren-fmt}}
<syntaxhighlight lang="
import "./fmt" for Fmt
var toTree = Fn.new { |list|
Line 2,528 ⟶ 2,649:
===Recursive===
{{trans|Python}}
<syntaxhighlight lang="
var toTree // recursive
| |||