|
multiplyBy :: Int -> (Int -> Int)
|
|
double :: Int -> Int
|
|
|
|
multiplyBy = (*)
|
|
double = multiplyBy 2
|
|
triple = multiplyBy 3
|
|
|
|
|
|
-- Test cases
|
|
main = do
|
|
print (double 4) -- Expected output: 8
|
|
print (double 7) -- Expected output: 14
|
|
print (triple 4) -- Expected output: 12
|