ss←{⎕ML←1                           ⍝ Approx alternative to xutils' ss.
    srce find repl←,¨⍵              ⍝ source, find and replace vectors.
    maskfindsrce                  ⍝ mask of matching strings.
    prem(find)↑1                  ⍝ leading pre-mask.
    cvex(prem,mask)find,srce      ⍝ partitioned at find points.
    (repl)↓∊{repl,(find)↓⍵}¨cvex  ⍝ collected with replacements.
}
code_colours

test script

Back to: notes

Back to: Workspaces