>>> let sq x = x * x >>> let rosenbrock [x,y] = sq (1 - x) + 100 * sq (y - sq x) >>> rosenbrock [0,0] 1 >>> rosenbrock (conjugateGradientDescent rosenbrock [0, 0] !! 5) < 0.1 True
>>> let sq x = x * x >>> let rosenbrock [x,y] = sq (1 - x) + 100 * sq (y - sq x) >>> rosenbrock [0,0] 1 >>> rosenbrock (conjugateGradientDescent rosenbrock [0, 0] !! 5) < 0.1 True