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