実装したキュー データ構造を処理する簡単なプログラムを作成しました。これが私のコードです
transf :: Queue -> [Char]
transf emptyQueue = []
transf queue = [front queue] ++ transf (dequeue queue)
キューがどこにあるか
newtype Queue = Q [Char] deriving (Show)
emptyQueue :: Queue
emptyQueue = Q []
queueIsEmpty :: Queue -> Bool
queueIsEmpty (Q []) = True
queueIsEmpty (Q _) = False
enqueue :: Char -> Queue -> Queue
enqueue x (Q q) = Q (q ++ [x])
dequeue :: Queue -> Queue
dequeue (Q (_:xs)) = Q xs
dequeue (Q []) = error "dequeue: empty queue"
front :: Queue -> Char
front (Q (x:_)) = x
front (Q []) = error "front: empty queue"
私のプログラムはキューを文字列に変換しません。問題はどこだ?前もって感謝します。