Longest palindromic substrings: Difference between revisions
m
→Manacher Function
Line 11:
===Manacher Function===
<lang fsharp>
//
let Manacher(s:string) = let oddP,evenP=Array.zeroCreate s.Length,Array.zeroCreate s.Length
let rec fN i g e (l:int[])=match g>=0 && e<s.Length && s.[g]=s.[e] with true->l.[i]<-l.[i]+1; fN i (g-1) (e+1) l |_->()
Line 26:
(fGo 0 -1 0,fGe 0 -1 0)
</lang>
===The Task===
<lang fsharp>
| |||