瑣末なミスがあったんでさらに修正

| memoizedObject |
memoizedObject := Memoizer allWith: TargetType new. "TargetTypeの全てをmemoizeする場合"
memoizedObject := Memoizer selectWith: TargetType new selectSelectors: #(#exampleSelector: #otherSelector:) "TargetTypeの一部をmemoizeする場合"
memoizedObject exampleSelector:10. "MessageであるexampleSelector:10がMemoizeされる"

doesNotUnderstand: aMessage
| result |
　　( cache having: aMessage )
　　　　ifTrue:
　　　　[
　　　　　　^cache at: aMessage, "前の記憶した内容結果を返す"
　　　　]
　　　　ifElse:
　　　　[
　　　　　　"新しい結果を採取する"
　　　　　　result := aMessage sendTo: target.
　　　　　　cache put: aMessage with: result.
　　　　　　^result.
　　　　].