Untitled

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))))