if spaces are not allowed, then without boxing:
(' ' -.~ ,)@:(_2&(,`([,'X',])@.=/\)) 'THEEQUICKBROWFOOX'
THEXEQUICKBROWFOXOX
On Thursday, February 4, 2021, 03:57:44 a.m. EST, Hauke Rehr
<[email protected]> wrote:
doesn’t all that boxing/unboxing and cutting/gluing hurt?
maybe I have to stop thinking about improvements that
actually aren’t improvements.
Nice readable approach!
Am 04.02.21 um 09:51 schrieb 'Pascal Jasmin' via Programming:
> assuming you want all dedoubled on a pass and not just first match,
>
>
>
> ;@:(_2&(,`([,'X',])@.=/each@<\))^:_ 'THEEQUICKBROWFFOOOX'
>
> THEXEQUICKBROWFXFOXOXOX
>
>
> ;@:(_2&(,`([,'X',])@.=/each@<\)) 'THEEQUICKBROWFFOOOX'
>
> THEXEQUICKBROWFFOOXOX
>
>
>
>
> On Wednesday, February 3, 2021, 11:02:49 p.m. EST, Ric Sherlock
> <[email protected]> wrote:
>
>
>
>
>
> 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
> ----------------------------------------------------------------------
> 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
