Cody

# Problem 44309. Pi Digit Probability

Solution 1819350

Submitted on 18 May 2019
This solution is locked. To view this solution, you need to provide a solution of the same size or smaller.

### Test Suite

Test Status Code Input and Output
1   Fail
N = 101; n = 3; y_correct = 0.1200; assert(abs(pidigit(N,n)-y_correct)<0.0001) assert(~any(cellfun(@(x)ismember(max([0,str2num(x)]),[101,201,202,203,1001]),regexp(fileread('pidigit.m'),'[\d\.\+\-\*\/]+','match')))) % modified from the comment of Alfonso on https://www.mathworks.com/matlabcentral/cody/problems/44343

Undefined function 'sym' for input arguments of type 'char'. Error in pidigit (line 2) y = count(char(vpa(sym('pi'),N-1)),num2str(n))/(N-1); Error in Test1 (line 4) assert(abs(pidigit(N,n)-y_correct)<0.0001)

2   Fail
N = 201; n = 6; y_correct = 0.0750; assert(abs(pidigit(N,n)-y_correct)<0.0001) assert(~any(cellfun(@(x)ismember(max([0,str2num(x)]),[101,201,202,203,1001]),regexp(fileread('pidigit.m'),'[\d\.\+\-\*\/]+','match'))))

Undefined function 'sym' for input arguments of type 'char'. Error in pidigit (line 2) y = count(char(vpa(sym('pi'),N-1)),num2str(n))/(N-1); Error in Test2 (line 4) assert(abs(pidigit(N,n)-y_correct)<0.0001)

3   Fail
N = 202; n = 6; y_correct = 0.0796; assert(abs(pidigit(N,n)-y_correct)<0.0001) assert(~any(cellfun(@(x)ismember(max([0,str2num(x)]),[101,201,202,203,1001]),regexp(fileread('pidigit.m'),'[\d\.\+\-\*\/]+','match'))))

Undefined function 'sym' for input arguments of type 'char'. Error in pidigit (line 2) y = count(char(vpa(sym('pi'),N-1)),num2str(n))/(N-1); Error in Test3 (line 4) assert(abs(pidigit(N,n)-y_correct)<0.0001)

4   Fail
N = 203; n = 6; y_correct = 0.0792; assert(abs(pidigit(N,n)-y_correct)<0.0001) assert(~any(cellfun(@(x)ismember(max([0,str2num(x)]),[101,201,202,203,1001]),regexp(fileread('pidigit.m'),'[\d\.\+\-\*\/]+','match'))))

Undefined function 'sym' for input arguments of type 'char'. Error in pidigit (line 2) y = count(char(vpa(sym('pi'),N-1)),num2str(n))/(N-1); Error in Test4 (line 4) assert(abs(pidigit(N,n)-y_correct)<0.0001)

5   Fail
N = 1001; n = 9; y_correct = 0.1050; assert(abs(pidigit(N,n)-y_correct)<0.0001) assert(~any(cellfun(@(x)ismember(max([0,str2num(x)]),[101,201,202,203,1001]),regexp(fileread('pidigit.m'),'[\d\.\+\-\*\/]+','match'))))

Undefined function 'sym' for input arguments of type 'char'. Error in pidigit (line 2) y = count(char(vpa(sym('pi'),N-1)),num2str(n))/(N-1); Error in Test5 (line 4) assert(abs(pidigit(N,n)-y_correct)<0.0001)