Pharo and strings fun

PharoAndStrings.st

words := #('Peek' 'Geek' 'Coke' 'Poke' 'Meaning' 'Zapping' 'Delta' 'force' 'GEEK' 'CoKE' 'ORCa').
forbiddenWords := #('ok' 'eek' 'orc').

words
	select: [ :word | 
		(forbiddenWords
			inject: 0 
			into: [ :sum :forbidden | 
				sum + (word 
							findString: forbidden 
							startingAt: 1 
							caseSensitive: false ) ] ) = 0 ].

words := #('Pic' 'Poc' 'Pac' 'Puc').
forbidden := #('Poc' 'Puc').

words reject: [ :w | forbidden includes: w ] "#('Pic' 'Pac')"