diff options
Diffstat (limited to 'src/r1.bqn')
| -rw-r--r-- | src/r1.bqn | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -293,7 +293,8 @@ _multiAxis←{ Test∘⊣◶{ # Multiple axes er ! 1≥=𝕨 ⋄ TT 𝕨 l←≠𝕨↩⥊𝕨 ⋄ el ! l≤=𝕩 - j←<0 ⋄ 𝕨 { j↩(×⟜𝕩⌜j)+⌜𝕨Ind𝕩 }¨ p←l↑s←≢𝕩 + i←𝕨Ind¨p←l↑s←≢𝕩 + j←i (0<1×´≠∘⥊⌜i)◶⟨{⟨⟩⥊˜Join1≢⌜𝕨}, {j←<0⋄𝕨{j↩(j×⌜<𝕩)+⌜𝕨}¨𝕩⋄j}⟩ p j ⊏ (⟨1×´p⟩∾l↓s)⥊𝕩 }‿{ es ! 1≤=𝕩 |
