Got an iPhone or iPad? We have a brand new Pastebin App for both devices, and it's totally free! Click here to download the new Pastebin App for iOS.
Public Pastes
Guest

Untitled

By: a guest on Jan 10th, 2012  |  syntax: Haskell  |  size: 0.19 KB  |  hits: 63  |  expires: Never
download  |  raw  |  embed  |  report abuse
Copied
  1. qsort (x:xs) = qsort kleinergl ++ [x] ++ qsort groesser
  2.                    where
  3.                       kleinergl = [y | y <- xs, y <= x]
  4.                       groesser  = [y | y <- xs, y > x]
create a new version of this paste RAW Paste Data