Beefy Boxes and Bandwidth Generously Provided by pair Networks
Think about Loose Coupling
 
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 making s'mores by the fire in the courtyard of the Monastery: (6)
As of 2014-08-22 05:00 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The best computer themed movie is:











    Results (147 votes), past polls