- プログラミングのお題スレ Part7 [転載禁止]©2ch.net
535 ：デフォルトの名無しさん[sage]：2015/08/08(土) 20:32:02.85 ID:M3SvhFRz - >>525 Squeak/Pharo Smalltalk
| pairs max |
pairs := #((3 5) (5 6) (6 3) (3 5) (5 9) (2 1) (7 5) (4 6) (8 3)).
max := #() -> 0.
(1 to: pairs size) do: [:n | pairs combinations: n atATimeDo: [:comb |
| sum |
(sum := comb sum) first <= 20 ifTrue: [
sum last = max value ifTrue: [max key: max key, {comb copy}].
sum last > max value ifTrue: [max := comb copy -> sum last]]]].
^max "=> #(#(3 5) #(5 6) #(3 5) #(5 9) #(4 6))->31 "
|
|