Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl Monk, Perl Meditation
 
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 chanting in the Monastery: (8)
As of 2014-12-23 01:43 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (133 votes), past polls