Beefy Boxes and Bandwidth Generously Provided by pair Networks
Syntactic Confectionery Delight
 
PerlMonks  

obfupoetry

by Discipulus (Monsignor)
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 (Prior) 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?
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others pondering the Monastery: (6)
As of 2017-10-19 07:51 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    My fridge is mostly full of:

















    Results (252 votes). Check out past polls.

    Notices?