>>499
そのままでは無理だけど、
diviAll n list = map (flip divi n) list
とか、
diviAll n list = map (`divi` n) list
とか、
diviAll n list = map (\x -> divi x n) list
などと書ける。どれも単純な部分適用ほど読みやすくないけど。

diviがもっとたくさんの引数を取る複雑な関数だったら、
diviAll n list = map divN list
  where
    divN x = divi x n
というスタイルが書きやすいかな。