Dixon graceful error handling

2026-01-21 10:11:11 +01:00
parent 76caeec9e4
commit 2c1528075c
2 changed files with 16 additions and 12 deletions
--- a/app/FactorizationUI.hs
+++ b/app/FactorizationUI.hs
@@ -42,7 +42,11 @@ dixonUI = do
    n <- askNumber "Enter an integer n > 1:"
    b <- askNumber "Enter the bound B:"
    x <- askNumber "Enter the max random integer x:"
-    let (p, q) = dixon n b x
-    putStrLn ("n = " ++ show n)
-    putStrLn ("p = " ++ show p)
-    putStrLn ("q = " ++ show q)
+
+    case dixon n b x of
+        Left err -> do
+            putStrLn ("Error: " ++ err)
+        Right (p, q) -> do
+            putStrLn ("n = " ++ show n)
+            putStrLn ("p = " ++ show p)
+            putStrLn ("q = " ++ show q)