Next Atypical Types 69
        sort [] = []
        sort ls = merge (sort p) (sort q)
          where (p, q) = split ls

In fact, this function has a bug.



Next Copyright © 1999,2008 Mark Dominus