path: root/challenge-082/richard-park/apl/InterleaveString.aplf

 InterleaveString←{
⍝ Can strings ⍵ be interleaved to form string ⍺?
     MM←{((≢⍺)⍴⍋⍋⍺⍳⍺⍪⍵)∊(≢⍵)⍴⍋⍋⍺⍳⍵⍪⍺}   ⍝ Multiset membership
     (∧/⍺ MM∊⍵):⍵(∧/≡⍥,¨)(⍺⌿⍨⊢)¨⍺∘MM¨⍵
     0
 }