Crazy elm

LessCrazy.elm

module Main exposing (..)

import Html exposing (Html, div, button, text)
import Html.App
import Html.Events exposing (onClick)


main : Program Never
main =
    Html.App.beginnerProgram
        { model = 0
        , update = always
        , view = view
        }


view : Int -> Html Int
view count =
    div []
        [ button [ onClick (count - 1) ] [ text "-" ]
        , text (toString count)
        , button [ onClick (count + 1) ] [ text "+" ]
        ]

SuperCrazy.elm

import Html exposing (..)
import Html.App exposing (..)
import Html.Events exposing (..)

main =
  beginnerProgram
    { model = 0
    , update = always
    , view = v
    }

v c =
  [ button [ c - 1 |> onClick ] [ text "-" ]
  , c |> text << toString
  , button [ c + 1 |> onClick ] [ text "+" ]
  ]
    |> (div <| [])