Elm
import List exposing (filter, head, indexedMap, length) import Maybe exposing (withDefault) import Tuple exposing (pair) switchNeeded : List Int -> ( Int, Int ) -> Bool switchNeeded line ( index, lamp ) = if (line |> head |> withDefault 0) == 0 then modBy 2 index /= lamp else modBy 2 index == lamp lamps : List Int -> Int lamps line = line |> indexedMap pair |> filter (switchNeeded line) |> length
Demo.
Are you sure you want to hide this comment? It will become hidden in your post, but will still be visible via the comment's permalink.
Hide child comments as well
Confirm
For further actions, you may consider blocking this person and/or reporting abuse
We're a place where coders share, stay up-to-date and grow their careers.
Elm
Demo.