hg/stx-libbasic: comparison Collection.st

equal deleted inserted replaced

-:c02d61712505
+:e9d7cf16d560
 (aBlock value:each) ifTrue:[newCollection add:each].
 ].
 ^ newCollection
 "
 #(1 2 3 4) select:[:e | e odd]
 (1 to:10) select:[:e | e even]
 "
 "Modified: / 07-08-2010 / 16:26:40 / cg"
 !
 !
 select:selectBlock thenDo:doBlock
 "combination of select followed by do.
 The same as if two separate select:+do: messages were sent,
 but avoids the creation of intermediate collections,
 so this is nicer for big collections."
 self do:[:eachElement |
 (selectBlock value:eachElement) ifTrue:[
 doBlock value:eachElement
 #(1 2 3 4 5 6 7) select:[:i | i even] thenDo:[:i | Transcript showCR:i]
 "
 !
 selectWithIndex:aTwoArgBlock
 "return a new collection with all elements from the receiver,
 for which the argument aBlock evaluates to true.
 aTwoArgBlock is called with value and index as arguments."
 |newCollection|
 (aTwoArgBlock value:eachValue value:eachKey) ifTrue:[newCollection add:eachValue].
 ].
 ^ newCollection
 "
 #(10 20 30 40) selectWithIndex:[:e :i | i odd]
 #(10 20 30 40) selectWithIndex:[:e :i | i even]
 "
 !
 triplesDo:aThreeArgBlock
 "evaluate the argument, aThreeArgBlock for every element in the collection,
 self do:[:aTriple |
 aThreeArgBlock value:(aTriple at:1) value:(aTriple at:2) value:(aTriple at:3).
 ]
 "
 #(
 (1 one eins)
 (2 two zwei)
 (3 three drei)
 (4 four vier)
 (5 five #'fuenf')
 (6 six sechs)
 )
 triplesDo:[:num :sym1 :sym2 |
 Transcript show:num; space; show:sym1; space; showCR:sym2
 ]
 "
 "Modified: 10.5.1997 / 14:15:43 / cg"
 "
 "Modified: 10.5.1997 / 14:15:43 / cg"
 !
 with:aCollection andDefault:defaultElement collect:aTwoArgBlock
-"like with:colelct:, but use defaultElement for missing elements in aCollection
+"like with:collect:, but use defaultElement for missing elements in aCollection
 (i.e. if the receiver is longer)
 The third argument, aBlock must be a two-argument block, which is
 evaluated for each element-pair.
 Collect the results and return a collection containing them.
 This method fails if neither the receiver nor aCollection is
 newCollection add:(aTwoArgBlock value:el1 value:el2).
 ].
 ^ newCollection as:self species
 "
 (1 to:3) with:#(one two) andDefault:'xxx' collect:[:num :sym | (num->sym)]
 #(1 2 3) with:#(10 20) andDefault:99 collect:[:x :y | (x@y)]
 "
 !
 with:aCollection andDefault:defaultElement do:aTwoArgBlock
 "evaluate the argument, aBlock for successive elements from
 newCollection add:(aTwoArgBlock value:el1 value:el2).
 ].
 ^ newCollection as:self species
 "
 (1 to:3) with:#(one two three) collect:[:num :sym | (num->sym)]
 #(1 2 3) with:#(10 20 30) collect:[:x :y | (x@y)]
 "
 !
 with:aCollection conform:aTwoArgBlock
 "evaluate the argument, aBlock for successive elements from
 ].
 ^ true.
 "
 (1 to:3) with:#(1 2 3 4) conform:[:a :b | a = b]   --- raises an error
 (1 to:3) with:#(1 22 3) conform:[:a :b | a = b]
 (1 to:3) with:#(1 2 3) conform:[:a :b | a = b]
 "
 !
 with:aCollection contains:aTwoArgBlock
 "evaluate the argument, aBlock for successive elements from

changeset 20212	e9d7cf16d560
parent 20211	c02d61712505
child 20220	874c664d2cbd
child 20226	53626d2fd697