Size of a list passed to a function?

[toml_12953]

I'm trying to get the size of a list passed to a function. I've tried this:

PHP Code:

EXPORT dimension(mylist)
BEGIN
  PRINT(SIZE(mylist));
END; 


and

PHP Code:

EXPORT dimension(mylist)
BEGIN
  PRINT(SIZE({mylist}));
END; 


but neither works although SIZE does work from the Home screen.

Tom L

[Tyann]

PHP Code:

EXPORT dimension(mylist)
BEGIN
  PRINT(SIZE(mylist));
END; 


fonctionne pour moi sur la machine physique.

Works for me on the physical machine.

[toml_12953]

(04-14-2017 12:43 PM)Tyann Wrote:  

PHP Code:

EXPORT dimension(mylist)
BEGIN
  PRINT(SIZE(mylist));
END; 


fonctionne pour moi sur la machine physique.

Works for me on the physical machine.

I over simplified my program. I'm shooting for a program to automatically create a multi-dimensional list and am hoping to use a variable number of dimensions. Right now, I have to create a loop for each dimension. Here's a better sample.
It works for a fixed number of dimensions if I take out the PRINT.

PHP Code:

EXPORT dimension(varname,mylist)
BEGIN
    local v,a;
    v:=HVars(varname);
    print(SIZE(mylist));
    for R:=1 to mylist(1) do
        for C:=1 to mylist(2) do
            for a:=1 to mylist(3) do    
                v(R,C,a):=0;
            end;
        end;
    end;
    return v;
END; 


[cyrille de brébisson]

Hello,

What are you passing as a parameter to the dimention function?

Cyrille

[toml_12953]

(04-14-2017 02:29 PM)cyrille de brébisson Wrote:  Hello,

What are you passing as a parameter to the dimention function?

Cyrille

I'm calling it like this: As I said, it works fine if I take out the PRINT.

dimension(L1,{4,3,5})

Tom L

[Didier Lachieze]

(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}}}

[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