nodup is a verb which contracts series of occurences of x in y; it removes duplication.
t=: 0 : 0 abc def jkl ) nodup=:] #~ 1, 2 *: /\ [=] LF nodup t abc def jkl '!' nodup 'foo!!!bar!!!!foo bar!' foo!bar!foo bar! I feel like there should be an easier way to do this. ---------------------------------------------------------------------- For information about J forums see http://www.jsoftware.com/forums.htm
