aboutsummaryrefslogtreecommitdiff
path: root/src/main.hs
diff options
context:
space:
mode:
authorCharles <sircharlesaze@gmail.com>2020-03-09 20:52:05 +0100
committerCharles <sircharlesaze@gmail.com>2020-03-09 20:52:05 +0100
commit0b9af447ffa279f07bdcbc8201a6ad8d731ea95b (patch)
tree9c1c3eb3909779dbf424549f637b4f0a10da47c8 /src/main.hs
parent3bfad391d39d2c23cc01ca4c5ef5faa28575a346 (diff)
downloadcomputorv1-0b9af447ffa279f07bdcbc8201a6ad8d731ea95b.tar.gz
computorv1-0b9af447ffa279f07bdcbc8201a6ad8d731ea95b.tar.bz2
computorv1-0b9af447ffa279f07bdcbc8201a6ad8d731ea95b.zip
Spaces in parsing, more intuitive equation display
Diffstat (limited to 'src/main.hs')
-rw-r--r--src/main.hs1
1 files changed, 1 insertions, 0 deletions
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)