Beefy Boxes and Bandwidth Generously Provided by pair Networks vroom
The stupid question is the question not asked
 
PerlMonks  

Re: The golf course looks great, my swing feels good, I like my chances (Part VI)

by eyepopslikeamosquito (Canon)
on Jan 10, 2010 at 18:33 UTC ( #816630=note: print w/ replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    128  ToastyX  PHP  Failed
    130  ToastyX  PHP  Passed
    127  ToastyX  PHP  Failed
    129  ToastyX  PHP  Failed
    129  ToastyX  PHP  Passed
    
  2. or download this
    <?for($r=fgets(STDIN).~XXXXXXXXXXXX;11^printf(~X..1*ord($r[6+$h]).s,($
    +h^$r%12?g:p)&($h^"$r[3]$r[4]"/5?g:u)|~XXX);$h=12-$h-$d^=1);
    
  3. or download this
    for my $i (48..58) {
       printf " %08b  (ord %3d %c)\n", $i, $i, $i;
    }
    
  4. or download this
      00110000   (ord 48, "0" character)
      00110001   (ord 49, "1" character)
    ...
      00111000   (ord 56, "8" character)
      00111001   (ord 57, "9" character)
      00111010   (ord 58, ":" character)
    
  5. or download this
         00111010  (ord  58, ":" character)
      &  10100000  (ord 160)
      =  00100000  (ord 32, space character)
    
  6. or download this
         00111001  (ord  57, "9" character)
      &  11111111  (ord 255)
      =  00111001  (ord  57, "9" character)
    
  7. or download this
    $r&XXXXX
    
  8. or download this
    "$r[3]$r[4]"
    substr($r,3)
    ($r&XXXXX)
    
  9. or download this
    <?for($t=fgets(STDIN);23^$x=strpos(~GGGGGGGGGGGGGGGGGGGGGGGG,chr($i++)
    +);)echo($x--?$x^($t&XXXXX)/5?o:B:S)&($x^$t%12?$x<12?o:N:x);
    
  10. or download this
    <?for($c=S&$t=fgets(STDIN);$x-22;$c[ord(~$l[$x])]=($x^$t%12?$x<12?o:N:
    +x)&($x++^($t&XXXXX)/5?o:B))$l=GGGGGGGGGGGGGGGGGGGGGG?><?=$c;
    
  11. or download this
    $c[$_*=.52,5.5-4.7*cos][8+7.4*sin]=($_^$`%12?o:x)&($_^$'/5?o:'}')for<>
    +!~/:/..11;print"@$_
    "for@c
    
  12. or download this
    $x = "A";
    $x[5] = "Z";
    echo "x='$x'\n";
    
  13. or download this
    x='A    Z'
    
  14. or download this
    x = "A"
    x[5] = "Z"
    print "x='#{x}'\n"
    
  15. or download this
    `[]=': index 5 out of string (IndexError)
    
  16. or download this
    $x = "A";
    substr($x,5,1) = "Z";
    print "x='$x'\n";
    
  17. or download this
    substr outside of string
    
  18. or download this
    vec($\,vec('GGGGGGGGGGGGGGGGGGGGGG',$_,8),8)=($_^$`%12?$_<12?111:10:12
    +0)&($_^$'/5?111:125)for<>!~/:/..21;$\=~y/\0/ /;print
    
  19. or download this
    use strict;
    use warnings;
    ...
       close $fh;
       warn "created $progfile, ", length($prog), " bytes\n";
    }
    

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://816630]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others wandering the Monastery: (4)
As of 2014-04-18 04:51 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    April first is:







    Results (461 votes), past polls