o
o o
o o
h o
o o
m o
o
####
o
o x
o o
o o
o o
o o
o
##
##
0
11 1
10 2
9 3
8 4
7 5
6
##
##
1
0 2
0 2
0 2
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
1: 2
10: 0
2: 2
9: 0
3: 2
8: 0
4: 2
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
2: 1
3: 10
4: 2
5: 9
6: 3
7: 8
8: 4
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
1 13
0 15
1 13
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
1: 7
10: 1
2: 13
9: 0
3: 15
8: 1
4: 13
7: 4
5: 7
6: 8
##
##
print$"x(318%$_/9),(($_-$`)%12?o:x)&($_%12^$'/5?o:'}'),$/x($_/85)for unpack<>!~/:/.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
26 40
43 59
63 77
84 92
102
##
##
8
13 21
23 37
38 54
56 70
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