# Problem 24

Draw n different random numbers from a range of numbers.

``````lotto seed 6 6 49
``````

Example result:

``````[14, 19, 28, 31, 33, 48]
``````

## Unit Test

``````import Html exposing (..)
import Html.App as App
import Html.Events exposing (..)
import Random

lotto : Random.Seed -> Int -> Int -> Int -> List Int
lotto seed n low high =
-- your implementation goes here
[]

main =
App.program
{ init = init
, view = view
, update = update
, subscriptions = subscriptions
}

-- MODEL

type alias Model =
{ intSeed : Int
, tested : Bool
, passed : Bool
}

init : ( Model, Cmd Msg )
init =
( Model 1 False False, Cmd.none )

-- UPDATE

type Msg
= Test
| NewFace Int

update : Msg -> Model -> ( Model, Cmd Msg )
update msg model =
case msg of
Test ->
( model, Random.generate NewFace (Random.int Random.minInt Random.maxInt) )

NewFace newSeed ->
( Model newSeed True True, Cmd.none )

-- SUBSCRIPTIONS

subscriptions : Model -> Sub Msg
subscriptions model =
Sub.none

-- VIEW

view : Model -> Html Msg
view model =
div []
[ p [] [ text ("Seed value: " ++ (toString (model.intSeed))) ]
, p [] [ text ("Your lotto numbers are " ++ (toString (lotto (Random.initialSeed model.intSeed) 6 6 49))) ]
, button [ onClick Test ] [ text "Test" ]
]

(..) : Int -> Int -> List Int
(..) start end =
List.range start end
``````

## Hints

1. A very simple solution is possible using the solution from Problem 23.

Solutions