first try at JAPH

Be gentle, my first JAPH...

$e="\x00\x00\x00\x09\xE7\x92\x09\x24\x92\x09\x24\x92\x09\xE7\x9E\x49\x
+24\x12\x79\x24\x12\x00\x00\x00";
foreach(split//,unpack("B192",$e)){print $_ == 1?"*":".";$c++;if ($c==
+24){print $/; $c=0;}}
[download]

Greetz
Beatnik
... Quidquid perl dictum sit, altum viditur.

Comment on first try at JAPH Download Code

Replies are listed 'Best First'.
Re: first try at JAPH by tadman (Prior) on May 16, 2001 at 02:33 UTC
Obfuscation 101 would dicate that you would remove $e, inserting the literal string in its place. Also, in the interest of preventing clarity, you should nuke any and all stray spaces, and condense instructions in a GOLF-ish fit of glee. `for(split//,unpack("B192","\x00\x00\x00\x09\xE7\x92\x09\x24\x92\x09\x2 +4\x92\x09\xE7\x9E\x49\x24\x12\x79\x24\x12\x00\x00\x00")) {print$_==1?"*":".";if(++$c==24){print $/; $c=0;}}` [download] I'm sure you can find more improvements, if you look.	[reply] [d/l]
Re: Re: first try at JAPH by Beatnik (Parson) on May 16, 2001 at 09:48 UTC
I considered both issues moments before posting... :-) Greetz Beatnik ... Quidquid perl dictum sit, altum viditur.	[reply]
Re: first try at JAPH by Anonymous Monk on May 16, 2001 at 01:39 UTC
use $_ to make it shorter.. :)	[reply]