Beefy Boxes and Bandwidth Generously Provided by pair Networks
Keep It Simple, Stupid
 
PerlMonks  

obfupoetry

by Discipulus (Prior)
on Mar 21, 2016 at 09:06 UTC ( #1158424=poem: print w/replies, xml ) Need Help??

In occasion of first day of Spring* i give you the first issue of perl obfupoetry:

who can guess the poem without running it?

#!/usr/bin/perl use strict; use warnings; our @life = (0..70); my $self = { age => $life[int($#life/2)], # #078101108032109101122122111032100101108032099097109109 #105110032100105032110111115116114097032118105116097 # remember => sub{scalar @_}, }; our $wood = { dark=>1, #109105032114105116114111118097105032112101114032117110 #097032115101108118097032111115099117114097 # straight_way => undef, #099104101039032108097032100105114105116116097032118105 #097032101114097032115109097114114105116097046 # # wild=>1, rough=>1, stubborn=>1, inside=>[], }; while ( $self->{'age'} ){ push @{$wood->{'inside'}},$self; if (scalar @$wood{qw(wild rough stubborn)}) { #065104105032113117097110116111032097032100105114032113 #117097108032101114097032101039032099111115097032100117114097 # for (@$wood{qw(wild rough stubborn)}) { #101115116097032115101108118097032115101108118097103103 #105097032101032097115112114097032101032102111114116101 # $self->{'fear'}+= $$self{remember}->($_); #099104101032110101108032112101110115105101114032114105 #110111118097032108097032112097117114097033 # # } } last; } END { seek DATA,0,0; while (<DATA>){ print "\n" if /^#$/; s/^#//; print map {chr 0+$_} ($_=~/\d{3}/g); } } __DATA__

Enjoy!

(*)please do not reply with positivist comments about the exact first day of Spring: seasons always start in day 21: the notion was in my mind when thumbs were still there..

L*

There are no rules, there are no thumbs..
Reinvent the wheel, then learn The Wheel; may be one day you reinvent one of THE WHEELS.

Replies are listed 'Best First'.
Re: obfupoetry
by CountZero (Bishop) on Mar 21, 2016 at 10:34 UTC
    Lasciate ogne speranza, voi ch’intrate.

    CountZero

    A program should be light and agile, its subroutines connected like a string of pearls. The spirit and intent of the program should be retained throughout. There should be neither too little or too much, neither needless loops nor useless variables, neither lack of structure nor overwhelming rigidity." - The Tao of Programming, 4.1 - Geoffrey James

    My blog: Imperial Deltronics
Re: obfupoetry
by 1nickt (Parson) on Mar 21, 2016 at 15:12 UTC

    Very cool Discipulus.

    Warning:
    S P O I L E R ! !

    
    
    
    
    
    
    
    
    
    

    Wow, I had no idea that Robert Frost's most famous snippets are almost directly from Dante! If he (Frost) were my student I would fail him for plagiarism :P


    The way forward always starts with a minimal test.
Re: obfupoetry
by parkprimus (Sexton) on Apr 14, 2016 at 20:49 UTC
    Impressive!

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: poem [id://1158424]
Approved by Corion
help
Chatterbox?
[Lady_Aleena]: Module is currently 104 lines but will shirnk to 63. The script using the module is currently 40 lines but will grow to 82, 180 to 146 lines total. (This is after rewrting the data files.)

How do I use this? | Other CB clients
Other Users?
Others browsing the Monastery: (5)
As of 2017-05-29 03:01 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?