Cody

Problem 1503. Perl 2: pop

Solution 2102614

Submitted on 22 Jan 2020
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] [a, x]=pop(x); a_correct = 5; x_correct = [1 2 3 4]; assert(isequal(a, a_correct)); assert(isequal(x, x_correct));

x = 1 2 3 4 5 y = 1 2 3 4 z = 5

2   Pass
x=[] [a,x]=pop(x); a_correct = []; x_correct = []; assert(isequal(a, a_correct)); assert(isequal(x, x_correct));

x = []

3   Fail
x=[1] [a,x]=pop(x); a_correct = 1; x_correct = []; assert(isequal(a, a_correct)); assert(isequal(x, x_correct));

x = 1 y = 1×0 empty double row vector z = 1

Assertion failed.

Suggested Problems

More from this Author3