http://www.fsharp.it/2008/10/08/project-euler-in-f-problem-36/ Functional programming on .Net Wed, 23 Mar 2011 17:29:06 +0100 http://wordpress.org/?v=2.8.5 hourly 1 http://www.fsharp.it/2008/10/08/project-euler-in-f-problem-36/comment-page-1/#comment-1180 Dimchansky Sat, 29 Nov 2008 16:00:56 +0000 http://www.fsharp.it/?p=56#comment-1180 [fsharp] #light let isSymmetric str = let rec isSymmetric_aux (str:string) s e = if e - s > 0 then if (str.[s] str.[e]) then false else isSymmetric_aux str (s+1) (e-1) else true isSymmetric_aux str 0 ((String.length str) - 1) let answer = {1..999999} |> Seq.filter (fun v -> (System.Convert.ToString(v,10) |> isSymmetric) && (System.Convert.ToString(v,2) |> isSymmetric)) |> Seq.fold (+) 0 [/fsharp] #light let isSymmetric str = let rec isSymmetric_aux (str:string) s e = if e - s > 0 then if (str.[s] str.[e]) then false else isSymmetric_aux str (s+1) (e-1) else true isSymmetric_aux str 0 ((String.length str) - 1) let answer = {1..999999} |> Seq.filter (fun v -> (System.Convert.ToString(v,10) |> isSymmetric) && (System.Convert.ToString(v,2) |> isSymmetric)) |> Seq.fold (+) 0 ]]>