my @solved = map { $_->{solved} ? ($_->{problem}) : () } @{$args{problems}};
my @attempted = map { !$_->{solved} ? ($_->{problem}) : () } @{$args{problems}};
my @solved = map { $_->{solved} ? ($_->{problem}) : () } @{$args{problems}};
my @attempted = map { !$_->{solved} ? ($_->{problem}) : () } @{$args{problems}};