Nested arrays... Little quiz

[Shaggi]

Suppose you have the following code:

$Array = Array1()
#cs
Array Layout:
  $Array[0]  = "one"
  $Array[1]:   $Array2[0]   = "Two"
              $Array2[1]:    $Array3[0] = "Three"
                              $Array3[1] = "Last element"
#ce
Func Array1()
  Local $Array[2] = ["one",Array2()]
  Return $Array
EndFunc
Func Array2()
  Local $Array[2] = ["two",Array3()]
  Return $Array
EndFunc
Func Array3()
  Local $Array[2] = ["Three","Last element"]
  Return $Array
EndFunc

Who is able to change the "Last element" in $Array to something else without creating a new copy of the original array and print it out? Edited October 8, 2011 by Shaggi

[JohnOne]

Bill Gates.

What do I win.

[Shaggi]

Bill Gates.

What do I win.

This:

[JohnOne]

Lovely, now the quiz winner is cleared up, I might have a pop at solving it myself.

What do you regard as the "original array"?

The global one, or one of those in the functions?

[Malkey]

Here is something.

#cs
    Array Layout:
    $Array[0]  = "one"
    $Array[1]:   $Array2[0]   = "Two"
    $Array2[1]:    $Array3[0] = "Three"
    $Array3[1] = "Last element"
#ce

#include <Array.au3>

$Array  = Array1() ; Original copy of $Array

$aTemp1 = $Array[1]
$aTemp2 = $aTemp1[1]
$aTemp2[1] = "Changed element" ; Last element changed

_ArrayDisplay($aTemp2)


Func Array1()
    Local $Array[2] = ["one", Array2()]
    Return $Array
EndFunc   ;==>Array1

Func Array2()
    Local $Array[2] = ["two", Array3()]
    Return $Array
EndFunc   ;==>Array2

Func Array3()
    Local $Array[2] = ["Three", "Last element"]
    Return $Array
EndFunc   ;==>Array3

[Shaggi]

Lovely, now the quiz winner is cleared up, I might have a pop at solving it myself.

What do you regard as the "original array"?

The global one, or one of those in the functions?

Good. The global $Array.

Here is something.

#cs
    Array Layout:
    $Array[0]  = "one"
    $Array[1]:   $Array2[0]   = "Two"
    $Array2[1]: $Array3[0] = "Three"
    $Array3[1] = "Last element"
#ce
 
#include <Array.au3>
 
$Array  = Array1() ; Original copy of $Array
 
$aTemp1 = $Array[1]
$aTemp2 = $aTemp1[1]
$aTemp2[1] = "Changed element" ; Last element changed
 
_ArrayDisplay($aTemp2)
 
 
Func Array1()
    Local $Array[2] = ["one", Array2()]
    Return $Array
EndFunc   ;==>Array1
 
Func Array2()
    Local $Array[2] = ["two", Array3()]
    Return $Array
EndFunc   ;==>Array2
 
Func Array3()
    Local $Array[2] = ["Three", "Last element"]
    Return $Array
EndFunc   ;==>Array3

Obviously on your way, but you are still making copies Modify only the original.

[Mikeman27294]

Hahaha and I am no genious, but I presume that using _ArrayAdd would be cheating (Mainy because it isnt nested).

[JohnOne]

#include <Array.au3>
$Array = Array1()
Array4($Array)
$AE1 = $Array[1]
_ArrayDisplay($AE1[1])
#cs
Array Layout:
  $Array[0]  = "one"
  $Array[1]:   $Array2[0]   = "Two"
              $Array2[1]:   $Array3[0] = "Three"
                              $Array3[1] = "Last element"
#ce
Func Array1()
  Local $Array[2] = ["one",Array2()]
  Return $Array
EndFunc
Func Array2()
  Local $Array[2] = ["two",Array3()]
  Return $Array
EndFunc
Func Array3()
  Local $Array[2] = ["Three","Last element"]
  Return $Array
EndFunc
 
 
Func Array4(ByRef $a_Array)
  $a1 = $a_Array[1]
  $a2 = $a1[1]
  $a2[1] = "Modified"
  $a1[1] = $a2
  $a_Array[1] = $a1
EndFunc

Edited October 9, 2011 by JohnOne

[Shaggi]

Hahaha and I am no genious, but I presume that using _ArrayAdd would be cheating (Mainy because it isnt nested).

Wouldn't work any way

#include <Array.au3>
$Array = Array1()
Array4($Array)
$AE1 = $Array[1]
_ArrayDisplay($AE1[1])
#cs
Array Layout:
  $Array[0]  = "one"
  $Array[1]:   $Array2[0]   = "Two"
              $Array2[1]:   $Array3[0] = "Three"
                              $Array3[1] = "Last element"
#ce
Func Array1()
  Local $Array[2] = ["one",Array2()]
  Return $Array
EndFunc
Func Array2()
  Local $Array[2] = ["two",Array3()]
  Return $Array
EndFunc
Func Array3()
  Local $Array[2] = ["Three","Last element"]
  Return $Array
EndFunc
 
 
Func Array4(ByRef $a_Array)
  $a1 = $a_Array[1]
  $a2 = $a1[1]
  $a2[1] = "Modified"
  $a1[1] = $a2
  $a_Array[1] = $a1
EndFunc

Task obviously solved, but this is still making use of copies - it is entirely possible without temporary objects Edited October 9, 2011 by Shaggi

[JohnOne]

