summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Flattenlist.sci
blob: 903679abe181b0a40ca3a793705eaea45a00dbd8 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
//  10.11.13

function Out=Flattenlist(varargin)
  Out=list();
  for N=1:length(varargin)
    D=varargin(N);
    if type(D)~=15
      Out($+1)=D;
    else
      for I=1:length(D)
        Ds=D(I);
        Tmp=Flattenlist(Ds);
        Out=lstcat(Out,Tmp);
      end;
    end;
  end;
endfunction;