- プログラミングのお題スレ Part6©2ch.net
233 ：デフォルトの名無しさん[sage]：2015/01/05(月) 10:28:48.78 ID:yGPXja5b - >>220 Squeak Smalltalk
| ans |
ans := OrderedCollection new.
2 to: Float infinity do: [:n |
| m |
m := (2 raisedTo: n) - 2.
(m isDivisibleBy: n) ifTrue: [n isPrime
ifFalse: [(ans add: n; size) = 24 ifTrue: [^ans asArray]]]
]
=> #(341 561 645 1105 1387 1729 1905 2047 2465 2701 2821
3277 4033 4369 4371 4681 5461 6601 7957 8321 8481 8911
10261 10585)
|
|