From adcd3d4d04ed1fddf6c127d17dac6c3fefed407a Mon Sep 17 00:00:00 2001 From: Jed Barber Date: Fri, 28 Sep 2012 00:47:29 +1000 Subject: Added function to compute the difference of two stacks --- Library/Stack.hs | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/Library/Stack.hs b/Library/Stack.hs index 29dd17c..99cd8e1 100644 --- a/Library/Stack.hs +++ b/Library/Stack.hs @@ -4,7 +4,8 @@ module Library.Stack ( at, pop, (<:>), - size + size, + diff ) where @@ -42,3 +43,8 @@ x <:> (Stack list) = Stack (x : list) size :: Stack a -> Int size (Stack list) = length list + + +diff :: (Eq a) => Stack a -> Stack a -> Stack a +diff (Stack one) (Stack two) = Stack (one \\ two) + -- cgit