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