F＃Store Store的解決方案

Question

我想解決這個問題：http://code.google.com/codejam/contest/351101/dashboard#s=p0使用F＃。

我是新來的函數式編程和F＃但我很喜歡這個概念和語言。我也喜歡codejam運動，它看起來很容易，但真實生活。有人可以指出我的解決方案嗎？

在我寫了這個代碼，只是普通的祈使句和長相醜陋，從功能上講的那一刻：

(* 
    C - Credit 
    L - Items 
    I - List of Integer, wher P is single integer 

    How does the data look like inside file 
    N 
    [... 
    * Money 
    * Items in store 
    ...] 
*) 

    let lines = System.IO.File.ReadAllLines("../../../../data/A-small-practice.in") 
    let CBounds c = c >= 5 && c <= 1000 
    let PBounds p = p >= 1 && p <= 1000 

    let entries = int(lines.[0]) - 1 
    let mutable index = 1 (* First index is how many entries*) 
    let mutable case = 1 

    for i = 0 to entries do 
     let index = (i*3) + 1 
     let C = int(lines.[index]) 
     let L = int(lines.[index+1]) 
     let I = lines.[index+2]  
     let items = I.Split([|' '|]) |> Array.map int  
     // C must be the sum of some items 

     // Ugly imperative way which contains duplicates 
     let mutable nIndex = 0 
     for n in items do 
      nIndex <- nIndex + 1 
      let mutable mIndex = nIndex 
      for m in items.[nIndex..] do    
       mIndex <- mIndex + 1 
       if n + m = C then do 
        printfn "Case #%A: %A %A" case nIndex mIndex 
        case <- case + 1 

我想找出加起來C值而不是在一個平常的物品命令性的方式 - 我想要功能性的方法。

Answer 1

您不指定如何解決問題，因此很難提供建議。

關於閱讀輸入，您可以將其表示爲Seq的一系列轉換。從Seq module高階功能非常方便：

let data = 
    "../../../../data/A-small-practice.in" 
    |> System.IO.File.ReadLines 
    |> Seq.skip 1 
    |> Seq.windowed 3 
    |> Seq.map (fun lines -> let C = int(lines.[0]) 
          let L = int(lines.[1]) 
          let items = lines.[2].Split([|' '|]) |> Array.map int 
          (C, L, items)) 

UPDATE：

對於示例的其餘部分，你可以使用sequence expression。它具有足夠的功能並且易於表達嵌套計算：

let results = 
    seq { 
      for (C, _, items) in data do 
      for j in 1..items.Length-1 do 
       for i in 0..j-1 do 
       if items.[j] + items.[i] = C then yield (i, j) 
    } 

Seq.iteri (fun case (i, j) -> printfn "Case #%A: %A %A" case i j) results