subvec←{⎕IO←1           ⍝ Is ⍺ a subvector of ⍵?
    0∊⍴⍺:1              ⍝ null ⍺: success.
    0∊⍴⍵:0              ⍝ null ⍵: failure.
    (1↓⍺)∇(⍵⍳1↑⍺)↓⍵     ⍝ otherwise, check remaining items.
}

code_colours

test script

Back to: notes

Back to: Workspaces