12 lines
307 B
FSharp
12 lines
307 B
FSharp
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 |