Facebook
From Commodious Leech, 6 Months ago, written in Plain Text.
Embed
Download Paste or View Raw
Hits: 75
  1. function Tablica(N);
  2.     array=int(N*rand(1,N))
  3.     k = 2           //
  4.     l = 1           // dlugosc podtablicy
  5.     i = 1           //
  6.     while k <= N do
  7.        
  8.         if array(k-1)==array(k) then
  9.            
  10.             k = k+1
  11.             i = i+1
  12.            
  13.                 if i > l   then
  14.                     if ( modulo (i,2) == 0) then
  15.                      l = i
  16.                      end
  17.                    end
  18.          else
  19.              i=1
  20.              k=k+1
  21.          end
  22.    end
  23.    disp(array)
  24.    disp(l)
  25. endfunction
  26.