module Pi exposing (main) -- Add/modify imports if you'd like. --------------------------------- import Browser import Html exposing (Html) import Random exposing (Generator) import Time import Debug ---------------------------------------------------------------------- main : Program Flags Model Msg main = Browser.element { init = init , view = view , update = update , subscriptions = subscriptions } type alias Point = { x:Float, y:Float } type alias Model = { hits : List Point , misses : List Point , hitCount : Int , missCount : Int } type Msg = Tick | RandomPoint Point type alias Flags = () init : Flags -> (Model, Cmd Msg) init () = Debug.todo "TODO" initModel : Model initModel = Debug.todo "TODO" subscriptions : Model -> Sub Msg subscriptions model = Debug.todo "TODO" pointGenerator : Generator Point pointGenerator = Debug.todo "TODO" update : Msg -> Model -> (Model, Cmd Msg) update msg model = Debug.todo "TODO" view : Model -> Html Msg view model = Debug.todo "TODO"