Re: Golf: Seven segment display

[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)

[locked_user mtve]

a few obvious optimizations:

say map$'&2**$_?$_>9?'|':_:$",map{2 .$_,$_,1 .$_}split!//,"@_"for 1005,924745596,341831533