Untitled

#!/usr/bin/env perl

use v5.38;

sub PriorityTaskScheduler(@raw_jobs) {
    my ($time, %wait, %bag) = 0;
    my @jobs = map { my %h; @h{qw(title submit duration priority)} = split(',', $_); \%h } @raw_jobs;
    @jobs    = sort { $a->{submit} <=> $b->{submit} || $b->{priority} <=> $a->{priority} } @jobs;

    while (my $job = shift(@jobs)) {
        $time                    = $job->{submit} if $time < $job->{submit};
        $wait{$job->{priority}} += $time > $job->{submit} ? $time - $job->{submit} : 0;
        $bag{$job->{priority}}++;
        $time                   += $job->{duration};
        @jobs = sort { 
            ($a->{submit} > $time) <=> ($b->{submit} > $time) || 
            $b->{priority} <=> $a->{priority} || 
            $a->{submit} <=> $b->{submit} 
        } @jobs;
    }

    map { sprintf "Priority-%s: %d", $_, $wait{$_} / $bag{$_} } reverse sort keys %wait
}

my @data = (
    "jobA,0,10,3\njobB,2,5,1\njobC,3,8,3\njobD,7,4,2\n",
    "jobB,2,5,1\njobA,0,10,3\njobC,3,8,3\njobD,7,4,2\njobE,20,4,3",
    "jobA,0,5,1\njobB,100,10,5\njobC,101,5,5",
);
for my $test (@data) {
    my @jobs = split "\n", $test;
    say "[", join(", ", PriorityTaskScheduler(@jobs)), "]";
}