%STIRLING Stirlingovo stevilo druge vrste
%s=STIRLING(n,m)
function s=stirling(n,m);
  if n<m
    s=0;
  elseif (n==m)|(m==1) 
    s=1;
  elseif m==0
    s=0;
  else
    s=stirling(n-1,m-1)+m*stirling(n-1,m);
  end
