diff options
Diffstat (limited to 'spec/reference.bqn')
| -rw-r--r-- | spec/reference.bqn | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/spec/reference.bqn b/spec/reference.bqn index 40cbefb9..288fdc39 100644 --- a/spec/reference.bqn +++ b/spec/reference.bqn @@ -242,11 +242,15 @@ _scan←{ ! IsArray 𝕩 ! 1≤=𝕩 F←𝔽 - (0<≠∘⥊)◶⊢‿{ - r←⥊𝕩 ⋄ l←≠𝕩 ⋄ c←×´1 Cell 𝕩 - {r↩r𝕩_amend˜𝕨F○(⊑⟜r)𝕩}⟜(c⊸+)¨↕c-˜≠r + cs←1 Cell 𝕩 + ! (cs≡≢)𝕨 + l←≠r←⥊𝕩 + 𝕨 (0<l)◶⊢‿{ + c←×´cs + {r↩≥⟜c◶⟨⊑⟜(⥊𝕩)⊸F⋄⊢⟩⟜(⊑⟜r)¨↕l}𝕨 + {r↩r𝕩_amend˜𝕨F○(⊑⟜r)𝕩}⟜(c⊸+)¨↕l-c (≢𝕩)⥊r - }𝕩 + } 𝕩 } _repeat_←{ n←𝕨𝔾𝕩 |