F＃數(shù)組

數(shù)組是固定大小的，基于零的，可變的所有相同類型的連續(xù)數(shù)據(jù)元素的集合。

創(chuàng)建數(shù)組

可以創(chuàng)建使用各種語法和方法陣列或通過使用從陣列模塊的功能。在本節(jié)中，我們將討論在不使用模塊的功能創(chuàng)建數(shù)組。

有三種語法方法來創(chuàng)建沒有函數(shù)的數(shù)組 

//using semicolon separator
let array1 = [| 1; 2; 3; 4; 5; 6 |]
for i in 0 .. array1.Length - 1 do
   printf "%d " array1.[i]
printfn" "

// without semicolon separator
let array2 =
   [|
      1
      2
      3
      4
      5
   |]
for i in 0 .. array2.Length - 1 do
   printf "%d " array2.[i]
printfn" "

//using sequence
let array3 = [| for i in 1 .. 10 -> i * i |]
for i in 0 .. array3.Length - 1 do
   printf "%d " array3.[i]
printfn" "

當(dāng)你編譯和執(zhí)行程序，它產(chǎn)生以下輸出 

1 2 3 4 5 6
1 2 3 4 5
1 4 9 16 25 36 49 64 81 100

對數(shù)組基本操作

在以下部分中，我們將看到的一些這些功能的用途。

創(chuàng)建陣列使用函數(shù)

陣列模塊提供了從頭開始創(chuàng)建一個數(shù)組多種功能。

• 該Array.empty函數(shù)創(chuàng)建一個新的空數(shù)組。

• 該Array.create函數(shù)創(chuàng)建一個指定大小的數(shù)組，并將所有元素給定的值。

• 所述Array.init函數(shù)給出的尺寸和產(chǎn)生的元素的函數(shù)創(chuàng)建一個數(shù)組。

• 所述Array.zeroCreate函數(shù)創(chuàng)建在其中所有元素初始化為零值的數(shù)組。

• 該Array.copy函數(shù)創(chuàng)建一個包含從現(xiàn)有陣列復(fù)制元素的數(shù)組。

• 該Array.sub函數(shù)生成從陣列中的一個子范圍的新數(shù)組。

• 該Array.append函數(shù)創(chuàng)建通過合并兩個現(xiàn)有陣列的新數(shù)組。

• 該Array.choose功能選擇一個數(shù)組元素在新數(shù)組中包含。

• 該Array.collect功能運行的現(xiàn)有陣列的每個數(shù)組元素的指定函數(shù)，然后收集該函數(shù)生成的元素，并將它們組合成一個新的數(shù)組。

• 該Array.concat函數(shù)接受陣列的序列，并將它們組合成一個陣列。

• 該Array.filter函數(shù)接受一個布爾條件的功能，并只包含從輸入數(shù)組，它的條件是真的這些元素的數(shù)組。

• 該Array.rev函數(shù)通過顛倒現(xiàn)有數(shù)組的順序的新數(shù)組。

下面的例子演示這些功能 

例1

(* using create and set *)
let array1 = Array.create 10 ""
for i in 0 .. array1.Length - 1 do
   Array.set array1 i (i.ToString())
for i in 0 .. array1.Length - 1 do
   printf "%s " (Array.get array1 i)
printfn " "

(* empty array *)
let array2 = Array.empty
printfn "Length of empty array: %d" array2.Length

let array3 = Array.create 10 7.0
printfn "Float Array: %A" array3

(* using the init and zeroCreate *)
let array4 = Array.init 10 (fun index -> index * index)
printfn "Array of squares: %A" array4

let array5 : float array = Array.zeroCreate 10
let (myZeroArray : float array) = Array.zeroCreate 10
printfn "Float Array: %A" array5

當(dāng)你編譯和執(zhí)行程序，它產(chǎn)生以下輸出 

0 1 2 3 4 5 6 7 8 9
Length of empty array: 0
Float Array: [|7.0; 7.0; 7.0; 7.0; 7.0; 7.0; 7.0; 7.0; 7.0; 7.0|]
Array of squares: [|0; 1; 4; 9; 16; 25; 36; 49; 64; 81|]
Float Array: [|0.0; 0.0; 0.0; 0.0; 0.0; 0.0; 0.0; 0.0; 0.0; 0.0|]

例2

(* creating subarray from element 5 *)
(* containing 15 elements thereon *)

let array1 = [| 0 .. 50 |]
let array2 = Array.sub array1 5 15
printfn "Sub Array:"
printfn "%A" array2

(* appending two arrays *)
let array3 = [| 1; 2; 3; 4|]
let array4 = [| 5 .. 9 |]
printfn "Appended Array:"
let array5 = Array.append array3 array4
printfn "%A" array5

(* using the Choose function *)
let array6 = [| 1 .. 20 |]
let array7 = Array.choose (fun elem -> if elem % 3 = 0 then
                                             Some(float (elem))
                                          else
                                             None) array6
printfn "Array with Chosen elements:"
printfn "%A" array7

(*using the Collect function *)
let array8 = [| 2 .. 5 |]
let array9 = Array.collect (fun elem -> [| 0 .. elem - 1 |]) array8
printfn "Array with collected elements:"
printfn "%A" array9

當(dāng)你編譯和執(zhí)行程序，它產(chǎn)生以下輸出 

Sub Array:
[|5; 6; 7; 8; 9; 10; 11; 12; 13; 14; 15; 16; 17; 18; 19|]
Appended Array:
[|1; 2; 3; 4; 5; 6; 7; 8; 9|]
Array with Chosen elements:
[|3.0; 6.0; 9.0; 12.0; 15.0; 18.0|]
Array with collected elements:
[|0; 1; 0; 1; 2; 0; 1; 2; 3; 0; 1; 2; 3; 4|]

搜索數(shù)組

該Array.find函數(shù)接受一個布爾函數(shù)，并返回該函數(shù)返回true的第一個元素，否則會引發(fā)KeyNotFoundException。

所述Array.findIndex功能工作，除了它返回元素的索引，而不是元素本身類似。

下面的例子說明了這一點。

Microsoft提供這個有趣的程序例子，它找到的第一個元件在給定的數(shù)，它是兩個完全平方以及完美立方體的范圍 

let array1 = [| 2 .. 100 |]
let delta = 1.0e-10
let isPerfectSquare (x:int) =
   let y = sqrt (float x)
   abs(y - round y) < delta

let isPerfectCube (x:int) =
   let y = System.Math.Pow(float x, 1.0/3.0)
   abs(y - round y) < delta

let element = Array.find (fun elem -> isPerfectSquare elem && isPerfectCube elem) array1

let index = Array.findIndex (fun elem -> isPerfectSquare elem && isPerfectCube elem) array1

printfn "The first element that is both a square and a cube is %d and its index is %d." element index

當(dāng)你編譯和執(zhí)行程序，它產(chǎn)生以下輸出 

The first element that is both a square and a cube is 64 and its index is 62.