A-M baby
This commit is contained in:
parent
764da6cbbb
commit
db842d013d
19005 changed files with 197040 additions and 7 deletions
8
Task/Generic-swap/Smalltalk/generic-swap.st
Normal file
8
Task/Generic-swap/Smalltalk/generic-swap.st
Normal file
|
|
@ -0,0 +1,8 @@
|
|||
OrderedCollection extend [
|
||||
swap: a and: b [
|
||||
|t|
|
||||
t := self at: a.
|
||||
self at: a put: (self at: b).
|
||||
self at: b put: t
|
||||
]
|
||||
]
|
||||
Loading…
Add table
Add a link
Reference in a new issue