Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl Monk, Perl Meditation


by benn (Vicar)
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.

Replies are listed 'Best First'.
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?

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

How do I use this? | Other CB clients
Other Users?
Others studying the Monastery: (3)
As of 2020-06-05 00:59 GMT
Find Nodes?
    Voting Booth?
    Do you really want to know if there is extraterrestrial life?

    Results (35 votes). Check out past polls.