Multidimensional Arrays and Copyto?

[PakzParticipant]

I was wondering how (or if it is possible) to copy a multidimensional array with the “Array.Copyto” command?

At the moment I use for loops to copy the contenst of a multidimensional array.

[DaniloParticipant]

Could you use this?

Monkey

#Import "<std>" Using std.. Function Main() Local arr := New Int[][10] For Local i := 0 Until 10 arr[i] = New Int[10] Next arr[3][3] = 33 arr[4][4] = 44 arr[5][5] = 55 Local arr2 := New Int[][10] arr.CopyTo(arr2,0,0,arr.Length) Print arr2[3][3] Print arr2[4][4] Print arr2[5][5] End

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

#Import "<std>"   Using std..   Function Main()       Local arr := New Int[][10]       For Local i := 0 Until 10         arr[i] = New Int[10]     Next       arr[3][3] = 33     arr[4][4] = 44     arr[5][5] = 55       Local arr2 := New Int[][10]          arr.CopyTo(arr2,0,0,arr.Length)          Print arr2[3][3]     Print arr2[4][4]     Print arr2[5][5]   End

If you mean multimensional [10,10] arrays, I don’t know.

[PakzParticipant]

Yeah, I was wondering how to do it with the [,] arrays. Maybe someone else knows.

edit: I guess if you would create a function that returns a multidimensional array and inputs a multimimensional array you would be able to copy it that way.

[abakoboParticipant]

Monkey

[crayon-5cb9d2d071d90371696888 inline="true" ] Function CopyMDArray<T>:T[,](Arr:T[,]) Local x:=Arr.GetSize(0) Local y:=Arr.GetSize(1) Local newArr:=New T[x,y] For local i:=0 To x-1 For Local j:=0 To y-1 newArr[i,j]=Arr[i,j] Next Next Return newArr End

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

[crayon-5cb9d2d071d90371696888 inline="true" ] Function CopyMDArray<T>:T[,](Arr:T[,]) Local x:=Arr.GetSize(0) Local y:=Arr.GetSize(1) Local newArr:=New T[x,y] For local i:=0 To x-1 For Local j:=0 To y-1 newArr[i,j]=Arr[i,j] Next Next Return newArr End

[/crayon]

[Mark SiblyKeymaster]

There is no built-in way to do this yet (it’s easy for ‘2’ or ‘3’ dimensions, harder for ‘N’!) but abakobo’s solution look cool, although I’d probably rename it to Copy2DArray.

[PakzParticipant]

Returning arrays from functions do not require you to copy each element. This is done automatically. Only the Return is needed

Monkey

Function copy2darray<T>:T[,](in:T[,]) Return in End Function

1 2 3 4

Function copy2darray<T>:T[,](in:T[,]) Return in End Function

[PakzParticipant]

I also tried to do this with the Lambda but I was not able fo figure out how to use the Typecasts <T>

The regular way works.

Monkey

Local copy2darray := Lambda:Int[,](in:int[,]) Return in End Lambda Usage : myarray2 = copy2darray(myarray1)

1 2 3 4 5 6

Local copy2darray := Lambda:Int[,](in:int[,]) Return in End Lambda   Usage : myarray2 = copy2darray(myarray1)

 

Lambda’s are kind of like functions but they can be put near the code that you are working with.

[DaniloParticipant]

@pakz:
Looks like this is not a real copy:

Monkey

#Import "<std>" Using std.. Function Copy2DArray<T>:T[,](in:T[,]) Return in End Function Main() Local arr1 := New Int[5,5] arr1[3,3] = 33 Print arr1[3,3] Local arr2 := Copy2DArray(arr1) Print arr2[3,3] Print arr2[4,4] arr1[4,4] = 44 ' change arr1... Print arr2[3,3] Print arr2[4,4] ' ...arr2 is also changed End

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

#Import  "<std>"   Using std..   Function Copy2DArray<T>:T[,](in:T[,])     Return in End   Function Main()      Local arr1 := New Int[5,5]           arr1[3,3] = 33           Print arr1[3,3]           Local arr2 := Copy2DArray(arr1)        Print arr2[3,3]      Print arr2[4,4]        arr1[4,4] = 44   ' change arr1...        Print arr2[3,3]      Print arr2[4,4]  ' ...arr2 is also changed End

[PakzParticipant]

No, just checked it. You are right. Good to know.

btw, anyone know how to do the typecast with the lambda’s?

[Mark SiblyKeymaster]

Arrays are not copied automatically, ie: they are reference types.

[DaniloParticipant]

So @abakobo was right with his way of copying everything.

We can make this for 3 dimensions:

Monkey

