Cody

# Problem 1505. Perl 4: unshift

Solution 244183

Submitted on 14 May 2013 by Marco Castelli
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   Pass
%% x = [1 2 3 4 5]; y = [6 7 8]; [x, num]=unshift(x, y); y_correct = [6 7 8 1 2 3 4 5]; num_correct=8; assert(isequal(x,y_correct) & isequal(num, num_correct));

``` a = 1 ans = 5 a = 8 ```

2   Pass
%% x = [1 2 3 4 5]; y = 6; [x, num]=unshift(x, y); y_correct = [6 1 2 3 4 5]; num_correct = 6; assert(isequal(x,y_correct) & isequal(num, num_correct));

``` a = 1 ans = 5 a = 6 ```

3   Pass
%% x = [1 2 3 4 5]'; y = [6 7 8]; [x, num]=unshift(x, y); y_correct = [6 7 8 1 2 3 4 5]'; num_correct = 8; assert(isequal(x,y_correct) & isequal(num, num_correct));

``` a = 5 ans = 1 a = 8 ```

4   Pass
%% x = []; y = [1 2 3]; [x, num]=unshift(x, y); y_correct = [1 2 3]; num_correct = 3; assert(isequal(x,y_correct) & isequal(num, num_correct));

``` a = 0 ans = 0 a = 3 ```