sub hllhh { my( $hi )= @_; my $lo= 1; return map $_ & 2 ? $lo++ : $hi--, 1..$hi; } print join ' ', hllhh(8), $/
- tye
In reply to Re: Golf/Perlish solution to this problem? (&2)
by tye
in thread Golf/Perlish solution to this problem?
by Cody Pendant
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |