Size of a list passed to a function?

[toml_12953]

(04-14-2017 02:58 PM)Didier Lachieze Wrote:  

(04-14-2017 02:17 PM)toml_12953 Wrote:  I'm shooting for a program to automatically create a multi-dimensional list and am hoping to use a variable number of dimensions.

This will create recursively a multi-dimensional list whose dimensions are passed as a list and initialized with 0:

Code:

EXPORT dimension(mylist)
BEGIN
  LOCAL l:=tail(mylist),v:={};
  IFTE(SIZE(mylist)==1,MAKELIST(0,I,1,mylist(1)),MAKELIST(dimension(l),I,1,my​list(1)));
END;

dimension({3,2,2}) returns {{{0,0},{0,0}},{{0,0},{0,0}},{{0,0},{0,0}}}

Very elegant! As usual, I try to do things the hard way. Thank you for saving me a lot of work!

Tom L