매��� �������� 들��� ���는 방법...

~cpp
minsum s n
    | sum [1..n] < s = minsum s (n+1)
    | otherwise = (n, sum [1..n])

sum��� 공������ ������������만...��������� �������� 들��� ���������

~cpp
naturalSum n = n * (n+1) `div` 2
minsum s n
    | naturalSum n < s = minsum s (n+1)
    | otherwise = (n, naturalSum n)

minsum 3000 1

������������������/��������� 방���, ������������법과 lazy evaluation ������

~cpp
take 1 [(n,naturalSum n)| n<-[1..], naturalSum n >= s]

----
������������������