Oh, dear. Too bad I wasn't around for that one - my off-the-cuff solutions seem to be a good bit shorter than the ones presented there. {sigh} Oh, the things I lose out on by not having a time machine...
# Perl $ perl -wlne'print "@{[reverse split]}"' one two three four four three two one # Bash, as a script #!/bin/bash a=($@);for ((b=${#a[*]};b>=0;b--)); do c+=(${a[$b]}); done echo ${c[*]}
Not that this addresses the original question. :)
Back on topic: some years ago, Mark-Jason Dominus ran a "Quiz-of-the-Week" mailing list in which he came up with interesting challenges for Perl hackers. As I recall, he wasn't able to continue it; some other people tried carrying it (Shlomi Fish among them, IIRC), but it eventually died off. While it lasted, however, it was quite a bit of fun - it might be worth your while to take a look at the archives and see if anything strikes your fancy.
In reply to Re^4: Perl Puzzles
by oko1
in thread Perl Puzzles
by snape
For: | Use: | ||
& | & | ||
< | < | ||
> | > | ||
[ | [ | ||
] | ] |