' ' http://monkeycoder.co.nz/forums/topic/multidimensional-arrays-and-copyto/ ' Function CloneArray<T>:T[](Arr:T[]) ' 1 dimension Local x := Arr.GetSize(0) Local newArr := New T[x] For local i:=0 Until x newArr[i] = Arr[i] Next Return newArr End Function CloneArray<T>:T[,](Arr:T[,]) ' 2 dimensions Local x := Arr.GetSize(0) Local y := Arr.GetSize(1) Local newArr := New T[x,y] For local i:=0 Until x For Local j:=0 Until y newArr[i,j]=Arr[i,j] Next Next Return newArr End Function CloneArray<T>:T[,,](Arr:T[,,]) ' 3 dimensions Local x := Arr.GetSize(0) Local y := Arr.GetSize(1) Local z := Arr.GetSize(2) Local newArr:=New T[x,y,z] For local i:=0 Until x For Local j:=0 Until y For Local k:=0 Until z newArr[i,j,k]=Arr[i,j,k] Next Next Next Return newArr End '=================================== Function Main() Print "1 dimension:" Test1D() Print "2 dimensions:" Test2D() Print "3 dimensions:" Test3D() End Function Test1D() Local arr1D := New String[]( "a", "b", "c" ) Local copy1D := CloneArray(arr1D) copy1D[1] = "d" Print arr1D[0] Print arr1D[1] Print arr1D[2] Print "===" Print copy1D[0] Print copy1D[1] Print copy1D[2] End Function Test2D() Local arr2D := New Int[5,5] arr2D[3,3] = 33 Local copy2D := CloneArray(arr2D) Print copy2D[3,3] Print copy2D[4,4] arr2D[4,4] = 44 Print copy2D[3,3] Print copy2D[4,4] End Function Test3D() Local arr3D := New Float[3,3,3] arr3D[0,1,2] = 1.5 Local copy3D := CloneArray(arr3D) Print arr3D[0,1,2] Print copy3D[0,1,2] copy3D[0,1,2] = 2.5 Print arr3D[0,1,2] Print copy3D[0,1,2] End

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107

' ' http://monkeycoder.co.nz/forums/topic/multidimensional-arrays-and-copyto/ ' Function CloneArray<T>:T[](Arr:T[])      ' 1 dimension Local x := Arr.GetSize(0) Local newArr := New T[x] For local i:=0 Until x         newArr[i] = Arr[i] Next Return newArr End   Function CloneArray<T>:T[,](Arr:T[,])    ' 2 dimensions Local x := Arr.GetSize(0) Local y := Arr.GetSize(1) Local newArr := New T[x,y] For local i:=0 Until x For Local j:=0 Until y newArr[i,j]=Arr[i,j] Next Next Return newArr End   Function CloneArray<T>:T[,,](Arr:T[,,])  ' 3 dimensions Local x := Arr.GetSize(0) Local y := Arr.GetSize(1) Local z := Arr.GetSize(2) Local newArr:=New T[x,y,z] For local i:=0 Until x For Local j:=0 Until y     For Local k:=0 Until z     newArr[i,j,k]=Arr[i,j,k] Next Next Next Return newArr End   '===================================   Function Main()     Print "1 dimension:"     Test1D()     Print "2 dimensions:"     Test2D()     Print "3 dimensions:"     Test3D() End   Function Test1D()     Local arr1D := New String[]( "a", "b", "c" )       Local copy1D := CloneArray(arr1D)          copy1D[1] = "d"          Print arr1D[0]     Print arr1D[1]     Print arr1D[2]     Print "==="     Print copy1D[0]     Print copy1D[1]     Print copy1D[2] End   Function Test2D()      Local arr2D := New Int[5,5]           arr2D[3,3] = 33                 Local copy2D := CloneArray(arr2D)        Print copy2D[3,3]      Print copy2D[4,4]        arr2D[4,4] = 44        Print copy2D[3,3]      Print copy2D[4,4] End   Function Test3D()     Local arr3D := New Float[3,3,3]          arr3D[0,1,2] = 1.5       Local copy3D := CloneArray(arr3D)       Print arr3D[0,1,2]     Print copy3D[0,1,2]          copy3D[0,1,2] = 2.5       Print arr3D[0,1,2]     Print copy3D[0,1,2] End

[Gerry QuinnParticipant]

This was easy enough in Original Monkey, and I would imagine that a variation could be used in Monkey 2.  The trick was that if you already made a templated 1D array copy, you can then use it in your 2D one, and so on.  OFC you still need to make separate ones for as many dimensions as you think you’ll need, but not much coding is involved.  Here is the Monkey X version:

Class for generic functions

Monkey

' Class for generic functions Class Generic< T > ' Return a copy of the passed 1D array (will not 'deep copy' objects, just copies references) Function CopyArray:T[]( orig:T[] ) Local len:Int = orig.Length() Local arr:T[] = New T[ len ] For Local i:Int = 0 Until len arr[ i ] = orig[ i ] Next Return arr End ' Return a copy of the passed 2D array (will not 'deep copy' objects, just copies references) Function CopyArray:T[][]( orig:T[][] ) Local len:Int = orig.Length() Local arr:T[][] = New T[ len ][] For Local i:Int = 0 Until len arr[ i ] = CopyArray( orig[ i ] ) Next Return arr End ' Return a copy of the passed 3D array (will not 'deep copy' objects, just copies references) Function CopyArray:T[][][]( orig:T[][][] ) Local len:Int = orig.Length() Local arr:T[][][] = New T[ len ][][] For Local i:Int = 0 Until len arr[ i ] = CopyArray( orig[ i ] ) Next Return arr End End

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36

' Class for generic functions Class Generic< T >   ' Return a copy of the passed 1D array (will not 'deep copy' objects, just copies references) Function CopyArray:T[]( orig:T[] ) Local len:Int = orig.Length() Local arr:T[] = New T[ len ] For Local i:Int = 0 Until len arr[ i ] = orig[ i ] Next Return arr End ' Return a copy of the passed 2D array (will not 'deep copy' objects, just copies references) Function CopyArray:T[][]( orig:T[][] ) Local len:Int = orig.Length() Local arr:T[][] = New T[ len ][] For Local i:Int = 0 Until len arr[ i ] = CopyArray( orig[ i ] ) Next Return arr End ' Return a copy of the passed 3D array (will not 'deep copy' objects, just copies references) Function CopyArray:T[][][]( orig:T[][][] ) Local len:Int = orig.Length() Local arr:T[][][] = New T[ len ][][] For Local i:Int = 0 Until len arr[ i ] = CopyArray( orig[ i ] ) Next Return arr End End

[Author]

Posts