in reply to How to build a better mousetrap (or a variable to hold a column-measuring scale)
DB<82> p join "+", map { $b =$_ %10; $a = sprintf "----%s--", $b ? " +${b}0-" : "${_}0" } 8..12 ----80---+----90---+----100--+----10---+----20---
could be shorter but I'm tired! ;-)
Cheers Rolf
(addicted to the Perl Programming Language :)
Wikisyntax for the Monastery
FootballPerl is like chess, only without the dice
|
|---|