May take a while on an old PC.

Also see Progressive JAPH by Athanasius.

```\$|++,\$a=\$b='Ktru!`onuids!Qdsm!i`bjds-',\$==length\$b,\$b^="\01"x\$=,
@_=map{chr}(32..126);while(\$=>((\$a^\$b)=~tr/\x0//)){for(sort{rand
>.5}1..\$=){substr(\$a,\$_-\$|,1)ne(substr(\$b,\$_-1,1))and substr(\$a,
\$_-\$|,1)=@_[rand@_],print"\r",\$a;select(\$,,\$,,\$,,.001)}};print\$/

Replies are listed 'Best First'.
Re: Cumulative Guessing JAPH
by choroba (Archbishop) on Jan 07, 2021 at 09:09 UTC
Cool! Also check Pumping JAPH :-)
map{substr\$_->[0],\$_->[1]||0,1}[\*||{},3],[[]],[ref qr-1,-,-1],[{}],[sub{}^*ARGV,3]

That's really cool. Now I'm trapped making some variant of it that's worth posting!

Re: Cumulative Guessing JAPH
by jszinger (Scribe) on Jan 07, 2021 at 18:18 UTC

Why would this take a long time on an old PC?

Yes, it's wouldn't. Just encouraging people to wait it out, it can run more than 10 seconds or so.

Re: Cumulative Guessing JAPH
by stevieb (Canon) on Jan 07, 2021 at 18:49 UTC

This is superbly awesome!