Select Code to Download

        o
    o       o
...

    m       o
        o

        o
    o       x
...

    o       o
        o

        0
   11       1
...

    7       5
        6

        1
    0       2
...

    0       1
        0

for my $i ( map {$_,11-$_} 0..5 ) {
   $x = ($i<6)+($i&&$i<5);
   printf "%2d: %d\n", $i, 0+$x;
}

 0: 1
11: 0
...
 7: 0
 5: 1
 6: 0

12345678901234567
($i<6)+($i&&$i<5)
--$|+($i&&$i<5)
--$|+($i<5)-!$i

123456789012345678
substr 122221,$i,1
(1,2,2,2,2,1)[$i]
(1,(2)x4,1)[$i]
vec'XX',$i,2

for ( 0..11 ) {
   printf "%2d: %2d\n", $_, 0+$x;
   $x = 11-$x+$_%2;
}

 0:  0
 1: 11
...
 9:  7
10:  5
11:  6

1234567890
11-$x+$_%2
11-$x+$|--

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

1234567890123456
vec'XXXXXX',$i,4

        8
    4       7
...

    4       7
        8

for my $i ( map {$_,11-$_} 0..5 ) {
   $x = vec'XXXXXX',$i,4;
   printf "%2d: %2d\n", $i, 0+$x;
}

 0:  8
11:  4
...
 7:  4
 5:  7
 6:  8

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

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

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

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

print+($/x($k=vec'AAAAAAAAAAAAAAAAAA',$_,4),$"x$k,($k^$`%12?o:x)&($k^$
+'/5?o:"}"))[$_%3]for<>!~/:/..35

map{$k=vec'BBBBBBBBBBBBBBBBBBB',$_,4;print$_%3?($"^='*')x$k:($k^$`%12?
+o:x)&($k^$'/5?o:"}")}<>=~/:/..36

print$"x(vec'CCCCCC',$z,4),($`%12^$z?o:x)&($'/5^$z?o:"}"),$/x(vec'EEE'
+,$z=11-$z+$|--,2)for<>!~/:/..11

print$"x(vec'CCCCCC',$_,4),($`%12^$_?o:x)&($'/5^$_?o:"}"),$/x(vec'FF',
+$_,2)for map{$_,11-$_}<>!~/:/..5

        8
   14      22
...

   84      92
       102

        8
   13      21
...

   75      83
       92

print+($`%12^($x=index'GGGGGGGGGGGGGGGGGGGGGG',chr)?~$x?$x<12?o:$/:$":
+x)&($'/5^$x?o:"}")for<>!~/:/..102

print~($x=index'DDDDDDDDDDDD',chr)?($`%12^$x?g:p)&($'/5^$x?g:u)|H.$/x(
+vec'FF',$x,2):$"for<>!~/:/..92