cómo crear módulo stack en haskell

A continuación el módulo de la estructura Stack en Haskell con las funciones push, emptyS, top, isEmptyS y pop. [sourcecode] module Stack(Stack,push,emptyS,top,isEmptyS,pop)where data Stack a = MKS [a] deriving Show emptyS :: Stack a emptyS = MKS [] push:: Stack a -> a -> Stack a push (MKS (xs)) n = MKS (n:xs) pop:: Stack […]