summaryrefslogtreecommitdiff
path: root/2.3-1/macros/FunctionAnnotation/FA_SZ_PRIMES.sci
blob: 70883f1c0dd41d5ddd3ad3570f814b481c893e9b (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
function opout = FA_SZ_PRIMES(inval)

// 17-Dec-2016 -- Author : Shamik Guha

inval=string(inval);
if (isnum(inval)) then
    in_num = eval(inval) ;
    out=primes(in_num);
    //disp(out);

else
    error(36, 'Wrong input argument '+inval+'.');

end


out=(length(out));
opout=string(out);
//disp(opout);

endfunction