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

Clock

by benn (Priest)
on Sep 24, 2003 at 14:07 UTC ( #293856=obfuscated: print w/ replies, xml ) Need Help??

Another 'prettyfu' for your amusment, ladeez an' gennlemen - a mere bagatelle, but fun to write.
@s=map{[ (' ')x 60]}(0..40); ($m,$h )=(localtime) [1,2];t( 20,$_/5,$_%5 ?".":$_/5) for(1..60);t( $_*1.5,$m/5 ,p($_))for(1.. 12);t($_*1.5, $h%12+($m/60) ,p($_+14))for( 0..10);print join("\n", map{ join('',@$_) }@s);sub t{ $s[ 20-$_[0]*cos (.52*$_[1])][30 +$_[0]*1.50 *sin(0.52*$_[1 ])]=$_[2]} sub p{substr( " Just Another Perl ". "Clock",$_[0],1)}
Cheers, Ben.

Comment on Clock
Download Code
Re: Clock
by rob_au (Abbot) on Sep 24, 2003 at 14:19 UTC
    Very nice ... I'm glad to see that I'm not the only one who has derived obfu-fun from analog clocks - My past obfu-fun with clocks can be found here and here.

     

    perl -le "print+unpack'N',pack'B32','00000000000000000000001010000110'"

      Sweet. I wish I'd seen them before bothering presenting this (I did a big search for 'clock', but missed both 'tick' and 'tock' :)) - I might have tried a little harder :)

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others contemplating the Monastery: (9)
As of 2014-12-26 22:19 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

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





    Results (176 votes), past polls