4 thoughts on “Hello world!”


  2. 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();

    view raw

    Min_stack.pl

    hosted with ❤ by GitHub

    test gist in comment

    Reply

  3. test 2


    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();

    view raw

    Min_stack.pl

    hosted with ❤ by GitHub

    Reply 
  4. class Min_stack {

    has @.stack;    
    has @.min;
    

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

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

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

}
    Reply

Leave a reply to Mr WordPress Cancel reply