Select Code to Download

  qsort []     = []
  qsort (x:xs) = qsort elts_lt_x ++ [x] ++ qsort elts_gr_x
                   where
                     elts_lt_x   = [y | y <- xs, y < x]
                     elts_gr_x = [y | y <- xs, y > x]

      ($minimum) = sort {$a <=> $b} @items;

    minimum = head(qsort array);

    sub zero {
      return 0;
    }

    $x = zero(SOME_VERY_LONG_COMPLICATED_EXPRESSION);