alternateSort :: [Int] -> [Int] alternateSort l = if isEmpty l then l else konso (maxElmt l) (konso (minElmt l) (alternateSort (delOneElement (maxElmt l) (delOneElement (minElmt l) l))))
