/usr/share/freemat/toolbox/test/evenoddtest.m is in freemat-data 4.0-5.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 | function evenoddtest(n)
if (n==0)
error('zero is neither even nor odd');
elseif ( n ~= fix(n) )
error('expecting integer argument');
end;
if (n==int32(n/2)*2)
printf('%d is even\n',n);
else
printf('%d is odd\n',n);
end
|