diff --git a/65 b/65 new file mode 100755 index 0000000..d1ca15f Binary files /dev/null and b/65 differ diff --git a/65.hi b/65.hi new file mode 100644 index 0000000..95f16e4 Binary files /dev/null and b/65.hi differ diff --git a/65.hs b/65.hs new file mode 100644 index 0000000..4d3415c --- /dev/null +++ b/65.hs @@ -0,0 +1,10 @@ +seqOfE = (foldr (++) [] (map (\n -> [1, n, 1]) [64, 62..2])) ++ [2] + +next n (a, b) = (b + n * a, a) + +convergent tup seq = case seq of [] -> tup + (n:ns) -> convergent (next n tup) ns + +sumOfNumeratorDigits (n, _) = foldr (\c acc -> acc + read [c] :: Integer) 0 (show n) + +main = print $ sumOfNumeratorDigits (convergent (68, 67) seqOfE) diff --git a/65.o b/65.o new file mode 100644 index 0000000..08b65f8 Binary files /dev/null and b/65.o differ