Cumulative Guessing JAPH

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$/
[download]

Comment on Cumulative Guessing JAPH Download Code

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]`	[reply] [d/l]
Re^2: Cumulative Guessing JAPH by kschwab (Vicar) on Jan 12, 2021 at 03:31 UTC
That's really cool. Now I'm trapped making some variant of it that's worth posting!	[reply]
Re: Cumulative Guessing JAPH by jszinger (Scribe) on Jan 07, 2021 at 18:18 UTC
This is really fun to watch and was fun to decipher. Why would this take a long time on an old PC? <Reveal this spoiler or all in this thread>	[reply]
Re^2: Cumulative Guessing JAPH by kschwab (Vicar) on Jan 07, 2021 at 19:12 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.	[reply]
Re: Cumulative Guessing JAPH by stevieb (Canon) on Jan 07, 2021 at 18:49 UTC
This is superbly awesome!	[reply]


Keep It Simple, Stupid
	PerlMonks