initial commit

2025-08-03 20:16:55 -07:00
commit 87a130499d
89 changed files with 10241 additions and 0 deletions
@@ -0,0 +1,16 @@
+module _30
+
+let sumOfFifth n =
+    common.numDigits n
+    |> Seq.map (fun d -> System.Math.Pow(float d, 5.0))
+    |> Seq.sum
+    |> int
+
+let isSumOfFifth n =
+    sumOfFifth n = n
+
+let sumOfSumOfFifthNumbers =
+    [2..200000]
+    |> List.map (fun n -> (n,isSumOfFifth n))
+    |> List.filter (fun r -> snd r)
+    |> List.sumBy fst