Skip to content

Instantly share code, notes, and snippets.

@miguelarian

miguelarian/elm-lang-calculator.elm

Created March 15, 2017 16:43
Download ZIP

Revisions

  1. miguelarian created this gist Mar 15, 2017.
    36 changes: 36 additions & 0 deletions elm-lang-calculator.elm
    View file
    Original file line number Diff line number Diff line change
    @@ -0,0 +1,36 @@
    update : Msg -> Model -> ( Model, Cmd Msg )
    update msg model =
    case msg of
    Add ->
    let
    res =
    model.op1 + model.op2
    in
    ( { model | result = res }, Cmd.none )

    Sub ->
    let
    res =
    model.op1 - model.op2
    in
    ( { model | result = res }, Cmd.none )

    Mult ->
    let
    res =
    model.op1 * model.op2
    in
    ( { model | result = res }, Cmd.none )

    Div ->
    let
    res =
    model.op1 / model.op2
    in
    ( { model | result = res }, Cmd.none )

    Operator1Changed newValue ->
    ( { model | op1 = parseFloat newValue }, Cmd.none )

    Operator2Changed newValue ->
    ( { model | op2 = parseFloat newValue }, Cmd.none )