diff options
| author | Jed Barber <jjbarber@y7mail.com> | 2014-04-08 15:06:40 +1000 |
|---|---|---|
| committer | Jed Barber <jjbarber@y7mail.com> | 2014-04-08 15:06:40 +1000 |
| commit | 03d38eb3190eb5e51fb18847fe0792013285bde5 (patch) | |
| tree | 1060d26d3042b5c0c5b1c027fac45fe87f3d685a /Delete.hs | |
| parent | f2c4e4614613ede497f19ef79dc7dc157eaca834 (diff) | |
Reorganising source code
Diffstat (limited to 'Delete.hs')
| -rw-r--r-- | Delete.hs | 20 |
1 files changed, 0 insertions, 20 deletions
diff --git a/Delete.hs b/Delete.hs deleted file mode 100644 index 3b9a1c7..0000000 --- a/Delete.hs +++ /dev/null @@ -1,20 +0,0 @@ -import System.Environment( getArgs ) -import Text.Printf -import Library.Parse -import Library.ProofGraph -import Library.WriteProof - -import qualified Data.Graph.Inductive.Graph as Graph - - - -main = do - args <- getArgs - list <- getLines (head args) - let graph = doGraphGen (map (stripReturn) list) - initList = filter (\x -> Graph.indeg graph x == 0) (Graph.nodes graph) - thmList = (map (\(_,y) -> y)) . - (filter (\(x,y) -> (show x) `notElem` (tail args))) . - (zip [1..]) $ initList - trace = writeAll graph thmList - output trace |