Help for this page

Select Code to Download

Select or download this

use List::Comprehensions;;
comp1 { 
...
3-8-5
3-8-23
3-8-3

Select or download this

comp1 { 
    print join '-', reverse @_ 
...
1-8-3
2-8-3
3-8-3