exercism-perl5

commit e3fdd13fdbafc6c40d1a3374a9e8888c02fd2d25
parent 81e5ae2aa9124ee756b5f7c29940a1b8e86db849
Author: Samir Parikh <noreply@samirparikh.com>
Date:   Tue, 25 Jan 2022 16:24:41 +0000

get first 7 out of 8 tests to pass

Diffstat:
M
grade-school/GradeSchool.pm
 | 
11
++++++++++-

1 file changed, 10 insertions(+), 1 deletion(-)
diff --git a/grade-school/GradeSchool.pm b/grade-school/GradeSchool.pm
@@ -6,7 +6,16 @@ our @EXPORT_OK = qw<roster>;
 
 sub roster {
   my ( $students, $grade ) = @_;
-  return undef;
+  my @roster;
+  my %student_by_grade;
+  foreach my $student (@{ $students }) {
+      push @{ $student_by_grade{$student->[1]} } => $student->[0];
+  }
+  foreach my $grade (sort keys %student_by_grade) {
+      push @roster => sort @{ $student_by_grade{$grade} };
+      print "grade $grade: @{ $student_by_grade{$grade} }\n";
+  }
+  return \@roster;
 }
 
 1;