Program Repair Shop

55

`delete_observer`

Here's my revised version:

        sub delete_observer {
          my ($self, @observers) = @_;
          my (%remove, @result);
          for (@observers) {
            $remove{$_} = 1;
          }
          @{$self->direct_observers} = 
            grep !$remove{$_}, @{$self->direct_observers};
        }

Not subtle

I wouldn't want to argue that it does the "right" thing

But it does do something

And what it does is simple and predictable

In programming, simple and predictable beats clever and subtle 11 times out of 12