Hey Skip, My tacit equivalents, although not exactly equivalent since the tacit can be extended to longer strings.
a#~-.(<'')=a=.,(>:i.5)<\'abcde' NB. Skip's version ┌─┬─┬─┬─┬─┬──┬──┬──┬──┬───┬───┬───┬────┬────┬─────┐ │a│b│c│d│e│ab│bc│cd│de│abc│bcd│cde│abcd│bcde│abcde│ └─┴─┴─┴─┴─┴──┴──┴──┴──┴───┴───┴───┴────┴────┴─────┘ ((<'') -.~ ])@:(,@:((1+i.@:#)<\ ]))'abcde' NB. tacit version ┌─┬─┬─┬─┬─┬──┬──┬──┬──┬───┬───┬───┬────┬────┬─────┐ │a│b│c│d│e│ab│bc│cd│de│abc│bcd│cde│abcd│bcde│abcde│ └─┴─┴─┴─┴─┴──┴──┴──┴──┴───┴───┴───┴────┴────┴─────┘ ((<'') -.~ ])@:(,@:((1+i.@:#)<\ ]))'abcdef' NB. six character string example ┌─┬─┬─┬─┬─┬─┬──┬──┬──┬──┬──┬───┬───┬───┬───┬────┬────┬────┬─────┬─────┬──────┐ │a│b│c│d│e│f│ab│bc│cd│de│ef│abc│bcd│cde│def│abcd│bcde│cdef│abcde│bcdef│abcdef│ └─┴─┴─┴─┴─┴─┴──┴──┴──┴──┴──┴───┴───┴───┴───┴────┴────┴────┴─────┴─────┴──────┘ a: -.~ ,(>:i.5)<\'abcde' NB. Ric's version ┌─┬─┬─┬─┬─┬──┬──┬──┬──┬───┬───┬───┬────┬────┬─────┐ │a│b│c│d│e│ab│bc│cd│de│abc│bcd│cde│abcd│bcde│abcde│ └─┴─┴─┴─┴─┴──┴──┴──┴──┴───┴───┴───┴────┴────┴─────┘ (a: -.~ ,@:((>:@:i.@:#) <\ ]))'abcde' NB. tacit version ┌─┬─┬─┬─┬─┬──┬──┬──┬──┬───┬───┬───┬────┬────┬─────┐ │a│b│c│d│e│ab│bc│cd│de│abc│bcd│cde│abcd│bcde│abcde│ └─┴─┴─┴─┴─┴──┴──┴──┴──┴───┴───┴───┴────┴────┴─────┘ (a: -.~ ,@:((>:@:i.@:#) <\ ]))'abcdef' NB. six character string example ┌─┬─┬─┬─┬─┬─┬──┬──┬──┬──┬──┬───┬───┬───┬───┬────┬────┬────┬─────┬─────┬──────┐ │a│b│c│d│e│f│ab│bc│cd│de│ef│abc│bcd│cde│def│abcd│bcde│cdef│abcde│bcdef│abcdef│ └─┴─┴─┴─┴─┴─┴──┴──┴──┴──┴──┴───┴───┴───┴───┴────┴────┴────┴─────┴─────┴──────┘ Cheers, bob > On Oct 24, 2019, at 12:59 PM, Skip Cave <s...@caveconsulting.com> wrote: > > I'm sure this can be reduced by J experts in implicit coding. ---------------------------------------------------------------------- For information about J forums see http://www.jsoftware.com/forums.htm
