Optimize tags usage and Distribution map

[badetitou]

I discovered that using tag with large distribution map is very inefficient. This PR aims to improve it.

• add tests for extension method isApplicableTo:
• Improve execution (https://github.com/moosetechnology/MooseIDE/pull/1653/changes#diff-2fb9b874b45eb4c1cf676af2b676d2a00f94d6f51ce971fca07a497eade79ecbL6)
• perform bench and report here

Improvment explanation

The previous code:

isApplicableTo: anEntity

	^ self taggedEntities anySatisfy: [ :e | e = anEntity ]

Was

1. iterate over the all model then for each entity
2. Search if it has the tags self and return the collection of entities with tag self
3. Check if the collection includes anEntity

The correction propose to check directly in anEntity tag, if the tag self is present.

bench

"setup bench"
model := FamixTagTestModel new.
helloTag := model createTagNamed: 'hello'.
1 to: 10000 do: [ :idx | 
	|clazz|
	clazz := FamixTagTestClass named: 'aClass1' model: model.
	idx even ifTrue: [ clazz tagWith: helloTag ] 
	].
classes := (model allWithType: FamixTagTestClass).

"bench"

[classes do: [ :class | helloTag isApplicableTo: class ]] bench.

"Before optimization"
"3 iterations in 6 seconds 542 milliseconds. 0.459 per second"

"After optimization"
"1,474 iterations in 5 seconds 2 milliseconds. 294.682 per second"

First test

First test with time profiler and trying unsafe improvment of isApplicableTo: shows this (from 110 761 ms to 5 977 ms)

I'll add tests and investigate more

Might need further investigation

• I don't achieve to create dynamic Tag and transmit it to the Distribution map