Nested templated data: Difference between revisions
Content added Content deleted
(Added Bracmat solution) |
|||
Line 882: | Line 882: | ||
Payload 8 is not defined</pre> |
Payload 8 is not defined</pre> |
||
=={{header|VBA}}== |
|||
VBA allows arrays of variant, so the elements of an array can be both scalars as arrays of different sizes. |
|||
<lang vb>Public Sub test() |
|||
Dim t(2) As Variant |
|||
t(0) = [{1,2}] |
|||
t(1) = [{3,4,1}] |
|||
t(2) = 5 |
|||
p = [{"Payload#0","Payload#1","Payload#2","Payload#3","Payload#4","Payload#5","Payload#6"}] |
|||
Dim q(6) As Boolean |
|||
For i = LBound(t) To UBound(t) |
|||
If IsArray(t(i)) Then |
|||
For j = LBound(t(i)) To UBound(t(i)) |
|||
q(t(i)(j)) = True |
|||
t(i)(j) = p(t(i)(j) + 1) |
|||
Next j |
|||
Else |
|||
q(t(i)) = True |
|||
t(i) = p(t(i) + 1) |
|||
End If |
|||
Next i |
|||
For i = LBound(t) To UBound(t) |
|||
If IsArray(t(i)) Then |
|||
Debug.Print Join(t(i), ", ") |
|||
Else |
|||
Debug.Print t(i) |
|||
End If |
|||
Next i |
|||
For i = LBound(q) To UBound(q) |
|||
If Not q(i) Then Debug.Print p(i + 1); " is not used" |
|||
Next i |
|||
End Sub</lang>{{out}} |
|||
<pre>Payload#1, Payload#2 |
|||
Payload#3, Payload#4, Payload#1 |
|||
Payload#5 |
|||
Payload#0 is not used |
|||
Payload#6 is not used</pre> |
|||
=={{header|zkl}}== |
=={{header|zkl}}== |
||
Formatting is lost as zkl is format free. A pretty printer could be written but |
Formatting is lost as zkl is format free. A pretty printer could be written but |