Algorithms 4th shellsort, Learn Haskell pattern matching