summaryrefslogtreecommitdiff
path: root/Stack.hs
diff options
context:
space:
mode:
authorJed Barber <jjbarber@y7mail.com>2012-09-13 02:14:04 +1000
committerJed Barber <jjbarber@y7mail.com>2012-09-13 02:14:04 +1000
commitea3f1f7736c57747e743a5106b917d2853c62f57 (patch)
treef6aa645c04b3606694184fa9b949abd020550643 /Stack.hs
parentec95ea382132f0702e5046a721e4d8ea4cdc82e3 (diff)
Cleaner directory structure, addition of make clean, grouping of library modules into a single package
Diffstat (limited to 'Stack.hs')
-rw-r--r--Stack.hs39
1 files changed, 0 insertions, 39 deletions
diff --git a/Stack.hs b/Stack.hs
deleted file mode 100644
index 2b369b7..0000000
--- a/Stack.hs
+++ /dev/null
@@ -1,39 +0,0 @@
-module Stack (
- Stack,
- empty,
- at,
- pop,
- (<:>)
- ) where
-
-
-import Data.List
-
-
-data Stack a = Stack [a]
-
-
-instance Show a => Show (Stack a) where
- show (Stack x) = "Stack:\n" ++ intercalate "\n" (map (show) x) ++ "\n\n"
-
-
-infixr 9 <:>
-
-
-empty :: Stack a
-empty = Stack []
-
-
-at :: Stack a -> Int -> Maybe a
-at (Stack list) index =
- if (index < length list && index >= 0)
- then Just (list!!index)
- else Nothing
-
-
-pop :: Int -> Stack a -> Stack a
-pop n (Stack list) = Stack (drop n list)
-
-
-(<:>) :: a -> Stack a -> Stack a
-x <:> (Stack list) = Stack (x : list)