~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 는 른 리 변 . 만들놓?
