Problem 47. Extract leading non-zero digit

Solution 60120

Submitted on 12 Mar 2012 by Dan K

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)) tmp = 1 0 0 g = 1 y = 1 tmp = 2 3 g = 1 y = 1 2 tmp = -3 3 4 g = 2 y = 1 2 3 tmp = 0 -2 0 0 5 g = 5 y = 1 2 3 5 tmp = -3 0 -2 4 6 6 6 6 g = 4 y = 1 2 3 5 4 tmp = -3 0 -2 5 5 5 g = 4 y = 1 2 3 5 4 5 tmp = 1 g = 1 y = 1 2 3 5 4 5 1 tmp = 1 3 4 5 3 4 g = 1 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)) tmp = 5 7 g = 1 y = 5 tmp = -3 0 -2 2 g = 4 y = 5 2 tmp = 8 9 1 3 g = 1 y = 5 2 8 tmp = -3 6 3 g = 2 y = 5 2 8 6 tmp = 0 -2 8 3 8 1 3 g = 3 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)) tmp = -3 0 -2 4 3 3 6 g = 4 y = 4 tmp = 0 -2 3 4 2 6 g = 3 y = 4 3 tmp = 3 -2 5 7 8 4 g = 1 y = 4 3 3 tmp = 2 -2 7 6 9 4 g = 1 y = 4 3 3 2 tmp = -3 1 -2 3 4 9 9 g = 2 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)) tmp = 0 -2 3 g = 3 y = 3 tmp = -3 0 -2 1 g = 4 y = 3 1 tmp = -3 2 53 -3 0 8 g = 2 y = 3 1 2 tmp = 0 -2 5 g = 3 y = 3 1 2 5 tmp = 0 -2 0 0 2 g = 5 y = 3 1 2 5 2