Facebook
From Walloping Capybara, 6 Months ago, written in Plain Text.
Embed
Download Paste or View Raw
Hits: 72
  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 && ( modulo (i,2) == 0) then
  14.                  
  15.                      l = i
  16.                     end
  17.          else
  18.              i=1
  19.              k=k+1
  20.          end
  21.    end
  22.    disp(array)
  23.    disp(l)
  24. endfunction