6 lines
133 B
Text
6 lines
133 B
Text
|
lcs=: dyad define
|
||
|
|
|.x{~ 0{"1 cullOne^:_ (\: +/"1)(\:{."1) 4$.$. x =/ y
|
||
|
|
)
|
||
|
|
|
||
|
|
cullOne=: ({~[: <@<@< [: (i. 0:)1,[: *./[: |: 2>/\]) :: ]
|