- my $id = (m,^pb/(.*)/meta.yml$,)[0];
- +{ id => $id, name => $meta->{name} } } <pb/*/meta.yml>;
- $htc->param(problems => \@problems);
+ my $id = (m,^$path/(.*)/meta.yml$,)[0];
+ +{ id => $id, name => $meta->{name}, level => $meta->{level} } } <$path/*/meta.yml>;
+ for my $d(qw/beginner easy medium advanced hard/) {
+ $htc->param($d => [grep {$_->{level} eq $d} @problems]);
+ }