SequenceableCollection has with:do:.
Add
������ with: other count: testBlock
�������������� |r|
�������������� r := 0.
�������������� self with: other do: [:x :y |
���������������������� (testBlock value: x value: y) ifTrue: [r := r + 1]].
�������������� ^r
I have this in my library anyway.�� Now
distanceStrand1: a strand2: b
������ ^a with: b count: [:x :y | x ~= y]
#with:do: already checks that the sequences have the same size;
it's too confusing if the error reported in this case is different
from the error for #with:do:.