Beefy Boxes and Bandwidth Generously Provided by pair Networks
XP is just a number
 
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 meditating upon the Monastery: (3)
As of 2014-07-10 04:40 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    When choosing user names for websites, I prefer to use:








    Results (199 votes), past polls