# Programming-Idioms

Implementation
Pascal

Be concise.

Be useful.

All contributions dictatorially edited by webmasters to match personal tastes.

Please try to avoid dependencies to third-party libraries and frameworks.

Implementation edit is for fixing errors and enhancing with metadata.

Instead of changing the code of the snippet, consider creating another Pascal implementation.

Other implementations
```type Tree struct {
Key keyType
Deco valueType
Children []*Tree
}
```
```struct Node(T){
Node[] children;
T data;
}

alias TreeOfIntegers = Node!(int);```
```class Node<T> {
final T value;
final List<Node<T>> children;
Node(this.value, this.children);
}
```
```type
TTree = class
Children: array of TTree;
Data: TObject;
end;     ```
```data Tree a = Node {
value :: a,
children :: [Tree a]
}```
```Node = Struct.new(:children)
parent = Node.new([])
parent.children << Node.new([])```
```class Node:
def __init__(self, value, *children):
self.value = value
self.children = list(children)```
`using System.Collections.Generic`
```class Node<T>
{
T value;
List<Node<T>> childNodes;
}
```
`#include <vector>`
```template<typename T>
struct Node{
T value;
std::vector<Node<T>> children;
};```
```import java.util.List;
import java.util.ArrayList;```
```class Tree<K,V> {
K key;
V deco;
List<Tree<K,V>> children = new ArrayList<>();
}```
```struct Node<T> {
value: T,
children: Vec<Node<T>>,
}```
```typedef struct node_s
{
int value;
struct node_s *nextSibling;
struct node_s *firstChild;
} node_t;```
```(define (make-tree value children)
(cons value children))

(define (tree-value t) (car t))
(define (tree-rest-children t) (cddr t))```
```local function Tree(v, c)
return {
val = v,
children = c
}
end```
```class Tree
{
public \$children = [];
public \$data;

public function __construct(\$data, \$children)
{
\$this->data = \$data;
\$this->children = \$children;
}
}```
```class Node {
constructor (value, children = []) {
this.value = value
this.children = children
}
}```
`case class Node[T](value: T, children: List[Node[T]] = Nil)`
```type 'a Tree = {
value: 'a;
children: 'a tree list;
}```
```my \$tree = {
'Root' => {
'Child1' => {
'GrandChild1' => {},
'GrandChild2' => {}
},
'Child2' => {}
}
};```
```type node_t
integer:: value
type(node_t), pointer :: next_sibling;
type(node_t), pointer :: first_child;
end type node_t```
```-record( node,{
value         :: any(),
children = [] :: [node#{}]
}).```
`@import Foundation;`
```@interface Node:NSObject
@property id value; // id means any object value
@property NSMutableArray *children;
@end

// usage like
Node *n=[Node new];
n.value=@1;