F #의 2D 동적 프로그래밍

Question

F #의 2D에서 간단한 동적 프로그래밍 알고리즘을 구현해야합니다. 간단한 1D의 경우 Seq.unfold가 이동하는 방법 인 것 같습니다. https://stackoverflow.com/a/7986083/5363

2D에서 비슷한 결과를 얻을 수있는 좋은 방법이 있습니까? 예 : 기능적 스타일로 다음 의사 코드를 다시 작성하십시오.

let alpha = 
    let result = Array2D.zeroCreate N T 
    for i in 0 .. N-1 do 
     result.[0, i] <- (initialPi i) * (b i observations.[0]) 
    for t in 1 .. T-1 do 
     for i in 0 .. N-1 do 
     let s = row t-1 result |> Seq.mapi (fun j alpha_t_j -> alpha_t_j * initialA.[i, j])() |> Seq.sum 
     result.[t, i] <- s * (b i observations.[t]) 
    result 

누락 된 모든 함수와 배열은 위에 정의 된 것으로 가정합니다.

Answer 1

편집 : 당신이 변환

let alpha = 
    let rec build prev idx max = 
     match idx with 
     |0 -> 
      let r = (Array.init N (fun i -> (initialPi y) * (b i observations.[0])) 
      r:: (build r 1 max) 
     |t when t=max -> [] 
     |_ -> 
      let s = prev |> Seq.mapi (fun j alpha_t_j -> alpha_t_j * initialA.[i, j])() |> Seq.sum 
      let r = Array.init N (fun i -> s * (b i observations.[t])) 
     r:: build r (idx+1 max) 
    build [] 0 T |> List.toArray