99 埃尔姆问题/第 8 个问题
< 99 埃尔姆问题
编写一个函数来移除列表元素中的连续重复项。
import Html exposing (text)
import List
compress : List a -> List a
-- your implementation goes here
main = text (toString (compress [1, 1, 2, 2, 3, 3, 3, 4, 5, 4, 4, 4, 4]))
结果
[1, 2, 3, 4, 5, 4]
编写一个函数来移除列表元素中的连续重复项。
import Html exposing (text)
import List
compress : List a -> List a
-- your implementation goes here
main = text (toString (compress [1, 1, 2, 2, 3, 3, 3, 4, 5, 4, 4, 4, 4]))
结果
[1, 2, 3, 4, 5, 4]