Beefy Boxes and Bandwidth Generously Provided by pair Networks
P is for Practical
 
PerlMonks  

When One Golfer Speculates On What Another Is Doing...

by eyepopslikeamosquito (Canon)
on Aug 01, 2009 at 03:07 UTC ( #785052=perlmeditation: print w/ replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    <?fscanf(STDIN,'%d:%d',$h,$m);$s=array_combine(str_split('0b1a29384756
    +'),array_fill(0,12,'o'));$s[$h=dechex($h>11?$h-12:$h)]='h';$s[$m=dech
    +ex($m>59?0:$m/5)]=$h==$m?'x':'m';vprintf("%9s
    %5s%8s
    ...
    %5s%8s
    %9s",$s)
    ?>
    
  2. or download this
    <>=~/:/;@y=(o)x12;$y[$`%12]=h;$y[$'/5]=~y/oh/mx/;
    printf'%9s
    ...
    
    %5s%8s
    %9s',map{$y[$_],$y[11-$_]}0..5
    
  3. or download this
    # test.pl
    use strict;
    ...
        $got eq $r->[1] or die "expected:\n$r->[1]got:\n$got";
    }
    print "successful\n";
    
  4. or download this
    perl test.pl mysolution.pl
    

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: perlmeditation [id://785052]
Approved by planetscape
Front-paged by planetscape
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others meditating upon the Monastery: (3)
As of 2014-09-24 03:17 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    How do you remember the number of days in each month?











    Results (244 votes), past polls