Problem 1505. Perl 4: unshift

Solution 244745

Submitted on 15 May 2013 by Khaled Hamed

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 = [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));
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));
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));
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));