8 lines
129 B
Haskell
8 lines
129 B
Haskell
|
module Factorial where
|
||
|
|
import Language.Haskell.TH.Syntax
|
||
|
|
|
||
|
|
fact n = product [1..n]
|
||
|
|
|
||
|
|
factQ :: Integer -> Q Exp
|
||
|
|
factQ = lift . fact
|