信号问题信号

Question

我是一个榆树新手，作为一个实验，我试图以一定的速度一次显示一个字符串。我已经完成了这么多。但是，每当程序遇到句子结尾字符（句号，问号，interrobang等）时，我想在输出中引入一个短暂的停顿。但是，我无法弄清楚如何暂停这种情况。

这是我的工作代码（当然是减去暂停）：

import Time (..)
import Signal (..)
import Text (..)
import String

stringOut : String -> Float -> Signal String
stringOut str rate = let 
    t = round <~ (foldp (+) 0 <| (flip (/) rate) <~ fps 60)
  in flip String.left str <~ t

main = asText <~ stringOut "This is a string. Yeah?" (20*millisecond)

我最初的想法是我应该在时间模块中使用延迟功能，但我不知道在哪里适应它而不会以Signal Signal Int结束。任何帮助，将不胜感激。谢谢！

Answer 1

信号问题信号

Signal (Signal x)的问题通常来自使用或定义返回Signal的函数。最好避免那些一般的。

问题和解决方案

现在，如果我正确地理解了你想要的系统，你就会得到一个静态的文本，一个以一定速率打勾的计数器，在每个刻度上应该显示一个新的文本字符，但在某些字符表示结束时 - 应该暂停。

时间刻度是程序的基本输入。如果您不仅要记录文本中的距离，还可以引入暂停。您需要跟踪您是否以及在暂停中的距离。每当你点击一个句子的结尾你设置暂停时，每个刻度都会在暂停时消失，继续偏移到文本中。

代码

这可能有点矫枉过正，但我将程序的输入和状态正式化并以通常可扩展的方式编写它：

import Time
import Time (Time)
import Signal
import Signal (Signal, (<~))
import Text (asText)
import String
import List
import Graphics.Element (Element)

type alias Input = ()
type alias State = { text : String, offset : Int, delay : Int }

initialState : State
initialState = { text = "This is a string. Yeah?", offset = 0, delay = 0 }
stdRate : Time
stdRate = 50 * Time.millisecond
stdDelay : Int
stdDelay = 5
endOfSentence : List String
endOfSentence = [".", "?", "!"]

input : Signal Input
input = always () <~ Time.every stdRate

state : Signal State
state = Signal.foldp (always step) initialState input

step : State -> State
step state =
  let
    newChar = String.slice state.offset (state.offset+1) state.text
  in
    if| state.delay > 0 -> { state | delay <- state.delay-1 }
      | List.member newChar endOfSentence ->
        { state | offset <- state.offset + 1, delay <- stdDelay }
      | otherwise -> { state | offset <- state.offset + 1 }

view : State -> String
view { text, offset } = String.left offset text

main : Signal Element
main = asText << view <~ state

榆树 - 按字符显示文本字符（暂停）

1 个答案:

信号问题信号

问题和解决方案

代码