クイックソートって、たしかに ArrayedCollection >> quickSort | x xs | self isEmpty ifTrue: [^ self]. x _ self first. xs _ self allButFirst. ^ (xs select: [: y | y = x]) quickSortとか ArrayedCollection >> quickSort | x xs suchY | self isEmpt…