Help for this page
sub Qsort # WRONG! See update below! { ... push( $_ gt $pivot ? @gt : @lt ) for @_; return( Qsort( @lt ), $pivot, Qsort( @gt ) ); }
sub Qsort { ... sub Swap { ${$_[0]}->[$_[1],$_[2]] = ${$_[0]}->[$_[1],$_[2]] } # Warning, untested code...
www.com | www.net | www.org
No recent polls found