Golf: Seven segment display

[kikuchiyo]

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:

    _  _     _  _  _  _  _  _ 
  | _| _||_||_ |_   ||_||_|| |
  ||_  _|  | _||_|  ||_| _||_|

My best effort so far:

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

[Anonymous Monk]

http://codegolf.stackexchange.com/questions/997/render-digital-clock-style-numbers

[kikuchiyo]

Better approach:

sub w{for$;(-2..0){say map{substr'   _ _|_  |_| |',2*ord(('u$SR,Z]dmj'
+=~/./g)[$_])>>-3*$;&14,3}split//,$_[0]}}

[PrakashK]

Applying the ...=~/./g trick (which you already used once inside the map) again:

sub w{for$;(-2..0){say map{substr'   _ _|_  |_| |',2*ord(('u$SR,Z]dmj'=~/./g)[$_])>>-3*$;&14,3}$_[0]=~/./g}}

[brx]

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}}

-- edit: Some explanations about 1005,924745596,341831533
Read more... (2 kB)

[jffry]

The only problem is that this is not "9"

 _
|_|
 _|

This is:

 _
|_|
  |

Otherwise, the old trick of "59009" upside down doesn't work anymore.

[brx]

sub w{for$;(1005,924745596,341831021){say map{$;>>$_&1?/../?'|':_:$"}m
+ap{$_+20,$_,$_+10}$_[0]=~/./g}}
w("59009");

output:

 _  _  _  _  _ 
|_ |_|| || ||_|
 _|  ||_||_|  |

[jffry]

/me flips laptop upside down, laughs like Beavis & Butthead.