Select Code to Download

        o
    o       o
...

    m       o
        o

        o
    o       x
...

    o       o
        o

<>=~/:/;
$h=$`%12;
...

%5s%8s
%9s',map$_^$h?$_^$m?o:'m':$h^$m?h:x,0,11,1,10,2,9,3,8,4,7,5,6

$h=$`%12;   # converts 0..23 hours   to 0..11 clock face mark
$m=$'/5;    # converts 0..59 minutes to 0..11 clock face mark

        0
   11       1
...

    7       5
        6

<>=~/:/;
$h=$`%12;
...

%8$5s%8s
%9s',map$_^$h?$_^$m?o:'m':$h^$m?h:x,0..11

$`%12-$_?$_^$'/5?o:'m':$_^$'/5?h:x

($_^$h?o:x)&($_^$m?o:'}')
H|($_^$h?g:p)&($_^$m?g:u)

<>=~/:/;
$h=$`%12;
...

%8$5s%8s
%9s',map{($_^$h?o:x)&($_^$m?o:'}')}0..11

printf'%9s
%12$5s%8s
...

%8$5s%8s
%9s',map{($_^$`%12?o:x)&($_^$'/5?o:'}')}<>!~/:/..11

map{$_,11-$_}0..5

map{$_,11-$_}<>!~/:/..5

$:="s

...
%";printf"%9s
%5s%8$:s%16$:5s%8s
%9s",map{map{($_^$`%12?o:x)&($_^$'/5?o:'}')}$_,11-$_}<>!~/:/..5

printf "%10.2s", "o\n\n";
printf "%5.1s",  "o\n\n";
...
printf "%5.1s",  "o\n\n";
printf "%9.2s",  "o\n\n";
printf "%10.2s", "o\n\n";

        o
    o       o
...

    o       o
        o

102,51,103,21,163,11,183,21,163,51,92,102

printf"%@{[.1*vec'XXXXXXXXXXXX',$_,8]}s",($_^$`%12?g:p)&($_^$'/5?g:u)|
+"H

"for map{$_,11-$_}<>!~/:/..5

print$"x(318%$_/9),(($_-$`)%12?o:x)&($_%12^$'/5?o:'}'),$/x($_/85)for u
+npack<>!~/:/.C12,'XXXXXXXXXXXX'

  1st  101  eyepopslikeamosquito  Perl
  2nd  102  ySas                  Perl
...
  9th  116  smokemachine          Perl
  10th 116  ksk                   Ruby
  11th 118  Jasper                Perl

$z[ 0][ 8] = 'o';
$z[ 1][11] = 'o';
...
$z[ 3][ 1] = 'o';
$z[ 1][ 4] = 'o';
print"@$_\n"for@z;

z=[]
(z[ 0]||=[])[ 8] = 'o'
...
(z[ 3]||=[])[ 1] = 'o'
(z[ 1]||=[])[ 4] = 'o'
puts z.map{|i|(i||[]).join" "}

print"@$_\n"for@z;

sub k{vec'XXXXXXXXXXXX',$i++,4}$c[k][k]=($_^$`%12?o:x)&($_^$'/5?o:'}')
+for<>!~/:/..11;print"@$_
"for@c

$c[$_%16][$_>>4]=($i^$`%12?o:x)&($i++^$'/5?o:'}')for unpack<>!~/:/.C12
+,'XXXXXXXXXXXX';print"@$_
"for@c

x = a + r cos t
y = b + r sin t

$c[$_*=.52,5.5-4.7*cos][8+7.4*sin]=($_^$`%12?o:x)&($_^$'/5?o:'}')for<>
+!~/:/..11;print"@$_
"for@c

$c[$_*=.52,5.5-4.7*cos][8+7.4*sin]=$`%12-$_?$_^$'/5?o:'m':$_^$'/5?h:x
for<>!~/:/..11;print"@$_
"for@c

print$"x(318%$_/9),(($_-$`)%12?o:x)&($_%12^$'/5?o:'}'),$/x($_/85)for u
+npack<>!~/:/.C12,'XXXXXXXXXXXX'

  0th   96  The Odd Couple (eyepops + Jasper)  Perl
  1st  101  eyepopslikeamosquito               Perl
...
  8th  115  0xF                                Perl
  9th  116  edenc                              Perl
 10th  116  smokemachine                       Perl

  0th   96  The Odd Couple (eyepops + Jasper)
  1st  101  eyepopslikeamosquito
...
 38th  159  amorette
 39th  159  jshin
 40th  159  spike

  1st  112  flagitious
  2nd  112  eyepopslikeamosquito
...
  8th  130  yvl
  9th  133  tpope
 10th  140  m-satyr

  1st  127  eyepopslikeamosquito
  2nd  130  hallvabo
...
  8th  146  logan
  9th  149  Mark Byers
 10th  157  hendrik

  1st 129  eyepopslikeamosquito
  2nd 133  ToastyX
...
  8th 191  zhato
  9th 199  Kloopy
 10th 208  phoe