Using ideas from the solutions so far, this is the version I currently
prefer:
getidx=: 1 >:@+:@i.~ =/"1@(_2 ]\ ])
splitDigraph=: ({. , 'X' , }.)~ getidx
dedouble=: dtb@:(>:@# {. splitDigraph)^:_
(soln1;soln2;soln3;soln4;soln5) -: dedouble&.>
data1;data2;data3;data4;data5
1
On Fri, Feb 5, 2021 at 5:32 PM Ben Gorte <[email protected]> wrote:
> Ah yes, better!
> Works on the five test cases :-)
>
>
> On Thu, 4 Feb 2021 at 23:13, Ric Sherlock <[email protected]> wrote:
>
> > Thanks, yes that works!
> > Here's a slightly simpler take on the same approach:
> > {{ ((+ idx&<)#y) {. y ({. ,'X', }.)~ idx =. >:+: 1 i.~ (=/"1) _2 ]\y
> }}^:_
> >
> > On Thu, Feb 4, 2021 at 8:48 PM Ben Gorte <[email protected]> wrote:
> >
> > > Think I've got it:
> > >
> > > data1 =: 'THEEQUICKBROWFFOX'
> > >
> > > data2 =: 'THEEQUICKBROWFOOX'
> > >
> > > {{ ((+where&<)#y) {. ({.&y ,'X', }.&y) where =. >: +: 1 i.~ _2 =/\
> > > y,'XX',(2|#y){.'X' }}^:_ data1
> > >
> > > THEXEQUICKBROWFXFOX
> > >
> > > {{ ((+where&<)#y) {. ({.&y ,'X', }.&y) where =. >: +: 1 i.~ _2 =/\
> > > y,'XX',(2|#y){.'X' }}^:_ data2
> > >
> > > THEXEQUICKBROWFOOX
> > >
> > >
> > > Ben
> > >
> > > On Thu, 4 Feb 2021 at 17:02, Hauke Rehr <[email protected]>
> wrote:
> > >
> > > > I show this only as a different way to deal with it.
> > > > There’s much space for improvement.
> > > > It works correctly with the two examples you gave.
> > > >
> > > > data1 =: 'THEEQUICKBROWFFOX'
> > > > data2 =: 'THEEQUICKBROWFOOX'
> > > > res1 =: 'THEXEQUICKBROWFXFOX'
> > > > res2 =: 'THEXEQUICKBROWFOOX'
> > > >
> > > > s =: 2 : 0
> > > > a =. 0 -.~ (* i.@#) m=y
> > > > n a} y
> > > > )
> > > >
> > > > NB. ugly, repetitive junk solution
> > > > res1 = ('?'s'X') (] (>:@(+ i.@#)@(2 I.@:=]) (([e.~i.@#@]){"0
> 1'X',.~])
> > > > #~) (i.@# >:@e. (* -.@(- (0 1 $~ $))@(2&|))@(-.&0@(*
> > > > i.@#))@(2&(=/@|:@]\)))) ('X's'?') data1
> > > > res2 = ('?'s'X') (] (>:@(+ i.@#)@(2 I.@:=]) (([e.~i.@#@]){"0
> 1'X',.~])
> > > > #~) (i.@# >:@e. (* -.@(- (0 1 $~ $))@(2&|))@(-.&0@(*
> > > > i.@#))@(2&(=/@|:@]\)))) ('X's'?') data2
> > > >
> > > >
> > > > Am 04.02.21 um 05:02 schrieb Ric Sherlock:
> > > > > I need to separate any digraphs in a string, that consist of 2
> > letters
> > > > the
> > > > > same, by inserting an 'X' between them.
> > > > > _2 ]\ 'THEEQUICKBROWFFOX'
> > > > > TH
> > > > > EE
> > > > > QU
> > > > > IC
> > > > > KB
> > > > > RO
> > > > > WF
> > > > > FO
> > > > > X
> > > > >
> > > > > 'EE' is a digraph that needs an 'X' inserted. Doing so will result
> > in:
> > > > >
> > > > > TH
> > > > > EX
> > > > > EQ
> > > > > UI
> > > > > CK
> > > > > BR
> > > > > OW
> > > > > FF
> > > > > OX
> > > > >
> > > > > So now we also need to separate the 'FF' digraph.
> > > > >
> > > > > I want to define a verb "dedouble" that will process a string so:
> > > > > dedouble 'THEEQUICKBROWFFOX'
> > > > > THEXEQUICKBROWFXFOX
> > > > > But:
> > > > > dedouble 'THEEQUICKBROWFOOX'
> > > > > THEXEQUICKBROWFOOX
> > > > >
> > > > > I have implemented a solution at
> > > > > https://rosettacode.org/wiki/Playfair_cipher#J but am interested
> in
> > > > > alternative implementations.
> > > > >
> > ----------------------------------------------------------------------
> > > > > For information about J forums see
> > http://www.jsoftware.com/forums.htm
> > > > >
> > > >
> > > > --
> > > > ----------------------
> > > > mail written using NEO
> > > > neo-layout.org
> > > >
> > > >
> ----------------------------------------------------------------------
> > > > For information about J forums see
> http://www.jsoftware.com/forums.htm
> > > >
> > > ----------------------------------------------------------------------
> > > For information about J forums see http://www.jsoftware.com/forums.htm
> > >
> > ----------------------------------------------------------------------
> > For information about J forums see http://www.jsoftware.com/forums.htm
> >
> ----------------------------------------------------------------------
> For information about J forums see http://www.jsoftware.com/forums.htm
>
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
