Next Atypical Typing 74
        sort [] = []
        sort ls = merge (sort p) (sort q)
          where (p, q) = split ls

In fact, this function has a bug.

continued...

Next Copyright © 1999,2008 Mark Dominus