Problem 47. Extract leading non-zero digit

Solution 1637012

Submitted on 2 Oct 2018 by Ron Larham

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)) x1 = 0.0500 x1 = 0.5000 x1 = 5 x1 = 4.6666 x1 = 5.5500
2	Pass	x = [57 -0.2 8913 -63 0.838127]; y_correct = [5 2 8 6 8]; assert(isequal(leadingDigit(x),y_correct)) x1 = 2 x1 = 8.3813
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)) x1 = 4.3360 x1 = 3.4260
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)) x1 = 3 x1 = 1 x1 = 2.0000e-07 x1 = 2.0000e-06 x1 = 2.0000e-05 x1 = 2.0000e-04 x1 = 0.0020 x1 = 0.0200 x1 = 0.2000 x1 = 2 x1 = 5 x1 = 0.0200 x1 = 0.2000 x1 = 2