list of ascending sub lists, version 1

ascending_sub_list1.hs

ascending_sub_list :: Ord element => [element] -> [[element]]
ascending_sub_list = foldr append []
  where
    append :: Ord element => element -> [[element]] -> [[element]]
    append element_new sub_list_list
      | sub_list_list_head : sub_list_list_tail <- sub_list_list,
        element_new <= head sub_list_list_head
        = (element_new : sub_list_list_head) : sub_list_list_tail
      | otherwise = [element_new] : sub_list_list