clear all

word=100;

b=[0];

for k=3:word

  b0=[b, 0];

  r0=zeros(floor(k/2), 2);

  b1=[b, 1];

  r1=zeros(floor(k/2), 2);

  for j=1:floor(length(b0)/2)

    r0(j, 1)=1;

    r1(j, 1)=1;

    suf=j;

    suff0=b0(length(b0)-suf+1:length(b0));

    suff1=b1(length(b1)-suf+1:length(b1));

    n_max_rip=floor(length(b0)/suf);

    for i=2:n_max_rip

      if (b0(length(b0)-i*length(suff0)+1:length(b0)-i*length(suff0)+length(suff0))==suff0)

        r0(j, 1)++;

        r0(j, 2)=length(suff0);

      else

        break

      endif

    endfor

    for i=2:n_max_rip

      if (b1(length(b1)-i*length(suff1)+1:length(b1)-i*length(suff1)+length(suff1))==suff1)

        r1(j, 1)++;

        r1(j, 2)=length(suff1);

      else

        break

      endif

    endfor

  endfor

  max_r0=max(r0);

  max_r1=max(r1);

  if (max_r0(1)<max_r1(1))

    b=b0;

  elseif (max_r0(1)==max_r1(1))

    if (max_r0(2)<max_r1(2))

      b=b0;

    else

      b=b1;

    endif

  else

    b=b1;

  endif

endfor