Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw
 
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 musing on the Monastery: (7)
As of 2014-10-25 09:51 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    For retirement, I am banking on:










    Results (142 votes), past polls