Commit 0e8a0264 authored by zlu's avatar zlu 🤸🏿
Browse files

Generate restaurant picker

parent d1989152
import Html exposing (..)
import Html.Events exposing (onClick)
import Html.App as App
import Random
import Array
main =
App.program
{ init = init,
view = view,
update = update,
subscriptions = subscriptions
}
type alias Model = { dieFace : Int }
type Msg = Roll | NewFace Int
init : (Model, Cmd Msg)
init =
(Model 1, Cmd.none)
update : Msg -> Model -> (Model, Cmd Msg)
update msg model =
case msg of
Roll ->
(model, Random.generate NewFace (Random.int 0 (Array.length choices)))
NewFace newFace ->
(Model newFace, Cmd.none)
view : Model -> Html Msg
view model =
div []
[ h1 [] [ Html.text (Maybe.withDefault "Cannot decide, roll again" (Array.get model.dieFace choices)) ]
, button [ onClick Roll ] [ Html.text "Roll" ]
]
subscriptions : Model -> Sub Msg
subscriptions model =
Sub.none
choices = Array.fromList [
"Ceara",
"Burger Bros",
"Boamesa",
"Vila Lobos",
"Graveyard Hotdogs" ]
This diff is collapsed.
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment