6 feira finalmente

Pois é finalmente 6 feira.
Foi uma semana difícil primeiro porque tivemos o Carnaval depois as ressacas e no meu caso como isso tudo não bastasse houve exames... Muito Haskell etc...




E uma das coisas que tornou me numa pessoa mais culta foi aprender a programar o Quicksort em Haskell (aqui fica 2 casos possíveis de programar isto podia ser em vez de 2 ser [1..] :P )

qsort [] = []
qsort (x:xs) = qsort (filter (< x) xs) ++ [x] ++ qsort (filter (>= x) xs)

ou
qsort :: (Ord a) => [a] -> [a]
qsort [] = []
qsort (pivot:rest) = (qsort [y | y <- rest, y < pivot])
++ [pivot] ++
(qsort [y | y <- rest, y >=pivot])


Afinal de contas o que é quicksort?

O algoritmo Quicksort é um método de ordenação muito rápido e eficiente, inventado por C.A.R. Hoare em 1960, quando visitou a Universidade de Moscou como estudante. Foi publicado em 1962 após uma série de refinamentos.

O Quicksort é um algoritmo de ordenação não-estável.