diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/r1.bqn | 1 |
1 files changed, 1 insertions, 0 deletions
@@ -416,6 +416,7 @@ under←{ ss←↕0 ⋄ Wr←{ss∾↩⟨𝕩⟩⋄𝕩} ⋄ _rd←{i←𝕗⋄{𝕩⋄(i+↩1)⊢i⊑ss}} _r_ ← { Min←<◶⊢‿⊣ + 𝕘 {𝕏○({𝕩_s}⍟(0 _rd))}⍟(3≤Type)↩ k←𝕨(⋈○(=2⊸⊑⍟(0 _rd)) (0≤⊢)◶⟨Min⟜-,⊣-Min⟩¨ 𝔾_ranks)𝕩 c←0<+´ss⋄Enc←0 _rd◶⟨EncRank,{f‿a‿i‿q←𝕩⋄{f‿a‿𝕩‿q _s}⌜𝕨 EncRank i}⟩ c◶⟨Merge,{𝕏⟨Merge,2‿1⟩}∘Nest⟩ ((0⊑k)Enc𝕨) 𝔽_each ((1-˜≠)⊸⊑k)Enc𝕩 |
