7 lines
122 B
Smalltalk
7 lines
122 B
Smalltalk
|
String extend [
|
||
|
|
includesAnyOf: aSet [
|
||
|
|
aSet do: [ :e | (self includes: e) ifTrue: [ ^true ] ].
|
||
|
|
^false
|
||
|
|
]
|
||
|
|
].
|