配列を実験するソース

[]
let main argv = 
    // 1 - 100 step 1
    let baseList1 = [1 .. 100]
    // 1 - 100 step 10
    let baseList2 = [10 .. 10 .. 100]

    printfn "testing List = %A" baseList1
    printfn "--"
    printfn "List.Head = %d" baseList1.Head
    printfn "List.reverse = %A" (List.rev baseList1)

    printfn "partition mod 10"
    let filter x = ((x % 10) = 0) 
    let ansList1, ansList2 = List.partition filter baseList1

    printfn "answer-1 = %A" ansList1
    printfn "answer-1.length = %d" ansList1.Length

    printfn "answer-2.length = %d" ansList2.Length

    printfn "compare List = %A" baseList2
    if (baseList2.Head = ansList1.Head) then printfn "Head is same!"
    if (baseList2.Tail = ansList1.Tail) then printfn "Tail is same!"

    0 // return an integer exit code

処理結果