16/11/06 14:47:56.12 UyE09MO8.net
>>884 Squeak Smalltalk
| ans |
ans := OrderedCollection new.
self assert: 123456 - 987 > 44444.
'123456789' permutationsDo: [:perm |
| x y |
x := perm first: 5.
y := perm allButFirst: 5.
x - y = '44444' ifTrue: [ans add: x, '-', y]
].
^ ans