Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change
 
PerlMonks  

da funk

by Amoe (Friar)
on Feb 09, 2002 at 18:10 UTC ( #144379=obfuscated: print w/ replies, xml ) Need Help??

#!/usr/bin/perl -w # da fun +k by amoe use strict; my$disco=q;Funk Ad;;sub its_time{0}my@dance=(q{Jungl-e Boogie},qq@What +'s G-oin' \bOn@,qq*We Are Fa-mily*,qq<Pl-ay That Funky Music>);my(@speaker_stack +);foreach my$boogie(its_time..$#dance){push@speaker_stack,($dance[$boogie]=~/-(. +)(.)/);;} my@punk=reverse@speaker_stack;for my$is_dead(its_time..$#punk){!($is_d +ead%(2%5) )||print$punk[$is_dead]}$disco=~s~(.)(.)$~m\L$1\E$2~;push(my@dancemove +s,(split( //,$dance[0]))[12],(split//,$dance[1])[5],(split//,$dance[2])[2],qq,\L +$disco\E, );my$slogan='In The Navy';print@dancemoves[2,0..scalar(my@a=split/ /,$ +slogan)];


--
my one true love

Comment on da funk
Download Code

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others about the Monastery: (10)
As of 2014-11-26 07:53 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My preferred Perl binaries come from:














    Results (164 votes), past polls