Advertisement
Guest User

Untitled

a guest
Jun 1st, 2010
174
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Perl 0.06 KB | None | 0 0
  1. print join('-', $_%2 ? 1..$_ : reverse 1..$_ )."\n" for 1..10;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement