Perl-Sensitive Sunglasses | |
PerlMonks |
Re^4: Golf: Seven segment displayby mtve (Deacon) |
on Jan 27, 2012 at 13:52 UTC ( [id://950370]=note: print w/replies, xml ) | Need Help?? |
a few obvious optimizations: say map$'&2**$_?$_>9?'|':_:$",map{2 .$_,$_,1 .$_}split!//,"@_"for 1005,924745596,341831533
In Section
Seekers of Perl Wisdom
|
|