Ah but I never copied the original array, just an element of it.

I have no idea though how to do drill into it without any copies.

[Ramzes]

What do you think about DllStructCreate and DllStructSetData?

[UEZ]

#include <Array.au3>
$Array = Array1()
#cs
Array Layout:
  $Array[0]  = "one"
  $Array[1]:   $Array2[0]   = "Two"
              $Array2[1]:   $Array3[0] = "Three"
                              $Array3[1] = "Last element"
#ce
$a2 = $Array[1]
$a3 = $a2[1]
$a3[1] = "Modified"
_ArrayDisplay($a3)
 
Func Array1()
  Local $Array[2] = ["one", Array2()]
  Return $Array
EndFunc
Func Array2()
  Local $Array[2] = ["two", Array3()]
  Return $Array
EndFunc
Func Array3()
  Local $Array[2] = ["Three", "Last element"]
  Return $Array
EndFunc

Ok, same solution as Malkey has posted!

Br,

UEZ

Edited October 9, 2011 by UEZ

[Ascend4nt]

Hmm, interesting problem. I would say a simple recursive function on a 'ByRef' array could do it.

expandcollapse popup

$Array = Array1()
#cs
Array Layout:
  $Array[0]  = "one"
  $Array[1]:   $Array2[0]   = "Two"
              $Array2[1]:   $Array3[0] = "Three"
                              $Array3[1] = "Last element"
#ce
Func Array1()
  Local $Array[2] = ["one",Array2()]
  Return $Array
EndFunc
Func Array2()
  Local $Array[2] = ["two",Array3()]
  Return $Array
EndFunc
Func Array3()
  Local $Array[2] = ["Three","Last element"]
  Return $Array
EndFunc
 
Func _ArrayGetNestedArrayItem(ByRef $aArray,$iRec=0)
    If $iRec=0 Then Return $aArray[1]
    Return _ArrayGetNestedArrayItem($aArray[1],$iRec-1)
EndFunc
 
Func _ArraySetNestedArrayItem(ByRef $aArray,$vVal,$iNestLevel=0)
    If $iNestLevel Then
        _ArraySetNestedArrayItem($aArray[1],$vVal,$iNestLevel-1)
        Return
    EndIf
    $aArray[1]=$vVal
EndFunc
 
ConsoleWrite(_ArrayGetNestedArrayItem($Array,2)&@CRLF)
_ArraySetNestedArrayItem($Array,"Changed Element",2)
ConsoleWrite(_ArrayGetNestedArrayItem($Array,2)&@CRLF)

*edit: forgot to add 'ByRef' in 'Get' call (though that wasn't part of this exercise)

Edited October 9, 2011 by Ascend4nt

[AdmiralAlkex]

He already posted the answer on the tracker, #2029

[Ascend4nt]

He already posted the answer on the tracker, #2029

Interesting, I wouldn't have thought to look there. It appears to be the same solution, so I guess I passed

Hmm, this is my 1000th post. There should be cake.

[AdmiralAlkex]

Interesting, I wouldn't have thought to look there. It appears to be the same solution, so I guess I passed

Hmm, this is my 1000th post. There should be cake.

Congratulations!!

You could take a screenshot and hang it on your wall

[Shaggi]

Hmm, interesting problem. I would say a simple recursive function on a 'ByRef' array could do it.

expandcollapse popup

$Array = Array1()
#cs
Array Layout:
  $Array[0]  = "one"
  $Array[1]:   $Array2[0]   = "Two"
              $Array2[1]:   $Array3[0] = "Three"
                              $Array3[1] = "Last element"
#ce
Func Array1()
  Local $Array[2] = ["one",Array2()]
  Return $Array
EndFunc
Func Array2()
  Local $Array[2] = ["two",Array3()]
  Return $Array
EndFunc
Func Array3()
  Local $Array[2] = ["Three","Last element"]
  Return $Array
EndFunc
 
Func _ArrayGetNestedArrayItem(ByRef $aArray,$iRec=0)
    If $iRec=0 Then Return $aArray[1]
    Return _ArrayGetNestedArrayItem($aArray[1],$iRec-1)
EndFunc
 
Func _ArraySetNestedArrayItem(ByRef $aArray,$vVal,$iNestLevel=0)
    If $iNestLevel Then
        _ArraySetNestedArrayItem($aArray[1],$vVal,$iNestLevel-1)
        Return
    EndIf
    $aArray[1]=$vVal
EndFunc
 
ConsoleWrite(_ArrayGetNestedArrayItem($Array,2)&@CRLF)
_ArraySetNestedArrayItem($Array,"Changed Element",2)
ConsoleWrite(_ArrayGetNestedArrayItem($Array,2)&@CRLF)

*edit: forgot to add 'ByRef' in 'Get' call (though that wasn't part of this exercise)

Correct answer! Congrats. This was my solution:

ShowOne($Array)
ShowOne($Array[1])
ShowNest($Array[1],1)
ChangeNest($Array[1])
ShowNest($Array[1],1)
Func ChangeNest(ByRef $Array, $Val = -1)
    If $Val == -1 Then
      ChangeNest($Array[1],"Changed!")
    Else
      $Array[1] = $Val
    EndIf
EndFunc
Func ShowOne($Array)
    _ArrayDisplay($Array)
EndFunc
Func ShowNest($Array,$Index)
    _ArrayDisplay($Array[$Index])
EndFunc

He already posted the answer on the tracker, #2029

Damn me...