Clock

[benn]

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.

[rob_au]

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'"

[benn]

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 :)