13 lines
395 B
Haskell
13 lines
395 B
Haskell
module Main (main) where
|
|
|
|
import Data.Vector qualified as V
|
|
import Poly
|
|
|
|
main :: IO ()
|
|
main = do
|
|
let f :: Poly Int = Poly (V.fromList [1, 2, 3])
|
|
let g :: Poly Int = Poly (V.fromList [4, 5])
|
|
putStrLn $ "f: " <> show f <> ", g: " <> show g
|
|
putStrLn $ "f + g: " <> show (f + g)
|
|
putStrLn $ "f * g: " <> show (f * g)
|
|
putStrLn $ "Karatsuba f * g: " <> show (normalize $ karatsubaMult f g)
|