20 lines
524 B
Haskell
20 lines
524 B
Haskell
module Main where
|
|
|
|
import Utils (askChoice)
|
|
import qualified FactorizationUI
|
|
|
|
main :: IO ()
|
|
main = do
|
|
putStrLn "Haskell Math Toolkit"
|
|
putStrLn "1) Factorization"
|
|
putStrLn "2) Modular square root (not yet implemented)"
|
|
putStrLn "3) Primality test (not yet implemented)"
|
|
|
|
choice <- askChoice 3
|
|
|
|
case choice of
|
|
1 -> FactorizationUI.run
|
|
2 -> putStrLn "Modular square root: not implemented yet."
|
|
3 -> putStrLn "Primality test: not implemented yet."
|
|
_ -> error "Impossible"
|