You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

18 lines
295 B

module Main exposing (..)
import Html exposing (Html)
suffixes : List a -> List (List a)
suffixes list =
case list of
[] ->
[ [] ]
next :: rest ->
list :: suffixes rest
main : Html msg
main =
Html.text <| toString <| suffixes [ 1, 2, 3, 4 ]