5

我正在尝试使一列随机数每秒更改一次，但我收到不同的错误消息：

import Random

main = flow down 
[ asText (Random.range 0 100 (every second))  
, asText (Random.range 0 100 (every second))
]

给出解析错误。我的方括号有什么问题[？

Parse error at (line 5, column 1):
unexpected '['
expecting newline, spaces or end of input

缩进也许？

一旦我缩进，这个例子就会编译，但我只是得到<signal>而不是实际数字

main = flow down 
  [ asText (Random.range 0 100 (every second))  
  , asText (Random.range 0 100 (every second))
  ]

lift信号？

最后，当我尝试使用lift它时，它给了我其他的困惑

main = flow down 
  [ lift asText (Random.range 0 100 (every second))  
  , lift asText (Random.range 0 100 (every second))
  ]

错误消息是我的lift.

Type error on line 5, column 5 to 9:
       lift

  Expected Type: Signal Element
    Actual Type: Element

不flow down只是一个清单

如果我忘记流下来它仍然不合作：

main = lift asText
  [  (Random.range 0 100 (every second))  
  ,  (Random.range 0 100 (every second))
  ]

我收到一条_List预期的错误消息：

Type error between lines 5 and 7:
       [Random.range 0 100 (every second),
        Random.range 0 100 (every second)]

  Expected Type: _List
    Actual Type: Signal

?

我使用Random.range正确吗？我没有从原来的例子中改变它：

我如何让它与liftand合作flow down？

4

2 回答 2

5

这是一个适用于 0.15 [编辑：和 0.16] 的答案，目前是 Elm 的最新版本。自从写了乔的答案以来，已对 Random 库进行了彻底检查，以使用纯随机数生成器。伪随机数是确定性的：每次运行总是相同的，除非您更改初始种子。

我们从导入开始：无聊但必要，然后使用 Random 库定义一些常量。

import Graphics.Element exposing (flow, down, show, Element)
import Time exposing (fps)
import Random

gen = Random.int 0 100
gen2 = Random.pair gen gen
seed0 = Random.initialSeed 42

接下来我们定义一个状态类型，包含随机种子和要显示的数字。我以为我们想要两个；对于恒定长度的列表，请使用Random.list n gen. 我们还使用记录构造函数语法（和两个“随机”数字）定义了一个初始状态。

type alias State = {seed : Random.Seed, first : Int, second : Int}
state0 = State seed0 36 89

现在我们定义一个每秒运行一次的阶跃函数。在这里，我们剥离两个随机数并将它们与新种子一起存储。请注意，我们每次都使用一个新的种子，将一个连接到下一个。

step : a -> State -> State
step _ state =
  let
    ((first, second), seed') = Random.generate gen2 state.seed
  in
    State seed' first second

现在我们foldp用来引入状态，来实际运行那个阶跃函数。

state : Signal State
state = Signal.foldp step state0 (fps 1)

我们定义了一个纯渲染函数。这里没有信号。

render : State -> Element
render state =
    flow down [show state.first, show state.second]

最后我们将渲染函数映射（以前提升）到状态。

main = Signal.map render state

如果您连接灰色框并删除插页式注释，您将获得一个有效的 Elm 0.15 程序。但请注意，它似乎是 CPU 密集型的。

于 2015-05-26T21:46:26.767 回答
3

这里发生了几件事：

正如您所料，在第一部分中，您遇到了编译器不喜欢的缩进问题。

下一个示例之所以有效，是因为列表中的两件事实际上是信号。但是，这不是你想要的。相反，您想打印出符号。

这是一个简单的起重示例Random.range：

import Random

main = asText <~ (Random.range 0 10 (every second))

这将每秒显示一个介于 0 和 1 之间的值。这与lift工作方式有关。它的类型是(a -> b) -> Signal a -> Signal b. 每次第二个参数的信号发生变化时，它都会使用该值运行指定的函数。

因此，您正在尝试的第三件事的编译错误是抱怨该函数flow期望您的列表的内容是，Element但它们实际上是Signal Element.

你在那里的最后一件事不起作用，因为lift期望 aSignal作为它的第二个参数，但你却给了它 a [Signal]。

你真的想要这样的东西：

import Random

main = lift2 randomcolumn (Random.range 0 100 (every second)) (Random.range 0 100 (every second))

randomcolumn x y = flow down [asText x,
                          asText y]

http://share-elm.com/sprout/53d28d73e4b07afa6f983534

希望这可以帮助！

于 2014-07-25T17:02:03.790 回答