~cpp roots a b c = let det = sqrt(b*b - 4*a*c) twice_a = 2 * a in ((-b+det)/twice_a, (-b+det)/twice_a) minint val = let rnd = round (fst (roots 1.0 1.0 (-2*val) ) ) in (rnd, toRational (rnd*(rnd+1))/2)
1~N 까 구는 부
~cpp mysum 1 = 1 mysum n = n + mysum (n-1)
로 다가 던데로 gauss 방법 ,
~cpp mysum n = n * (n+1) / 2로 바꾸더 type error가 났다. ,
~cpp rnd = round (fst (roots 1.0 1.0 (-2*val) ) )rnd Integer로 되는데 Integer는 다른 값로 나 다(내가 방법 모르고 겠만). haskell wiki를 뒤 toRational 라는 를 만 력되는 모 들 는다.
HaskellLanguage 는 다른 달리 변 된다. 렇게 만들놓까?
