丢弃集合中元素之前的元素的最佳方法

Question

给定任何像“Lorem ipsum dolor sat amet, consectetuer adipiscing elit”这样的字符串，我想在“sit”之前丢弃每个单词。我检查了 String 中的方法，但没有发现对此非常有用。这是我的尝试：

| phrase newPhrase |
phrase := 'Lorem ipsum dolor sit amet, consectetuer adipiscing elit'.
newPhrase := phrase substrings.
phrase substrings do: [: word | word = 'sit' ifFalse: [ newPhrase := newPhrase allButFirst ] ifTrue: [ ^ nil ] ].
newPhrase joinUsing: String space

在工作区中评估时它回答为零，但是必须有一个聪明的方法，对吗？

Answer 1

代码：

phrase substrings do: [: word | word = 'sit' ifFalse: [ ... ] ifTrue: [ ^ nil ] ].

当找到单词 sit 时，返回 nil。

请注意，Smalltalk 中的 ^ 始终从封闭方法返回。它不会突破do:。

试试这个

丢弃 sit 之前的所有单词：

words := phrase substrings.
newPhrase := words allButFirst: (words indexOf: 'sit') - 1

您可能还会发现这些收集方法很有趣：

words copyAfter: 'sit'      "all words after sit"
words copyUpTo: 'sit'       "all words before sit"
words copyUpThrough: 'sit'  "words before and including sit"

Answer 2

我会同意亚历山大的第一个答案：

words := phrase substrings.
newPhrase := words copyAfter: 'sit'

它似乎比以下任何一种都更能揭示意图（即清晰），但只是为了好玩，这里还有另外两种方法：

如果在分析之后，您想要更高的效率。这种方式的效率提高了 25 倍：

sitStart := phrase findWordStart: 'sit' startingAt: 1.
afterSit := sitStart + 4.
phrase copyFrom: afterSit to: phrase size.

PetitParser：效率降低了 10 倍，但在更复杂的解析情况下，这是一个可以放在口袋里的好工具：

sit := 'sit' asParser.
partToKeep := sit negate plus, sit, #any asParser plus flatten trim ==> [ :n | n third ].
partToKeep parse: phrase.

此外，您必须决定如果没有找到“sit”该怎么办。