Orchid XP v7 <voi### [at] devnull> wrote:
>    solve2 a b c =
>      let det  = sqrt det2
>          det2 = b*b - 4*a*c
>          a2   = 2*a
>      in  [(0-b-det)/a2, (0-b+det)/a2]

  I wonder what something along the lines of this would do:

foo a =
  let res = if a<2 then 1 else a*foo(a-1)
  in res

-- 
                                                          - Warp

Post a reply to this message