lists:intersection via sort+traverse
following recommendations by ferd
https://github.com/erlang/otp/pull/422#issuecomment-47958772