nodup1=: (,[EMAIL PROTECTED] [EMAIL PROTECTED] ]) # ]


----- Original Message -----
From: June Kim <[EMAIL PROTECTED]>
Date: Sunday, June 24, 2007 8:14 pm
Subject: [Jprogramming] removing duplications

> 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

Reply via email to