it's been a while, as always, ignore if you don't care, but for those that
do:
super simple code, with very gentle obfu.
eval pack"H*",join"",qw"757365205469653a3a48616e646c653b7375622054494548
414e444c457b626c6573735c24697d737562205052494e547b73656c65637424712c2471
2c24712c28247c3d7072696e74292f39666f722073706c69742f2f2c224a75737420416e
6f74686572205065726c204861636b6572227d7469652a4a4150482c2471";print JAPH
the next 2 are a bit cheesy
eval($u=q%$_="357485838432657879847269823280698276327265677569823396";
print"\eceval(\$u=q\x25";s|..|$j=$u;$k=lc chr$&;$j=~s#($k)#\e[7m$k\e[m#g
;print"\e[0;11H$j\x25)\e[5;".(++$o)."H$1$/";select$q,$q,$q,0.2|eg;#!%);
$a{$_}++for split//,$i="*rekcah lrep rehtona tsuj";print"\ec";@a=keys%a;
while($i){if($a[0]eq$w){$j.=$w;$w=0}$w=$w?$w:chop$i;$l=$x=$c=0;$y=3;for(
0..15){$l?$y:$x+=$_>8?-1:1;$c=$l=!$l if!(++$c%($l?5:$_>7?4:5));print
"\e[H$j$/|\e[$y;$x\H$a[$_]".$/[EMAIL PROTECTED],[EMAIL PROTECTED];select$q,$q,$q,.1}
can't remember if i've posted this before:
$b{$_}=$_ for 1..9;while(@c=sort{rand>.5}keys%b)[EMAIL PROTECTED]($c
=!$c)?X:O;$_="123456789147258369159357";s#(.)(.)(.)#$p=$& if$a[$1]eq$a[$
2]&&$a[$1]eq$a[$3]&&$a[$1]#eg;printf"%s%s\e[m%s",$p=~/$_/?"\e[7m":"",$_?
$a[$_]||".":"\ec",$_%3?$":$/for 0..9;$p?exit:select$q,$q,$q,.1}
(i was thinking of putting in some game playing code rather than the
randomness we've got here, but i don't think it'll fit in 4 lines)
my maze sig, in 6 lines for those that missed it before. I've been
hacking for ages trying to get it down, but i'm buggered if i can find any
more spare chars (i also tried doing it with bitwise operators):
$p=1;[EMAIL PROTECTED]&$_>47&$_<751,($p-1)%47&&$m[$p-1]ne"|"?$p-2:0,($p+2)
%47&&$m[$p+1]ne"|"?$p+2:0,$m[$p]ne _?$p+47:0,$m[$p-47]ne _?$p-47:0;$m[$p
]||=_;if($l){print$_?$_%47?$p-$_?$m[$_]:o:"$/|":"\e[H"for 0..750;$p>749?
exit:select$q,$q,$q,[EMAIL PROTECTED](([EMAIL PROTECTED])-$p)**2>4?$m[$r>$p?$p:$r]=$":(
$m[$r>$p?$r-1:$r+1]=_):([EMAIL PROTECTED],redo);[EMAIL
PROTECTED],$v{$p=$r}=$p;if(keys%v>3
(any ideas about getting this smaller? mail me of list!)
and finally in honour of wimbledon - i'm sure peeps might have seen this:
$m=2;$x=$y=4;$n=$|=1;print"\ec";$f.="\e[$_;20H|\n"for(1..11);{printf"$f
\e[$y;$x\H \e[%d;%dH*\e[$l;H \e[%dH\e[7m \e[m\e[$r;40H \e[%d;40H",$y+=$n
*=$y<2|$y>10?-1:1,$x+=$m*=$x<3|$x>37?-1:1,$l+=($c=$l-($m>0?6:$y))?$c>0?-
1:1:0,$r+=($c=$r-($m<0?6:$y))?$c>0?-1:1:0,select$q,$q,$q,0.1;redo}
enjoy
alex
--
$_="just another technical yahoo!";@b=sort{rand cmp [EMAIL PROTECTED]//;$|=
print"\ec";[EMAIL PROTECTED];sub p{print"\e[$_[1];$_[0]H$_[2]"}while($e=$a[$g++]){
$f=0;{redo if$b[$f++]ne$e}$b[$f-1]=0;p($f,1,$");$i=$f-$g<0?1:-1;while($f
!=$g){select$q,$q,$q,p($f,2,$e)/20;p(($f+=$i)-$i,2,$")}p($f,3,$e.$/)}
Anagram (1 of 21)
