RosettaCodeData/Task/Tree-traversal/J/tree-traversal-1.j

5 lines
182 B
Text
Raw Permalink Normal View History

2013-04-11 01:07:29 -07:00
preorder=: ]S:0
postorder=: ([:; postorder&.>@}.) , >@{.
levelorder=: ;@({::L:1 _~ [: (/: #@>) <S:1@{::)
inorder=: ([:; inorder&.>@(''"_`(1&{)@.(1<#))) , >@{. , [:; inorder&.>@}.@}.