/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
InstallerSamples/LanguageFeatures/Yields/InfixTraverseTree.pas
20 строк
436 B
miks1965
.NET 4.7.1
26 янв 2018, 23:37
26 янв 2018, 23:37
47abf90
Код
Авторство
О чём код?
type Node<T> = auto class data: T; left,right: Node<T>; end; function CNode<T>(x: T; l: Node<T> := nil; r: Node<T> := nil): Node<T> := new Node<T>(x,l,r); function Infix<T>(root: Node<T>): sequence of T; begin if root = nil then exit; yield sequence Infix(root.left); yield root.data; yield sequence Infix(root.right); end; begin var root := CNode(1,CNode(2,CNode(3),CNode(4)),CNode(5)); Infix(root).Print; end.