3 lines
99 B
APL
3 lines
99 B
APL
|
gen ← (⊂+?+)⍨ ⌷ ('[]'/⍨⊢)
|
|||
|
|
bal ← (((|≡⊢)+\) ∧ 0=+/)(+⌿1 ¯1×[1]'[]'∘.=⊢)
|