Beefy Boxes and Bandwidth Generously Provided by pair Networks
laziness, impatience, and hubris
 
PerlMonks  

Re: haiku errors

by Grimy (Pilgrim)
on Jul 20, 2012 at 21:49 UTC ( #982911=note: print w/ replies, xml ) Need Help??


in reply to haiku errors

"I'm sure I could do it with compression" -> Yes, of course you can. This is a first draft, strict and warning compliant, but you could golf it further:

eval q {($" ,%()="|0 010111v01 + 111 1m001010 y01110u0 00010c000 + 00h10011d1 110\n001 0110k0111 10b1100a1 + 11101g0000 11010x110 1n0011o0 000111p01 + 10s010${\v 32}11111w 10010l00 001100,00 + 01t00100i0 00011011 '111100f 1000r101e + "=~/\d+|./gs;$_=unpack'b*',unpack'u',q{MHX>D"L& @//*>3UZ ``D.OO'9 %;U!RUL>E +\QQJ^8N@B.GE[5$U;.2A1%"?@]9\MR'DH$10Q+:,^!XWL>Y] LYF\BID1H %8+!,QQ*""KX(.FB(' 9A/7Z4"&*J/@<"M$1/% + +D2BAZ#:XN>@B9@R_ST$T0H!V=<T44$-'+*7.PA@A`.K!J/9K ,2&RH-SMKZN9/B`0$!@30Y"+:#Z* G0P+%UDAJ`RCXY_G4`B J/ +]@0&)//]&;Q'@)B@L];M$=,R"C1Z[%#\R*_/0=VO/C$@9`%. 60BJ#SA5 1J/.<ZA?;>D-?9+2@:& 3?>6UMJ\98\R&H,D/.[ Z(H +=K"CLI9 &]CW?&6KYR ZNB2,&;+ P9!0PAF-?):^'%H%"Y 7MC>"07[-Y>PAJU>?(! J.'I +&H9];# ;?-8@[$R-X +A)208X$' )H`D.O,K &!PSO1M?` 9%NS#R +R688> 8Q`$Y679FF' H/KU9`0KB IVLI1TTN XSRJL308+ ,\A]?- +J69B M!`U381'#@\ "P*4K>-7V" @.Q%GU0( 812%=Q%&L UE1CQF/( +S=D8%)2%%WLC<>!MS>KS<.!!B:V:E (1@4!0[@:'W *'8:H^D/)62 6[R!P#PE #V?*'$8*N C*0NU$-`M3 +`C8V6Q6YI0F9%"TJTQJ9RROXY`\+B 7J$%0X+`2#( B9K]XAI&86@P G`5#L/(M+9)T%#MY0? ;5$S4@Y&W<)YOYFQ8% Q1AH/J+Q +A:#RDJL,BG;%CW('P2V+MP*=M,%'L 0@9%Q[<;03$ &%,T.JAW%+E1 8\*X1>@6Q#W?8.&2-C /CP5!GR]AK!(;]F>\] 8.FEU& +0>S#4[&)$L1++W6_6OZB+7\9F&A68 K,[};s/@{[% (]}/$({$&}/g; $a=3*int(rand(17)) ;print"\u$_\n"for( /.+/ +g)[$a..$a+2]}=~s/\s//gr###### ########### ############ ################## ################## # +######### ######### ########### ############ ################## ################## +######### ######### ########### ############ ######## ######### +######### ######### ########### ########### ######## ######### +######### ######### ########### ########### ######## ######### +######### ######### ########## ## ######## ######## ######### +######### ######### ########### ######## #################### #################### +############################# ########## ######## #################### #################### +############################# ########## ######## #################### #################### +############################# ########## ######## #################### #################### +############################# ########## ######## #################### #################### +############################# ########## ######## ######## ######### +######### ########### ######## ######## ######### +######### ########### ######## ######## ######### + ############################ ######## ######## ######### + ############################ ######## ######## ######### + ########################### ######## ######## ######### + ########################## ######## ######## ######### + ####################### ######## ######## ######### + ###################
(Tested under Strawberry Perl 5.14.1) (Uses the haikus from http://www.gnu.org/fun/jokes/error-haiku)


Comment on Re: haiku errors
Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://982911]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others having an uproarious good time at the Monastery: (12)
As of 2015-07-01 18:22 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 (16 votes), past polls