From 281425310c5db21f87981eeb9601a71d1974d98d Mon Sep 17 00:00:00 2001
From: Jed Barber <jjbarber@y7mail.com>
Date: Thu, 10 Apr 2014 05:25:03 +1000
Subject: Rearranging files

---
 Fractran/Parser.hs | 68 ------------------------------------------------------
 1 file changed, 68 deletions(-)
 delete mode 100644 Fractran/Parser.hs

(limited to 'Fractran/Parser.hs')

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 ")
-
-- 
cgit