Beefy Boxes and Bandwidth Generously Provided by pair Networks httptech
There's more than one way to do things
 
PerlMonks  

Ah, but what about correct display of the decimal point?

by mugwumpjism (Hermit)
on Jun 08, 2001 at 19:35 UTC ( #86945=note: print w/ replies, xml ) Need Help??


in reply to (Golf) LED Sign

Whilst my answer is longer, I think you will find it simulates a 7 segment display a little closer, and it has a larger, more readable font.

This one weighs in at 299 characters, excluding line breaks.

sub f{ $i=$_[0];$i=~s/(\d)\./$1|'@'/eg;@c=split//,"\brew\$]m.k{%\177o"; for$a(0..8){for$l(split//,$i){$x=ord$c[ord($l&"?")-45];print do{ if($a%4){$q=($x>>($a>4)*3)&6;($q&2?"|":" ")." ".($q&4?"|":" ") ." ";}else{($x>>($a>>2)*3&1?" ----- ":" "x7). ($a==8&&(($l&"@")eq"@")?" X ":" ");}}}print"\n";}} f(-123.04); f(56789);

And the output is:

                     -----     -----              
                |         |         |   |     |   
                |         |         |   |     |   
                |         |         |   |     |   
 -----               -----     -----     -----    
                |   |               |         |   
                |   |               |         |   
                |   |               |         |   
                     -----     -----  X           
 -----     -----     -----     -----     -----     -----    
|         |               |   |     |   |     |   |     |   
|         |               |   |     |   |     |   |     |   
|         |               |   |     |   |     |   |     |   
 -----     -----               -----     -----              
      |   |     |         |   |     |         |   |     |   
      |   |     |         |   |     |         |   |     |   
      |   |     |         |   |     |         |   |     |   
 -----     -----               -----     -----     -----    

Not bad for a first golf attempt? :-)


Comment on Ah, but what about correct display of the decimal point?
Download Code
Re: Ah, but what about correct display of the decimal point?
by Anonymous Monk on Nov 23, 2007 at 17:43 UTC
    I really really like it! VERY NEAT! That's not much code for a VERY cool output.

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others cooling their heels in the Monastery: (7)
As of 2014-04-20 07:07 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    April first is:







    Results (485 votes), past polls