またHaskell

昨日の続き。詰まるところ、２行なんですよ。２行。

f x y z w = 10 * abs(x-1) + y^2 + 2*(z-1)^2 + 60/(abs (2*w-9))
answer = maximum [ f a b c d | a <- [0..6], b <- [0..6], c <- [0..6], d <- [0..6], a + b + c + d == 6]

一応、もう締め切りだしね。これはきれいだろ。問題を写したら答えをはいてくれる、みたいな。まぁ、問題が簡単だからっていうのは抜きにして。。。