Rearranging files

1 files changed, 0 insertions, 68 deletions

diff --git a/Fractran/Parser.hs b/Fractran/Parser.hs
deleted file mode 100644
index 95aa954..0000000
--- a/Fractran/Parser.hs
+++ /dev/null
@@ -1,68 +0,0 @@
-module Fractran.Parser (
-    FractranProgram(..),
-
-    parseFractran
-    ) where
-
-
-import Control.Applicative( some )
-import Text.ParserCombinators.Parsec
-
-
-
-data FractranProgram = FractranProgram { fractions :: [(Int,Int)]
-                                       , initialValue :: Int }
-    deriving (Show, Eq)
-
-
-
-
-parseFractran :: String -> Either ParseError FractranProgram
-parseFractran = parse fractran "error"
-
-
-
-
-fractran = do
-    whiteSpace
-    value <- initVal
-    fractionList <- many intPair
-    eof
-    return (FractranProgram fractionList value)
-
-
-intPair = do
-    numerator <- wholeNumber
-    slash
-    denominator <- positiveNumber
-    whiteSpace
-    return (numerator,denominator)
-
-
-slash  =  char '/'
-      <?> "slash character"
-
-
-initVal = do
-    value <- wholeNumber
-    whiteSpace
-    return value
-
-
-wholeNumber = do
-    value <- some digit
-    return (read value)
-
-
-positiveNumber = do
-    firstDigit <- nonZeroDigit
-    rest <- many digit
-    return (read (firstDigit:rest))
-
-
-nonZeroDigit  =  oneOf "123456789"
-             <?> "non-zero digit"
-
-
-whiteSpace = many (oneOf "\t\n\r ")
-