uehaj https://blog.hatena.ne.jp/uehaj/ uehaj's blog https://uehaj.hatenablog.com/ Elm Funcional Hakell FunctionalFRP ArrowizedFRP import Window import Debug (log) -- 旧速度vと、現在位置xから、新しい速度を求める。(はじっこだったら速度を反転する) newv : Int -> Int -> Int newv v x = if (x<= -10 || 10<=x) then -v else v -- 状態を表わす(現在位置、速度)のタプルに対して、次の状態をシグナル(fps 20)のタイミングで累積的に計算しなおすということを繰り返す。初期状態は(0,1)。結果得られるのは、(現在位置,現在の速度)を表現するシグナルである。 pos = foldp (\it (x,v) -> let n… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fuehaj.hatenablog.com%2Fentry%2F2014%2F07%2F19%2F004359" title="elmでやってみるシリーズ2: ●を往復させる - uehaj&#39;s blog " class="embed-card embed-blogcard" scrolling="no" frameborder="0" style="display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;"></iframe> Hatena Blog https://hatena.blog 2014-07-19 00:43:59 rich https://uehaj.hatenablog.com/entry/2014/07/19/004359 1.0 100%