Hwk Perl

1) IMPLEMENT PRIORITY QUEUE BASED ON THE ASSIGNMENT IN CLASS using splice (syudy splice function from any perl book) ห้ามใช้คำสั่ง sort ช่วย



ตัวอย่าง assignment ที่ทำกันใน class
[src]
@result = sort { $a <=> $b } @array

@queue = ();
sub enqueue {
#return nothing
my ($a) = @_;
push @queue, $a;
}

sub dequeue {
#return front
@queue = sort { $a <=> $b } @queue;
return shift @queue;
}

sub isEmpty {
if (0 == scalar @queue) {
return 1;
} else {
return 0;
}
}
sub main {
enqueue 1;
enqueue 5;
enqueue 3;
while (!isEmpty) {
$x = dequeue;
print "$xn";
}
}

main;
[/src]