initial commit

36.fs

@@ -0,0 +1,12 @@
+module _36
+
+let binary (n:int) =
+    System.Convert.ToString(n,2)
+
+let palindromicBase10and2Sum =
+    [1..1000000] 
+    |> List.map (fun n -> (string n, binary n))
+    |> List.filter (fst >> common.isPalindrome)
+    |> List.filter (snd >> common.isPalindrome)
+    |> List.map (fst >> int)
+    |> List.sum