Contents

module Sublist exposing (..)


version : Int
version =
    2


type ListComparison
    = Equal
    | Superlist
    | Sublist
    | Unequal


sublist : List a -> List a -> ListComparison
sublist alist blist =
    if alist == blist then
        Equal
    else if inList alist blist then
        Superlist
    else if inList blist alist then
        Sublist
    else
        Unequal


inList : List a -> List a -> Bool
inList alist blist =
    let
        getLastInList sublist =
            Maybe.withDefault [] (List.tail sublist)
    in
        if (List.length alist) < (List.length blist) then
            False
        else if (List.take (List.length blist) alist) == blist then
            True
        else
            inList (getLastInList alist) blist

Version data entries

322 entries across 322 versions & 1 rubygems

Version	Path
trackler-2.2.1.104	tracks/elm/exercises/sublist/Sublist.example.elm
trackler-2.2.1.103	tracks/elm/exercises/sublist/Sublist.example.elm
trackler-2.2.1.102	tracks/elm/exercises/sublist/Sublist.example.elm
trackler-2.2.1.101	tracks/elm/exercises/sublist/Sublist.example.elm
trackler-2.2.1.100	tracks/elm/exercises/sublist/Sublist.example.elm
trackler-2.2.1.99	tracks/elm/exercises/sublist/Sublist.example.elm
trackler-2.2.1.98	tracks/elm/exercises/sublist/Sublist.example.elm
trackler-2.2.1.97	tracks/elm/exercises/sublist/Sublist.example.elm
trackler-2.2.1.96	tracks/elm/exercises/sublist/Sublist.example.elm
trackler-2.2.1.95	tracks/elm/exercises/sublist/Sublist.example.elm
trackler-2.2.1.94	tracks/elm/exercises/sublist/Sublist.example.elm
trackler-2.2.1.93	tracks/elm/exercises/sublist/Sublist.example.elm
trackler-2.2.1.92	tracks/elm/exercises/sublist/Sublist.example.elm
trackler-2.2.1.91	tracks/elm/exercises/sublist/Sublist.example.elm
trackler-2.2.1.90	tracks/elm/exercises/sublist/Sublist.example.elm
trackler-2.2.1.89	tracks/elm/exercises/sublist/Sublist.example.elm
trackler-2.2.1.88	tracks/elm/exercises/sublist/Sublist.example.elm
trackler-2.2.1.87	tracks/elm/exercises/sublist/Sublist.example.elm
trackler-2.2.1.86	tracks/elm/exercises/sublist/Sublist.example.elm
trackler-2.2.1.85	tracks/elm/exercises/sublist/Sublist.example.elm