From 0b9af447ffa279f07bdcbc8201a6ad8d731ea95b Mon Sep 17 00:00:00 2001
From: Charles <sircharlesaze@gmail.com>
Date: Mon, 9 Mar 2020 20:52:05 +0100
Subject: Spaces in parsing, more intuitive equation display

---
 src/main.hs | 1 +
 1 file changed, 1 insertion(+)

(limited to 'src/main.hs')

diff --git a/src/main.hs b/src/main.hs
index 4b365a2..f466b68 100644
--- a/src/main.hs
+++ b/src/main.hs
@@ -11,6 +11,7 @@ main = do
     equ <- checkParsing (head args)
     let reduced = reduce equ
     putStrLn $ "Reduced From: " ++ show reduced
+    putStrLn $ "Polynomial degree: " ++ (show $ degree $ left reduced)
     putSolutions (left reduced)
 
 
-- 
cgit