Adds OCaml p006

FrankKair · Feb 11, 2020 · 5c5421f · 5c5421f
1 parent 354fc48
commit 5c5421f
Showing 1 changed file with 22 additions and 0 deletions.
diff --git a/src/006/p006.ml b/src/006/p006.ml
@@ -0,0 +1,22 @@
+open Base
+open Stdio
+
+let squared x = x * x
+
+let sum = List.fold ~init:0 ~f:(+)
+
+let sum_of_sqs =
+  List.range 1 101
+  |> List.map ~f:(squared)
+  |> sum
+
+let sq_of_sum =
+  List.range 1 101
+  |> sum
+  |> squared
+
+let solve =
+  sq_of_sum - sum_of_sqs
+
+let () =
+  printf "%d\n" solve