13
edits
(Rip out the (wrong) model for unique.) |
m (ditto) |
||
Line 89: | Line 89: | ||
<syntaxhighlight lang=apl> | <syntaxhighlight lang=apl> | ||
m ← {0∊⍴⍵: | m ← {0∊⍴⍵:⍵⍴⍨≠∘0@⎕io⊢⍴⍵ ⋄ ↑1/⊃(⊣,⊢⊢⍤/⍨(∧/∘.≢⍨))/⊂¨⊂⍤¯1⊢⍵} | ||
</syntaxhighlight> | </syntaxhighlight> | ||
{{Works in|[[Dyalog APL]]}} | {{Works in|[[Dyalog APL]]}} |
edits