print$"x(318%$_/9),(($_-$`)%12?o:x)&($_%12^$'/5?o:'}'),$/x($_/85)for unpack<>!~/:/.C12,'XXXXXXXXXXXX' #### $c[$_*=.52,5.5-4.7*cos][8+7.4*sin]=$`%12-$_?$_^$'/5?o:'m':$_^$'/5?h:x for<>!~/:/..11;print"@$_ "for@c #### $`%12-$_?$_^$'/5?o:'m':$_^$'/5?h:x #### 'ohxm'[-(i==m)^(i==h)] #### 'ohxm'[i==m::2][i==h] #### "Dear $name" # Perl and PHP "Dear %s" % expr # Python and Ruby % printf-like operator "Dear {0}".format(expr) # Python format string method "Dear "+`expr` # Python backticks (TMTOWTDI) "Dear #{expr}" # Ruby string interpolation "Dear @{[expr]}" # Perl "Baby Cart" string interpolation "Dear {expr}" # Perl 6 version of Baby Cart (I think) #### printf"%@{[.1*vec'XXXXXXXXXXXX',$_,8]}s",($_^$`%12?g:p)&($_^$'/5?g:u)|"H "for map{$_,11-$_}<>!~/:/..5 #### "X" * 5 Python "X" * 5 Ruby "X" x 5 Perl str_repeat("X", 5) PHP #### 5 * "X" also produces "XXXXX" in Python! TMTOWTDI! :) 5 * "X" ... but not in Ruby (won't compile: type error) 5 x "X" ... or Perl (produces empty string) #### $"x(318%$_/9) Perl " "*(318%i/9) Ruby 318%i/9*" " Python #### r=raw_input() for c in'XXXXXXXXXXXX':i=ord(c);print~60495%i/4*" "+'hxmo'[(i%12==int(r[3:])/5)^(i-int(r[:2]))%-12/42]+i/42*"\n", #### r=raw_input() for c in'XXXXXXXXXXXX':i=ord(c);print~60495%i/4*" "+'ohxm'[-(i%12==int(r[3:])/5)^1>>(i-int(r[:2]))%12]+i/42*"\n", #### print~60495%i/4 print 318%i/9 #### r=*$<;'XXXXXXXXXXXX'.each_byte{|i|$><<"%#{327%i/9}c"%'ohmx'[1>>(i-r.to_i)%12^2&2<##