'nother P(erl|ython) Hacker

[BooK]

As you can see, this is not obfuscated and the game is quite stupid. This is in fact my try to make Perlists and Pythonists friends again.

Juste note that the Perl code could be way shorter, whereas the Python one could not. :-)

######################################################################
# Python                       # Perl                                #
######################################################################
q = -1 ;                       #=; $n = int rand 1001; print '? ';  q#
import whrandom ; i = 1        #;  while(<>){                       q#
n = whrandom.randint(0,1000)   #;      $i++;                        q#
while q != n :                 #;      last if $_ == $n;            q#
  q = int(raw_input('? '))     #;      print 'Too ';                q#
  if q == n :                  #;      print ($_>$n?'big':'small'); q#
    break                      #;      print "\n? ";                q#
  print 'Too',                 #;  }                                q#
  if q > n :                   #;  print "You won in $i tries\n";   q;
    print 'big'                #
  else:                        #
    print 'small'              #
  i = i + 1                    #
print 'You won in', i, 'tries' #;

You might as well imagine this as documenting Python code in Perl, and Perl code in Python, for beginners in any of the two languages.

[ar0n]

i'm too lazy to play the game myself:

;$*=1000;$@=int rand$*;sub _{print@_}$%=
$*/2;for(;$%!=$@;$-++){;($%>$@)?$*=$%:$:
=$%;$%=int(($%>$@)?$%-(($*-$:)/2):$%+($*
-$:)/2);}_("Answer is $% ($- tries)\n");


-- ar0n (lazy bastard)

[mt2k]

My version:

$n=int(rand(1001));print'>';
while(<>){++$i;last if$_==$n;$_>$n?$n--:++$n;print'Too ',$_>$n?'big':'
+small',"\n>";}
print"Won in $i tries\n";