huttons-razor (empty) → 0.1.0.0

raw patch · 4 files changed

+76/−0 lines, 4 filesdep +basedep +parsecdep +parsec-numberssetup-changed

Dependencies added: base, parsec, parsec-numbers

Files

• LICENSE +26/−0
• Setup.hs +2/−0
• huttons-razor.cabal +23/−0
• src/Main.hs +25/−0

@@ -0,0 +1,26 @@+Copyright (c) 2015, Steven Shaw+All rights reserved.++Redistribution and use in source and binary forms, with or without+modification, are permitted provided that the following conditions are+met:++1. Redistributions of source code must retain the above copyright+   notice, this list of conditions and the following disclaimer.++2. Redistributions in binary form must reproduce the above copyright+   notice, this list of conditions and the following disclaimer in the+   documentation and/or other materials provided with the+   distribution.++THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS+"AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT+LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR+A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT+OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,+SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT+LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,+DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY+THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT+(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE+OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.

@@ -0,0 +1,2 @@+import Distribution.Simple+main = defaultMain

@@ -0,0 +1,23 @@+name:                huttons-razor+version:             0.1.0.0+synopsis:            Quick implemention of Hutton's Razor+-- description:         +license:             BSD2+license-file:        LICENSE+author:              Steven Shaw+maintainer:          steven@steshaw.org+-- copyright:           +-- category:            +build-type:          Simple+-- extra-source-files:  +cabal-version:       >=1.10++executable huttons-razor+  main-is:             Main.hs+  -- other-modules:       +  -- other-extensions:    +  build-depends:       base >=4.8 && <4.9+                     , parsec+                     , parsec-numbers+  hs-source-dirs:      src+  default-language:    Haskell2010

@@ -0,0 +1,25 @@+import System.Environment+import Control.Monad (forM_)+import Text.ParserCombinators.Parsec+import qualified Text.ParserCombinators.Parsec.Number as Numbers++expr = chainl1 int infixOp++int = Numbers.int++infixOp = do+  spaces+  char '+'+  spaces+  return (+)++runExpr = runParser expr 0 "<input>"++showResult (Left a)  = "Error: " ++ show a+showResult (Right a) = show a+  +main = do+  putStrLn "args:"+  args <- System.Environment.getArgs+  args `forM_` ((\s -> putStr " - " >> putStrLn s) . showResult . runExpr)+  putStrLn ""