Простой вопрос по haskell'у

Ну как-то так, наверное:

fn1 :: Integer -> Double
fn1 = (^) (-1)

fn2 :: Integer -> Double
fn2 = fromInteger . (+) 1 . (*) 2

fn3 :: Double -> Double -> Double
fn3 = (/)

myfn :: Integer -> Double
myfn n = fn3 (fn1 n) (fn2 n)

main = print (myfn 5)

предлагаю

fn4 :: (a -> b) -> (a -> c) -> a -> (b, c)
fn4 f1 f2 x = (f1 x, f2 x)

myfn = (uncurry fn3) . fn4 fn1 fn2

disclaimer: код я не тестировал ,-) но идея должна быть понятна, можно дальше еще продолжить

Целые не делятся.

myfn n = fn3 (fromInteger $ fn1 n) (fromInteger $ fn2 n)

> предлагаю

А зачем так?

это в духе твоих fn1, fn2, fb3