https://mediawiki.zeropage.org/index.php?action=history&feed=atom&title=%EC%B5%9C%EC%86%8C%EC%A0%95%EC%88%98%EC%9D%98%ED%95%A9%2F%EC%9E%84%EC%9D%B8%ED%83%9D2최소정수의합/임인택2 - Revision history2026-05-15T03:21:36ZRevision history for this page on the wikiMediaWiki 1.39.8https://mediawiki.zeropage.org/index.php?title=%EC%B5%9C%EC%86%8C%EC%A0%95%EC%88%98%EC%9D%98%ED%95%A9/%EC%9E%84%EC%9D%B8%ED%83%9D2&diff=75960&oldid=previmported>Unknown at 05:31, 7 February 20212021-02-07T05:31:17Z<p></p>
<p><b>New page</b></p><div> <br />
roots a b c =<br />
let<br />
det = sqrt(b*b - 4*a*c) <br />
twice_a = 2 * a<br />
in ((-b+det)/twice_a,<br />
(-b+det)/twice_a)<br />
<br />
minint val =<br />
let<br />
rnd = round (fst (roots 1.0 1.0 (-2*val) ) )<br />
in<br />
(rnd, toRational (rnd*(rnd+1))/2)<br />
----<br />
1~N 까지 합 구하는 부분을 <br />
<br />
mysum 1 = 1<br />
mysum n = n + mysum (n-1)<br />
<br />
로 정의했다가 이전에 작성했던데로 gauss 의 방법을 이용하여,<br />
mysum n = n * (n+1) / 2<br />
로 바꾸었더니 type error가 났다. 이유인즉, <br />
rnd = round (fst (roots 1.0 1.0 (-2*val) ) )<br />
에서 rnd의 타입이 Integer로 되었는데 Integer는 다른 값으로 나눠지지 않았다(내가 방법을 모르고 있을수도 있겠지만). haskell wiki를 뒤져 toRational 이라는 함수를 찾았지만 출력되는 모양이 영 마음에 들지 않는다.<br />
<br />
HaskellLanguage 에서는 다른 언어와 달리 형 변환이 잘 안된다. 왜 이렇게 만들어놓았을까?<br />
----<br />
[[최소정수의합]], [[LittleAOI]]<br />
</div>imported>Unknown