Elm

Question

只是研究了示例，并得到了关于创建 2 个随机骰子并使用按钮滚动它们的练习。

http://guide.elm-lang.org/architecture/effects/random.html

所以我想我会把骰子创建为一个模块，删除滚动动作，然后让它在初始化时创建一个 D6 值。

所以我现在的代码如下（应该直接在elm-reactor中打开）

module Components.DiceRoller exposing (Model, Msg, init, update, view)

import Html exposing (..)
import Html.App as Html
import Html.Attributes exposing (..)
import Html.Events exposing (..)
import Random
import String exposing (..)

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



-- MODEL


type alias Model =
    { dieFace : Int
    }


init : ( Model, Cmd Msg )
init =
    ( Model 0, (Random.generate NewFace (Random.int 1 6)) )



-- UPDATE


type Msg
    = NewFace Int


update : Msg -> Model -> ( Model, Cmd Msg )
update msg model =
    case msg of
        NewFace newFace ->
            ( Model newFace, Cmd.none )



-- SUBSCRIPTIONS


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



-- VIEW


dieFaceImage : Int -> String
dieFaceImage dieFace =
    concat [ "/src/img/40px-Dice-", (toString dieFace), ".svg.png" ]


view : Model -> Html Msg
view model =
    let
        imagePath =
            dieFaceImage model.dieFace
    in
        div []
            [ img [ src imagePath ] []
            , span [] [ text imagePath ]
            ]

问题在于它总是产生相同的值。我以为我一开始的种子有问题，但如果你改变

init =
    ( Model 0, (Random.generate NewFace (Random.int 1 6)) )

init =
    ( Model 0, (Random.generate NewFace (Random.int 1 100)) )

它完全按预期工作。所以看起来默认生成器不适用于小值，似乎可以低至 10。

奇怪的是，在这个例子（我开始的）http://guide.elm-lang.org/architecture/effects/random.html 中，当它不在 init 中时，它可以很好地处理 1-6。

所以我的问题是，我做错了什么，还是这只是榆树上的皱纹？我在 init 中使用命令可以吗？

最后，我把这个放进去，得到了想要的效果，感觉不太靠谱。

init =
    ( Model 0, (Random.generate NewFace (Random.int 10 70)) )

和

    NewFace newFace ->
        ( Model (newFace // 10), Cmd.none )

Answer 1

这一定和播种有关。您没有为种子指定任何值，因此生成器默认使用当前时间。

我认为您尝试在几秒钟内刷新页面几次，但没有看到值发生变化。如果您等待更长时间（大约一分钟），您会看到您的值发生变化。

我查看了 Random 的源代码，我怀疑对于足够接近的种子值，[1,6] 范围内生成的第一个值不会改变。我不确定这是否符合预期，可能值得在 GitHub

上提出问题

Elm - 初始化奇怪行为的随机数

Elm - Random Number on init strange behaviour

random