Problem 47. Extract leading non-zero digit

Solution 668115

Submitted on 8 May 2015 by Meade

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

Test	Status	Code Input and Output
1	Pass	%% x = [100 23 -34 0.005 -0.466664 -0.555 1 134534]; y_correct = [1 2 3 5 4 5 1 1]; assert(isequal(leadingDigit(x),y_correct)) t1 = '100' '23' '-34' '0.005' '-0.46666' '-0.555' '1' '134534' t2 = Columns 1 through 7 [1] [1x2 double] [1x2 double] [5] [1x5 double] [1x3 double] [1] Column 8 [1x6 double] t3 = 1 y = 1 t3 = 23 y = 1 2 t3 = 34 y = 1 2 3 t3 = 5 y = 1 2 3 5 t3 = 46666 y = 1 2 3 5 4 t3 = 555 y = 1 2 3 5 4 5 t3 = 1 y = 1 2 3 5 4 5 1 t3 = 134534 y = 1 2 3 5 4 5 1 1
2	Pass	%% x = [57 -0.2 8913 -63 0.838127]; y_correct = [5 2 8 6 8]; assert(isequal(leadingDigit(x),y_correct)) t1 = '57' '-0.2' '8913' '-63' '0.83813' t2 = [1x2 double] [4] [1x4 double] [1x2 double] [1x5 double] t3 = 57 y = 5 t3 = 2 y = 5 2 t3 = 8913 y = 5 2 8 t3 = 63 y = 5 2 8 6 t3 = 83813 y = 5 2 8 6 8
3	Pass	%% x = [-0.4336 0.3426 3.5784 2.7694 -1.3499]; y_correct = [4 3 3 2 1]; assert(isequal(leadingDigit(x),y_correct)) t1 = '-0.4336' '0.3426' '3.5784' '2.7694' '-1.3499' t2 = [1x4 double] [1x4 double] [1x5 double] [1x5 double] [1x5 double] t3 = 4336 y = 4 t3 = 3426 y = 4 3 t3 = 35784 y = 4 3 3 t3 = 27694 y = 4 3 3 2 t3 = 13499 y = 4 3 3 2 1
4	Pass	%% x = [0.3000 -0.1 -0.00000002 0.5 0.002]; y_correct = [3 1 2 5 2]; assert(isequal(leadingDigit(x),y_correct)) t1 = '0.3' '-0.1' '-2e-08' '0.5' '0.002' t2 = [3] [4] [1x2 double] [3] [5] t3 = 3 y = 3 t3 = 1 y = 3 1 t3 = 28 y = 3 1 2 t3 = 5 y = 3 1 2 5 t3 = 2 y = 3 1 2 5 2