Advanced Search

Question: lists

Question:lists

mathperson 37 Maple
March 06 2010
0

tlist := [ [s] ]:
  for j to 4 do
    if tlist[-1,1]=s then
      tlist := [ tlist[], [t,tlist[-1][]] ]
    else
   tlist := [ tlist[], [s,tlist[-1][]] ]
  end if
 end do:
tlist;
 

which gives result

[[s], [t, s], [s, t, s], [t, s, t, s], [s, t, s, t, s]]

 

is there an easier way of writing this?
Please Wait...