Golf: Seven segment display

kikuchiyo has asked for the wisdom of the Perl Monks concerning the following question:

The problem:

Write a function -- with as few characters as possible -- that, given a positive integer, prints it in a seven segment display style, similar to that found on calculators.

Input:

w(1234567890);

Output:

    _  _     _  _  _  _  _  _ 
  | _| _||_||_ |_   ||_||_|| |
  ||_  _|  | _||_|  ||_| _||_|
[download]

My best effort so far:

sub w{for$;(0..2){say map{substr' _ _|_    | |_|',('030030000054116224
+666421416461'=~/./g)[$_+$;*10]*2,3}split//,$_[0]}}
[download]

Comment on Golf: Seven segment display Select or Download Code

Replies are listed 'Best First'.
Re: Golf: Seven segment display by Anonymous Monk on Jan 18, 2012 at 12:25 UTC
http://codegolf.stackexchange.com/questions/997/render-digital-clock-style-numbers	[reply]
Re: Golf: Seven segment display by kikuchiyo (Hermit) on Jan 18, 2012 at 12:38 UTC
Better approach: `sub w{for$;(-2..0){say map{substr' _ _\|_ \|_\| \|',2ord(('u$SR,Z]dmj' +=~/./g)[$_])>>-3$;&14,3}split//,$_[0]}}` [download]	[reply] [d/l]
Re^2: Golf: Seven segment display by PrakashK (Pilgrim) on Jan 23, 2012 at 20:30 UTC
Applying the `...=~/./g` trick (which you already used once inside the map) again: `sub w{for$;(-2..0){say map{substr' _ _\|_ \|_\| \|',2ord(('u$SR,Z]dmj'=~/./g)[$_])>>-3$;&14,3}$_[0]=~/./g}}`	[reply] [d/l] [select]
Re^3: Golf: Seven segment display by brx (Pilgrim) on Jan 24, 2012 at 15:34 UTC
I think my idea is a "cul-de-sac" but this is a little bit shorter (7 char.). `sub w{for$;(1005,924745596,341831533){say map{$;>>$_&1?/../?'\|':_:$"}m +ap{$_+20,$_,$_+10}$_[0]=~/./g}}` [download] -- edit: Some explanations about 1005,924745596,341831533 Read more... (2 kB)	[reply] [d/l] [select]
Re^4: Golf: Seven segment display by locked_user mtve (Deacon) on Jan 27, 2012 at 13:52 UTC
Re^5: Golf: Seven segment display by kikuchiyo (Hermit) on Jan 28, 2012 at 18:08 UTC
Some notes below your chosen depth have not been shown here
Re: Golf: Seven segment display by jffry (Hermit) on Jan 23, 2012 at 23:22 UTC
The only problem is that this is not "9" `_ \|_\| _\|` [download] This is: `_ \|_\| \|` [download] Otherwise, the old trick of "59009" upside down doesn't work anymore.	[reply] [d/l] [select]
Re^2: Golf: Seven segment display by brx (Pilgrim) on Jan 25, 2012 at 09:41 UTC
`sub w{for$;(1005,924745596,341831021){say map{$;>>$_&1?/../?'\|':_:$"}m +ap{$_+20,$_,$_+10}$_[0]=~/./g}} w("59009");` [download] output: `_ _ _ _ _ \|_ \|_\|\| \|\| \|\|_\| _\| \|\|_\|\|_\| \|` [download]	[reply] [d/l] [select]
Re^3: Golf: Seven segment display by jffry (Hermit) on Jan 25, 2012 at 15:54 UTC
/me flips laptop upside down, laughs like Beavis & Butthead.	[reply]