Select Code to Download

<?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)
?>

<>=~/:/;@y=(o)x12;$y[$`%12]=h;$y[$'/5]=~y/oh/mx/;
printf'%9s
...

%5s%8s
%9s',map{$y[$_],$y[11-$_]}0..5

# test.pl
use strict;
...
    $got eq $r->[1] or die "expected:\n$r->[1]got:\n$got";
}
print "successful\n";

perl test.pl mysolution.pl