1.elm

module Game where

import Html exposing (..)
import Html.Attributes exposing (..)
import Html.Events exposing (..)

import Signal exposing (Address)

import StartApp.Simple as StartApp

-- MODEL

type alias Model =
  { row : List Int,
    cur : Int
  }

initialModel : Model
initialModel =
  { row = [ 0, 0, 0 ],
    cur = 1
  }

-- UPDATE

type Action
  = NoOp
  | Move Int

update : Action -> Model -> Model
update action model =
  case action of
    NoOp ->
      model

    Move index ->
      let
        updateRow eIndex e =
          if eIndex == index then model.cur else e
        next =
          if model.cur ==  1 then 2 else 1
      in
        { model |
          row = List.indexedMap updateRow model.row,
          cur = next
         }

-- VIEW

view : Address Action -> Model -> Html
view address model =
  div
    [ id "container" ]
    [ title,
      squareList address model.row
    ]

title : Html
title =
 h1 [] [ text "The Game!" ]

squareList : Address Action -> List Int -> Html
squareList address row =
  let
    items = List.indexedMap (item address) row
  in
    ul [ ] items

item : Address Action -> Int -> Int -> Html
item address index val =
  li [ onClick address (Move index) ] [ text ((toString val) ++ " " ++ (toString index)) ]

-- MAIN

main : Signal Html
main =
  StartApp.start
    { model = initialModel,
      view = view,
      update = update
    }