Min Stack

Min_stack.pl

class Minstack {

    has @.stack;
    has @.min;
    

    method mpush($item) {
	push @.stack, $item;  
	if @.min==0 or @.min[*-1] > $item {
	    push @.min, $item;
	}
    }

    method mpop() {	
	my $item=pop @.stack;
	if $item == @.min[*-1] {
	    pop @.min;
	}
	return $item;
    }

    method mmin() {
	@.min[*-1];
    }

}



my $min=Minstack.new;
$min.mpush(5);
$min.mpush(3);
$min.mpush(10);
say $min.mpop();
say $min.mmin();