Interfaces/VBScript/ex2

WScript.Echo "== Example 2 =="

A1 = Array(Array(1.1, 1.2, 1.3), _
           Array(2.1, 2.2, 2.3), _
           Array(3.1, 3.2, 3.3))

r = j.Set("A1", A1)
WScript.Echo("   A1"  & vbCrLf & DoR("A1"))
j.Do "A2=: >&>A1"

j.Do "B2=: +/\A2"
j.Do "B1=: <""1<""0 B2"
r = j.Get("B1", B1)

WScript.Echo "   Result:"
WScript.Echo Join(B1(0), ",")
WScript.Echo Join(B1(1), ",")
WScript.Echo Join(B1(2), ",")