Here's another approach: cless=: ,~ #~ i.@#@,~ e. [: ; (0,~2*#/.~@]) }.&.> (]i.,~) </. i.@#@,~
'abcabbe'cless'babe' cab -- Raul On Sun, Jan 17, 2016 at 11:19 PM, June Kim (김창준) <[email protected]> wrote: > Hello > > I am looking for a verb(cless) that does something similar to Less(-.) but > counting the elimination, for example: > > 'abcabbe' -. 'abbe' > > c > > 'abcabbe' cless 'babe' NB. get rid of y letters counting the occurrences > > 'cab' > > > It is easier to define such a verb recursively: 'abcabbe' cless 'babe' > equald to 'e' cless~ 'b' cless~ 'a' cless~ 'b' cless~ 'abcabbe' > > > I think recursive definition isn't a usual J-ic approach. > > > How would you implement such a verb elegantly(with which I mean short)? > > > June > ---------------------------------------------------------------------- > For information about J forums see http://www.jsoftware.com/forums.htm ---------------------------------------------------------------------- For information about J forums see http://www.jsoftware.com/forums.htm
