elmでやってみるシリーズ10: ボールの衝突回数で円周率を計算する

Elmでやってみるシリーズ10:ボールの衝突回数で円周率を計算する id:wamanさんからひっそりと提案もらいましたので、やってみました。今回は記事自身もElmで書きましたので、github-pages上の全画面(github上のソース)からどうぞ。以下にも一応hatena blog…

2014-07-30

elmでやってみるシリーズ9: JavaScript連携(JSのevalを呼ぶ)

elm Functional FRP Reactive Programming Functional Reactive Programming

Elmでやってみるシリーズ9: JavaScript連携(JSのevalを呼ぶ) Elmではportというものを使用することで、ElmからJSの機能を呼ぶことができます(→Ports: Communicate with JS)。 portは名前がJS側に公開されるSignalです。 portには入力portと出力portがありま…

2014-07-27

elmでやってみるシリーズ8: 赤いドットが回っているかのように見えるけど実は直進運動な錯視

elm elm-lang Functional haskell

Elmでやってみるシリーズ8: 赤いドットが回っているかのように見えるけど実は直進運動な錯視少し前に、「このくるくる回る白いドット、実は真っ直ぐ往復してるだけなんだぜ」という記事がありましたが、これをElmで再現してみようというのが今回のネタ。 (…

2014-07-27

elmでやってみるシリーズ7: elm-htmlでTwitter Bootstrapを適用

elm elm-lang Functional FunctionalFRP haskell

Elmでやってみるシリーズ7: elm-htmlでTwitter Bootstrapを適用。つい先日、「Blazing Fast HTML」と銘打って、elm-htmlライブラリが公開されました。これはElmでDOMツリーを構築・更新するための低レベルライブラリであり、Virtual DOMという技術を使ってい…

2014-07-25

elmでやってみるシリーズ6: 今日の天気予報を表示する(フォーム入力とWebAPI呼び出しとJSONで)

elm elm-lang haskell Functional FunctionalFRP ArrowizedFRP A-FRP

Elmでやってみるシリーズ6: 今日の天気予報を表示する。今回は、以下の手順でお天気情報を表示します。 Graphics.Input.dropDownとGraphics.Input.Field.fieldで、場所情報を入力させる上記の2つはInputを共有させる変更があったらHttp.sendGetでhttp://op…

2014-07-22

elmでやってみるシリーズ5: 逆ポーランド電卓

Elm Elm-lang Haskell Functional FunctionalFRP ArrowizedFRP FRP

Elmでやってみるシリーズ5: 逆ポーランド電卓。いわゆる一つの逆ポーランド記法(Reverse Polish Notation, RPN)電卓です。入力フォームをSignalに結びつけて入力として使う例になります。私は本物のRPN電卓を使ったことがないので本物とはたぶん動作が違いま…

2014-07-19

elmでやってみるシリーズ3: xeyesっぽい目が動く

functional FunctionalFRP elm Elm-lang ArrowizedFRP haskell

elmでやってみるシリーズ3: xeyesっぽい目が動く。 import Mouse -- 目の輪郭を書く eyeframe x y = move (x,y) <| outlined { defaultLine | width <- 5 } <| oval 40 50 -- 目玉を書く eyeball x y = move (x,y) <| filled black <| circle 5 -- 目(=目玉+…

2014-07-18

elmでやってみるシリーズ1: ●を動かす

elm FRP A-FRP haskell Elm-lang functional reactive reactive-functional GUI Animation concurrent ArrowizedFRP

elmでやってみるシリーズ1: ●を動かす。 import Window pos : Signal Int pos =let f = \tmp -> (tmp `mod` 30) - 10 in f <~ foldp (\it acc-> acc + 1) 0 (fps 50) drawCircle : Float -> Float -> Form drawCircle x y = move (x,y) <| filled red (circl…