>>479,481,483
絶大なる応援アリガトーって、選挙はもう終わった？（藁）
>>484
Cじゃ貴方が分からんでしょう？
で、これならとばかりにコードを見せつける。（藁藁）
module AStack( Stack, push, pop, top, size ) where
data Stack a = Empty
| MkStack a (Stack a)
push :: a -> Stack a -> Stack a
push x s = MkStack x s
size :: Stack a -> Integer
size s = length (stkToLst s) where
stkToLst Empty = []
stktoLst (MkStack x s) = x:xs where xs = stkToLst s
pop :: Stack a -> (a, Stack a)
pop (MkStack x s) = (x, case s of r -> i r where i x = x)
top :: Stack a -> a
top (MkStack x s) = x