Back to Questions
1.2k
views4
comments
Need help for Array.2D
f#

Hello,
I want to find how to do this using Array functions, may be Array2D.

> let nums = [| 1; 3 |]
let numsArray = nums |> Array.map(fun x -> System.BitConverter.GetBytes(x))
let letters = [| "A"; "B"; "C" |] |> Array.map(fun x -> System.Text.Encoding.ASCII.GetBytes(x)) ;;

val nums : int [] = [|1; 3|]
val numsArray : byte [] [] = [|[|1uy; 0uy; 0uy; 0uy|]; [|3uy; 0uy; 0uy; 0uy|]|]
val letters : byte [] [] = [|[|65uy|]; [|66uy|]; [|67uy|]|]

I want to get a 2D array called bytesLettersNums:
let bytesLettersNums = [|[| 65uy; 1uy; 0uy; 0uy; 0uy|]; [| 65uy; 3uy; 0uy; 0uy; 0uy|];
[| 66uy; 1uy; 0uy; 0uy; 0uy|]; [| 66uy; 3uy; 0uy; 0uy; 0uy|];
[| 67uy; 1uy; 0uy; 0uy; 0uy|]; [| 67uy; 3uy; 0uy; 0uy; 0uy|] |]

I think I may use Array2D functions to do this, but it is difficult to find any F# code samples for Array2D.
Any help is appreciated!
Please show me your code.
Thanks,

.

Hello. Im not really sure what the task is. Is it something like this you want:

1
2
3
4
5
6

let arrayappend a1 a2 =
    [ for row1 in a1
       do for row2 in a2
           do yield (List.ofArray row1) @ (List.ofArray row2)
    ]
    |> array2D

Then

1

arrayappend letters numsArray

yields

1
2
3
4
5
6

val it : byte [,] = [[65uy; 1uy; 0uy; 0uy; 0uy]
                     [65uy; 3uy; 0uy; 0uy; 0uy]
                     [66uy; 1uy; 0uy; 0uy; 0uy]
                     [66uy; 3uy; 0uy; 0uy; 0uy]
                     [67uy; 1uy; 0uy; 0uy; 0uy]
                     [67uy; 3uy; 0uy; 0uy; 0uy]]
By on 12/11/2010 10:45 AM ()

Excellent!
Your code works!
However, I want to change the output to use tuples.
I mean, I want the result looks like:
[(65uy, 1uy, 0uy, 0uy, 0uy)
(65uy, 3uy, 0uy, 0uy, 0uy)
(66uy, 1uy, 0uy, 0uy, 0uy)
(66uy, 3uy, 0uy, 0uy, 0uy)
(67uy, 1uy, 0uy, 0uy, 0uy)
(67uy, 3uy, 0uy, 0uy, 0uy)]
Any idea?
Thanks for your great work again!

By on 12/11/2010 11:16 AM ()
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

let numsArray = [|[|1uy; 0uy; 0uy; 0uy|]; [|3uy; 0uy; 0uy; 0uy|]|]
let letters = [|[|65uy|]; [|66uy|]; [|67uy|]|]


let appendIntoList a1 a2 =
    [ for row1 in a1
       do for row2 in a2
           do yield (List.ofArray row1) @ (List.ofArray row2)
    ]
    
let fromListOfFiveToTuple (e1::e2::e3::e4::[e5]) = e1, e2, e3, e4, e5


let bytesLettersNums = appendIntoList letters numsArray
                       |> List.map fromListOfFiveToTuple
By on 12/12/2010 1:50 PM ()

Thank you very much!
Your code works!
Thanks,

By on 12/13/2010 1:16 PM ()

    Topic tags

    IntelliFactory Offices Copyright (c) 2011-2012 IntelliFactory. All rights reserved.
    Home | Products | Consulting | Trainings | Blogs | Jobs | Contact Us | Terms of Use | Privacy Policy | Cookie Policy     		Built with WebSharper