Skip to content

Instantly share code, notes, and snippets.

@gitonthescene

gitonthescene/apter-tree Secret

Last active March 24, 2023 20:43
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save gitonthescene/423484c3576456a84f28e072c3b572ff to your computer and use it in GitHub Desktop.
Save gitonthescene/423484c3576456a84f28e072c3b572ff to your computer and use it in GitHub Desktop.
Download ZIP
Raw
apter-tree
p←1+0 0 1 2 20 4 4 6 7 20 9 10 10 10 9 14 15 20 17 18 20
it←{⍺←⊢⋄r⊣⍺ ⍺⍺{⍺←⊢⋄r,∘⊂←⍺ ⍺⍺ ⍵}⍣⍵⍵⊃r←⊂⍵}
t←⍉(⊢×1⍪2≠⌿⊢)t←1↓⍤1⌽∘({⍵⌷p}it≡)⍤0⊢(⍳≢p)~p
c←1+↑+/1 2×(⊂⍳≢p)∊¨∊¨¯1 1↓¨¨↓({⊂⍵~⍺})⌸p
' │├┐┬─'[1+cc+5×cc<({(⍺∨⍥×⍵)∧⍺<3}/∘⌽¨,\)⍤1⊢cc×2 3∊⍨ cc←,⍤¯1⊢0,⍤1 0⊢(0,c)[1+t]]
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment