Problem 1504. Perl 3: shift

Solution 1983708

Submitted on 20 Oct 2019 by Nikolaos Nikolaou

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]; [a,x]=shift(x); a_correct = 1; x_correct = [2 3 4 5]; assert(isequal(a,a_correct)); assert(isequal(x,x_correct)); z = 2 3 4 5 y = 1
2	Pass	x=[]; [a,x]=shift(x); a_correct = []; x_correct = []; assert(isequal(a,a_correct)); assert(isequal(x,x_correct)); z = [] y = []
3	Pass	x=[1]; [a,x]=shift(x); a_correct = 1; x_correct = []; assert(isequal(a,a_correct)); assert(isequal(x,x_correct)); z = [] y = 1

Test

Status

Code Input and Output

Pass

x=[1 2 3 4 5]; [a,x]=shift(x); a_correct = 1; x_correct = [2 3 4 5]; assert(isequal(a,a_correct)); assert(isequal(x,x_correct));

z = 2 3 4 5 y = 1

Pass

x=[]; [a,x]=shift(x); a_correct = []; x_correct = []; assert(isequal(a,a_correct)); assert(isequal(x,x_correct));

z = [] y = []

Pass

x=[1]; [a,x]=shift(x); a_correct = 1; x_correct = []; assert(isequal(a,a_correct)); assert(isequal(x,x_correct));

z = [] y = 1

Find the treasures in MATLAB Central and discover how the community can help you!

Start Hunting!