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

Compression in Golf: Part III

by eyepopslikeamosquito (Canon)
on Oct 21, 2012 at 07:22 UTC ( #1000179=perlmeditation: print w/ replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    eval lc pack u,'source-string'
    
  2. or download this
    eval lc pack(u,'source-string')x99
    
  3. or download this
    print eval lc pack(u,'source-string')x99
    
  4. or download this
    @j=/s/?(take,one,down,an.d,pass,it,around):(go,to,the,store,an.d,buy,s
    +ome,more);@m=(@z=(++$n,bottle.$&,of,beer),on,the,wall);s/^/,$"@m.\n\n
    +@m,$"@z.\n\u@j/;/\n+/;$'.$`;
    
  5. or download this
    print eval q!@j=/s/?(take,one,down,an.d,pass,it,around):(go,to,the,sto
    +re,an.d,buy,some,more);@m=(@z=(++$n,bottle.$&,of,beer),on,the,wall);s
    +/^/,$"@m.\n\n@m,$"@z.\n\u@j/;/\n+/;$'.$`;!x99
    
  6. or download this
    eval lc pack u,''                [17]
    print eval lc pack(u,'')x99      [27]
    #23456789012345678901234567
    
  7. or download this
    my $source = <<'PERSEVEROUS';
    my@j=/s/?(take,one,down,$m,pass,it,around):(go,to,the,store,$
    ...
    open my $fh, '>', 'b.pl' or die "error: open b.pl: $!";
    binmode $fh;
    print $fh "print eval lc pack(u,q&" . $out . "&)x99";
    
  8. or download this
    @m=(@z=(++$n,bottle.$&,of,beer),on,the,wall);s/^/s@m,v@z._/;s/s/\utake
    +vonevdownvandvpassvitvaround,v@m.__/;"$'\ugovtovthevstorevandvbuyvsom
    +evmore,v@m.";
    
  9. or download this
    my $prog = <<'PERSEVEROUS';
    @m=(@z=(++$n,bottle.$&,of,beer),on,the,wall);s/^/s@m,v@z._/;s/s/\utake
    +vonevdownvandvpassvitvaround,v@m.__/;"$'\ugovtovthevstorevandvbuyvsom
    +evmore,v@m.";
    PERSEVEROUS
    s//lc $prog x99/ee;y/_v/
     /;print
    
  10. or download this
    eval lc pack u,''                        [17]
    print eval lc pack(u,'')x99              [27]
    s//lc pack(u,'')x99/ee;y/v_/ N/;print    [37] (N represents newline)
    #234567890123456789012345678901234567
    
  11. or download this
    @m=(@z=(++$n,bottle.$&,of,beer),on,the,wall);s/^/s@m,`@z._/;s/s/]ake`o
    +ne`down`and`pass`it`around,`@m.__/;"$'^o`to`the`store`and`buy`some`mo
    +re,`@m.";
    
  12. or download this
    my $prog = <<'PERSEVEROUS';
    @m=(@z=(++$n,bottle.$&,of,beer),on,the,wall);s/^/s@m,`@z._/;s/s/]ake`o
    +ne`down`and`pass`it`around,`@m.__/;"$'^o`to`the`store`and`buy`some`mo
    +re,`@m.";
    PERSEVEROUS
    s//lc $prog x99/ee;y/]-`/TG
     /;print
    
  13. or download this
    eval lc pack u,''                          [17]
    s//lc pack(u,'')x99/ee;y/v_/ N/;print      [37]
    s//lc pack(u,'')x99/ee;y/]-`/TGN /;print   [40]
    #234567890123456789012345678901234567890
    
  14. or download this
    eval lc pack u,'source-string'
    
  15. or download this
    s/^/,$"@m.\n\n@m,$"@z.\n\u@_/,/s/until/99/*split@m=(@z=(++$n,bottle.$&
    +,of,beer),on,the,wall),/\n+/?take7one7down7and7pass7it7around:go7to7t
    +he7store7and7buy7some7more;print$'.$`
    # or
    s/^/,$"@m.\n\n@m,$"@z.\n\u@_/until/99/*split@m=(@z=(++$n,bottle."s"x/\
    +n+/,of,beer),on,the,wall),$&?take7one7down7and7pass7it7around:go7to7t
    +he7store7and7buy7some7more;print$'.$`
    
  16. or download this
    #        1         2         3         4         5         6
    #234567890123456789012345678901234567890123456789012345678901
    mx;s//,$"@m.\n\n@m,$"@z.\n\u@_/until/^99.+/sm/split@m=(@z=(++$
    m,bottle."s"x@-,of,beer),on,the,wall),@-?take7one7down7and.@
    m.pass7it7around:go7to7the7store7and7buy7some7more;print$&.$`
    
  17. or download this
    #        1         2         3         4         5         6
    #234567890123456789012345678901234567890123456789012345678901
    ...
    mx;s/^/,$"@l.\n\n@l,$"@m.\n\u@_/,/s/until/^99.*/sm/split@l=(@
    m=(++$n,bottle.$&,of,beer),on,the,wall),@+?take7one7down7and.@
    l.pass7it7around:go7to7the7store7and7buy7some7more;print$&.$`
    
  18. or download this
    #        1         2         3         4         5         6
    #234567890123456789012345678901234567890123456789012345678901
    m/s/,@m=(@z=(++$n,bottle.$&,of,beer),on,the,wall),s/^/$"@m.\n
    m@m,$"@z.\n\u@j,/while@j=!s/m//?(go,to,the,store,an.d,buy,so.
    me,more):(take,one,down,an.d,pass,it,around),$n^99;print$'.$`
    
  19. or download this
    my $source = <<'PERSEVEROUS';
    m/s/,@m=(@z=(++$n,bottle.$&,of,beer),on,the,wall),s/^/$"@m.\n
    ...
    open my $fh, '>', 'b.pl' or die "error: open b.pl: $!";
    binmode $fh;
    print $fh "eval lc pack u,'" . $out . "'";
    
  20. or download this
    #        1         2         3         4         5         6
    #234567890123456789012345678901234567890123456789012345678901
    ...
    m/s/,@m=(@z=(",",++$n,bottle.$&,of,beer),on,the,wall),s/^/@m.
    m@m@z.\n\u@_/until/99/*split+"l",s/m../\n/?takeloneldownland.
    lpasslitlaround:goltolthelstorelandlbuylsomelmore;;print$'.$`
    

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: perlmeditation [id://1000179]
Approved by Athanasius
Front-paged by Athanasius
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 2015-07-07 03:07 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 (86 votes), past polls