function [N] = PPP(n)
% function [N] = PPP(n)
%   Pocet permitaci n prvku, ktere maji aspon 1 pevny bod
%
%  !!! nefunguje pro n>11
%
P=perms(1:n);
np=factorial(n);
id=1:n;
N=0;
for k=1:np
    pom=P(k,:)-id;
    if any(pom==0)
        N=N+1;
    end
end

end

