Sorry for the noise. You should forget the previous ones I sent: they
are wrong.
It looks like this one is ok:
mtf=:_1&|.@C.
]samples=: '*abcef' |."0 1 ~-i.6
*abcef
f*abce
ef*abc
cef*ab
bcef*a
abcef*
]res=: '*' ([,-.~) "1 samples
*abcef
*fabce
*efabc
*cefab
*bcefa
*abcef
res -: mtf&>/"1 (;~I.@:('*'&=))"1 samples
1
--
Met vriendelijke groet,
@@i = Arie Groeneveld
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
