{-# START_FILE Main.hs #-}
module Main where
-- show Quick sort algoritam
qsort:: Ord a=>[a]->[a]
qsort []=[]
qsort (x:xs)=qsort manji ++ [x] ++ qsort veci
where
manji=[a|a<-xs,a<=x]
veci=[b|b<-xs,b>x]
-- /show
main :: IO ()
-- show poziv
main=print (qsort [4,7,2,3,1,3])
-- /showPrimjer
As of March 2020, School of Haskell has been switched to read-only mode.
