- 625 名前:デフォルトの名無しさん mailto:sage [2016/08/17(水) 08:55:07.31 ID:5k4XIPv4.net]
- >>604 Squeak Smalltalk
| Zuckerman | Zuckerman := Generator on: [:g | 1 to: Float infinity do: [:n | (n isDivisibleBy: ((n asString asArray collect: #digitValue) reduce: #*)) ifTrue: [g yield: n] ] ]. Zuckerman next: 100
|

|