- 436 名前：デフォルトの名無しさん mailto:sage [2016/04/11(月) 19:11:43.16 ID:U9aEtrvs.net]
- >>411 Squeak/Pharo Smalltalk
| primeStartsWith |
primeStartsWith := [:n |
| exp min max ans |
exp := 0.
[ min := n * (10 raisedTo: exp).
max := n+1 * (10 raisedTo: exp).
ans := (Integer primesUpTo: max) detect: [:prime | prime >= min] ifNone: nil.
exp := exp + 1.
ans notNil.
] whileFalse.
ans
].
primeStartsWith value: 4. "=> 41 "
primeStartsWith value: 777. "=> 77711 "
primeStartsWith value: 403. "=> 40343 "
