Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl-Sensitive Sunglasses
 
PerlMonks  

Spending Time on Saving Time [golf]

by eyepopslikeamosquito (Canon)
on Apr 01, 2012 at 07:14 UTC ( #962854=perlmeditation: print w/ replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
            o
        o       o
    ...
    
        m       o
            o
    
  2. or download this
            o
        o       x
    ...
    
        o       o
            o
    
  3. or download this
            0
       11       1
    ...
    
        7       5
            6
    
  4. or download this
            1
        0       2
    ...
    
        0       1
            0
    
  5. or download this
    for my $i ( map {$_,11-$_} 0..5 ) {
       $x = ($i<6)+($i&&$i<5);
       printf "%2d: %d\n", $i, 0+$x;
    }
    
  6. or download this
     0: 1
    11: 0
    ...
     7: 0
     5: 1
     6: 0
    
  7. or download this
    12345678901234567
    ($i<6)+($i&&$i<5)
    --$|+($i&&$i<5)
    --$|+($i<5)-!$i
    
  8. or download this
    123456789012345678
    substr 122221,$i,1
    (1,2,2,2,2,1)[$i]
    (1,(2)x4,1)[$i]
    vec'XX',$i,2
    
  9. or download this
    for ( 0..11 ) {
       printf "%2d: %2d\n", $_, 0+$x;
       $x = 11-$x+$_%2;
    }
    
  10. or download this
     0:  0
     1: 11
    ...
     9:  7
    10:  5
    11:  6
    
  11. or download this
    1234567890
    11-$x+$_%2
    11-$x+$|--
    
  12. or download this
    12345678901234567
    map{$_,11-$_}0..5
    
  13. or download this
    1234567890123456
    vec'XXXXXX',$i,4
    
  14. or download this
            8
        4       7
    ...
    
        4       7
            8
    
  15. or download this
    for my $i ( map {$_,11-$_} 0..5 ) {
       $x = vec'XXXXXX',$i,4;
       printf "%2d: %2d\n", $i, 0+$x;
    }
    
  16. or download this
     0:  8
    11:  4
    ...
     7:  4
     5:  7
     6:  8
    
  17. or download this
    print$"x(318%$_/9),(($_-$`)%12?o:x)&($_%12^$'/5?o:'}'),$/x($_/85)for u
    +npack<>!~/:/.C12,'XXXXXXXXXXXX'
    
  18. or download this
    printf"%@{[.1*vec'XXXXXXXXXXXX',$_,8]}s",($_^$`%12?g:p)&($_^$'/5?g:u)|
    +"H
    
    "for map{$_,11-$_}<>!~/:/..5
    
  19. or download this
    sub k{$k=vec'AAAAAAAAAAAAAAAAAA',$i++,4}print$/x k,$"x k,(k^$`%12?o:x)
    +&($k^$'/5?o:"}")for<>!~/:/..11
    
  20. or download this
    print+($/x($k=vec'AAAAAAAAAAAAAAAAAA',$_,4),$"x$k,($k^$`%12?o:x)&($k^$
    +'/5?o:"}"))[$_%3]for<>!~/:/..35
    
  21. or download this
    map{$k=vec'BBBBBBBBBBBBBBBBBBB',$_,4;print$_%3?($"^='*')x$k:($k^$`%12?
    +o:x)&($k^$'/5?o:"}")}<>=~/:/..36
    
  22. or download this
    print$"x(vec'CCCCCC',$z,4),($`%12^$z?o:x)&($'/5^$z?o:"}"),$/x(vec'EEE'
    +,$z=11-$z+$|--,2)for<>!~/:/..11
    
  23. or download this
    print$"x(vec'CCCCCC',$_,4),($`%12^$_?o:x)&($'/5^$_?o:"}"),$/x(vec'FF',
    +$_,2)for map{$_,11-$_}<>!~/:/..5
    
  24. or download this
            8
       14      22
    ...
    
       84      92
           102
    
  25. or download this
            8
       13      21
    ...
    
       75      83
           92
    
  26. or download this
    print+($`%12^($x=index'GGGGGGGGGGGGGGGGGGGGGG',chr)?~$x?$x<12?o:$/:$":
    +x)&($'/5^$x?o:"}")for<>!~/:/..102
    
  27. or download this
    print~($x=index'DDDDDDDDDDDD',chr)?($`%12^$x?g:p)&($'/5^$x?g:u)|H.$/x(
    +vec'FF',$x,2):$"for<>!~/:/..92
    

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: perlmeditation [id://962854]
Front-paged by Corion
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others cooling their heels in the Monastery: (3)
As of 2015-07-05 06:06 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (60 votes), past polls