16/11/05 19:59:02.35 giaAjwb2.net
>>873 Squeak/Pharo Smalltalk
| ans |
ans := OrderedCollection new.
self assert: 987 * 8 < 123456.
'123456789' permutationsDo: [:perm |
| numer denom |
numer := perm first: 4.
denom := perm allButFirst: 4.
numer asInteger * 8 = denom asInteger ifTrue: [ans add: numer, '/', denom]
].
^ ans