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