initial commit

28.fs

@@ -0,0 +1,12 @@
+module _28
+
+let sumNum =
+    let sideLength count =
+        seq {
+            for i in 1..(count/2) do
+                for l in 1..4 do
+                    yield i * 2
+        }
+    sideLength 1001
+    |> Seq.scan ( fun sum item -> sum + item) 1
+    |> Seq.sum