Re^3: My Second, first japh

I played w/ the whitespace some more, and also did a neat thing with the $Perl variable. Here's the code:

 
$Just = $0; open JAPH,$Just; @another = split /\s/, <JAPH>; $Perl = " 
+";  $hacker = ","; sub Just { substr shift , 1 };
$Perl = join $Perl, Just ($another[0]), Just ($another[5]), Just ($ano
+ther[10]), Just ($another[15]); print $Perl . $hacker,
[download]

I set the $Perl variable to a whitespace, which makes it so you can fit the whole thing on just two lines. Then I played with the whitespace enough so that the words for "Just another Perl Hacker," are on spaces of multiple 5. Since now its a simple loop. Here's a shorter version:

$Just = $0; open JAPH,$Just; @another = split /\s/, <JAPH>; $Perl = " 
+";  $hacker =",";sub Just {substr shift,1};
for($hack = 15; $hack > -1 ; $hack -= 5){$hacker = Just($another[$hack
+]) . $Perl . $hacker};$hacker =~ s/\s,/,/s;
print Just $Perl.$hacker,
[download]

254 characters. not bad, right? I think thats in the canonical limits.
Japhs are fun :-)
~Joe

Comment on Re^3: My Second, first japh Select or Download Code

Replies are listed 'Best First'.
Re^4: My Second, first japh by starbolin (Hermit) on Aug 11, 2006 at 19:39 UTC
Actually, on my previous reply where I said $scalar I should have said @array. An array is just a list. You've done some good work there. Again, I've made some changes. Not that they are better, it's just a matter of taste. Using an array slice you don't need the loop. Of course the loop may be more obfuscating. It all depends on whether you want size or complexity. `$ Just =$0;open JAPH, $Just;@ another =split /\s/, <JAPH>; $ Perl =" " +; $ hacker =","; sub Just{}; $hacker=join' ',@another[1,5,10,15],$hacker; print Just.$Perl.$hacker,` [download] Slurp the whole thing in so we can break the first line wherever we want and make a little postcard. `$/='';$ Just =$0;open JAPH, $Just;@ another =split /\s+/s, <JAPH>; $ Perl = " "; $ hacker =","; sub Just{} ;$hacker =join' ', @another[1, 5,10,15] , $hacker; print Just.$Perl.$hacker,` [download] 206 characters s//----->\t/;$~="JAPH";s//\r<$~~/;{s\|~$~-\|-~$~\|\|\|s \|-$~~\|$~~-\|\|\|s,<$~~,<~$~,,s,~$~>,$~~>,, $\|=1,select$,,$,,$,,1e-1;print;redo}	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^4: My Second, first japh
by starbolin (Hermit) on Aug 11, 2006 at 19:39 UTC

Actually, on my previous reply where I said $scalar I should have said @array. An array is just a list.

You've done some good work there. Again, I've made some changes. Not that they are better, it's just a matter of taste.

Using an array slice you don't need the loop. Of course the loop may be more obfuscating. It all depends on whether you want size or complexity.

$ Just =$0;open JAPH, $Just;@ another =split /\s/, <JAPH>; $ Perl =" "
+;  $ hacker =","; 
sub Just{}; $hacker=join' ',@another[1,5,10,15],$hacker;
print Just.$Perl.$hacker,
[download]

$/='';$  Just =$0;open  JAPH,  $Just;@  another   =split
/\s+/s,  <JAPH>; $ Perl = " "; $ hacker =","; sub Just{}
;$hacker =join' ', @another[1, 5,10,15] , $hacker; print
                  Just.$Perl.$hacker,
[download]

s//----->\t/;$~="JAPH";s//\r<$~~/;{s|~$~-|-~$~|||s |-$~~|$~~-|||s,<$~~,<~$~,,s,~$~>,$~~>,, $|=1,select$,,$,,$,,1e-1;print;redo}

[reply]
[d/l]
[select]