Haskell でタートル グラフィックスを実装しようとしています。目標は、次のような関数を記述できるようにすることです。
draw_something = do
forward 100
right 90
forward 100
...
次に、ポイントのリストを生成します(おそらく追加のプロパティを使用):
> draw_something (0,0) 0 -- start at (0,0) facing east (0 degrees)
[(0,0), (0,100), (-100,100), ...]
これはすべて「通常の」方法で機能していますが、Haskell モナドとして実装して do 表記を使用することに失敗しました。基本的なコード:
data State a = State (a, a) a -- (x,y), angle
deriving (Show, Eq)
initstate :: State Float
initstate = State (0.0,0.0) 0.0
-- constrain angles to 0 to 2*pi
fmod :: Float -> Float
fmod a
| a >= 2*pi = fmod (a-2*pi)
| a < 0 = fmod (a+2*pi)
| otherwise = a
forward :: Float -> State Float -> [State Float]
forward d (State (x,y) angle) = [State (x + d * (sin angle), y + d * (cos angle)) angle]
right :: Float -> State Float -> [State Float]
right d (State pos angle) = [State pos (fmod (angle+d))]
bind :: [State a] -> (State a -> [State a]) -> [State a]
bind xs f = xs ++ (f (head $ reverse xs))
ret :: State a -> [State a]
ret x = [x]
これで書けるようになりました
> [initstate] `bind` (forward 100) `bind` (right (pi/2)) `bind` (forward 100)
[State (0.0,0.0) 0.0,State (0.0,100.0) 0.0,State (0.0,100.0) 1.5707964,State (100.0,99.99999) 1.5707964]
そして、期待される結果を得る。ただし、これを のインスタンスにすることはできませんMonad
。
instance Monad [State] where
...
結果は
`State' is not applied to enough type arguments
Expected kind `*', but `State' has kind `* -> *'
In the instance declaration for `Monad [State]'
そして、リストを新しいオブジェクトでラップすると
data StateList a = StateList [State a]
instance Monad StateList where
return x = StateList [x]
私は得る
Couldn't match type `a' with `State a'
`a' is a rigid type variable bound by
the type signature for return :: a -> StateList a
at logo.hs:38:9
In the expression: x
In the first argument of `StateList', namely `[x]'
In the expression: StateList [x]
他のさまざまなバージョンを試しましたが、思い通りに実行できませんでした。私は何を間違っていますか?何を間違って理解していますか?