comment on

Since my former attempt at proposing a Golf was a dismal failure, for a refereshing change, how about something that isn't NP-Complete? This particular function, as with any Perl Golf, should allow for suitable creative expression. TMTOWTDI as always.

The Goal
Create a function which when given a numeric string, returns a multi-line string which is the equivalent 7-segment display output, as one might find on a cash register or digital watch. No external modules should be used. No requirement for compatibility with 'strict' or '-w', but the function must operate properly if called more than one time from within the same program.

An example is: print f("19.2"); Which would display:

   X XXXX      XXXX
   X X  X         X
   X X  X         X
   X XXXX      XXXX
   X    X      X   
   X    X      X   
   X    X    X XXXX
[download]

Any combination of the characters 0-9, '-', or '.' are valid. Any other characters are ignored. 7 lines of text are always returned by the function, though these lines may be blank if no input was provided that was valid.

For reference, here is the complete character set, a 5x7 bitmap, with a ruler provided for reference purposes only:

  ---- ---- ---- ---- ---- ---- ---- ---- ---- ---- ---- ----
| XXXX    X XXXX XXXX X  X XXXX XXXX XXXX XXXX XXXX        
| X  X    X    X    X X  X X    X       X X  X X  X        
| X  X    X    X    X X  X X    X       X X  X X  X        
| X  X    X XXXX XXXX XXXX XXXX XXXX    X XXXX XXXX      XXXX
| X  X    X X       X    X    X X  X    X X  X    X        
| X  X    X X       X    X    X X  X    X X  X    X        
| XXXX    X XXXX XXXX    X XXXX XXXX    X XXXX XXXX    X
[download]

Sample Code
My first take, a straight up approach, which is 272 characters without line breaks required here for readability.

sub f{
my@c=qw[00700 00001 00000 75557 11111 71747
71717 55711 74717 74757 71111 75757 75717];
my@l,$i;map{$l[$i++%5].=join'',(unpack("B8"
,chr)=~/(.)(.)(.)$/)[0,1,1,2],' '}map{split
//,$c[ord($_)-45]}grep{/[0-9\.\-]/}split//,
pop;$_=join'',map{"$_\n"}@l[0,1,1,2,3,3,4];
tr/01/ X/;$_
}
[download]

As you can see, there is substantial room for improvement.

In reply to (Golf) LED Sign by tadman

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		`&`
	<		`<`
	>		`>`
	[		`[`
	]		`]`

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.