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