XP is just a number PerlMonks

### Cumulative Guessing JAPH

by kschwab (Vicar)
 on Jan 07, 2021 at 00:31 UTC Need Help??

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 (Cardinal) 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!

Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: obfuscated [id://11126487]
Approved by kcott
Front-paged by haukex
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others surveying the Monastery: (2)
As of 2022-12-03 03:05 GMT
Sections?
Information?
Find Nodes?
Leftovers?
Voting Booth?
My favourite new Perl feature (in 2022) ...

Results (43 votes). Check out past polls.

Notices?