Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- main=interact$ \xs ->let(_:c)=lines xs in unwords[d c,d.reverse$c]
- d xs = zipWith (!!) xs [0..]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement