Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- let palindromeParallel n =
- [1..n]
- |> Seq.rev
- |> PSeq.map(fun x ->
- [1..n]
- |> Seq.rev
- |> Seq.tryFind(fun y -> (x * y).ToString().ToCharArray() = ((x*y).ToString().ToCharArray() |> Array.rev))
- |> Option.map(fun y -> y*x))
- |> Seq.distinct
- |> Seq.sortDescending
- |> Seq.head
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement