OpenEuphoria

Re: subscripts

• Posted by Jiri Babor <J.Babor at GNS.CRI.NZ> May 17, 2000
• 540 views

Me again, Lewis,

Just in case you want the complementary store function, I have that
too:

function store(object a, sequence b, object c)
    -- store c in a using index sequence b
    integer len
    len = length(b)
     if len > 1 then
          a[b[1]] = store(a[b[1]], b[2..len], c)
     else
          a[b[1]] = c
     end if
    return a
end function

Sorry, I could not do it non-recursive ;)  jiri