Help for this page
# 1. Convert "shift" to "pop" to save 2 chars # 2. Convert leading "if" to trailing "&&" to ... # Savings = 4 chars (86 total chars) sub p{my($n,@e,$o)=@_;$_{$_=join$",sort@_,$/}++||print;p(++$o,--$n,@e) +while$n-1}p(pop)
# 4. Remove parens from subroutine for 1 char # # Total: 85 chars sub p{my($n,@e,$o)=@_;$_{$_=join$",sort@_,$/}++||print;p(++$o,--$n,@e) +while$n-1}p pop
www.com | www.net | www.org
No recent polls found