Re^2: Sorting The Date format Values without using any perl modules.

No + or =

sub add_em {
    my $sum;
    for (@_) {
        for (1..$_) {
          $sum--;
        }
    }
    return -$sum;
}
print add_em(1..5);
[download]

Sorry just couldn't resist ;)

___________
Eric Hodges

Comment on Re^2: Sorting The Date format Values without using any perl modules. Download Code

Replies are listed 'Best First'.
Re^3: Sorting The Date format Values without using any perl modules. by Skeeve (Parson) on Dec 26, 2005 at 23:44 UTC
No +, - or =: `print sum(1..10); sub sum { return scalar map { 1..$_ } @_ }` [download] `s$$([},&%#}/&/]+}%&{});#$&&s&&$^X.($'^"%]=\&(\|?{%` `+`.+=%;.#_}\&"^"-+%*).}%:##%}={~=~:.")&e&&s""`$''`"e	[reply] [d/l] [select]