- プログラミングのお題スレ Part7 [転載禁止]©2ch.net
823 ：デフォルトの名無しさん[sage]：2015/09/20(日) 22:12:07.71 ID:w687FJud - >>814 Squeak/Pharo Smalltalk
| g f m |
g := [
| memo |
memo := OrderedCollection with: 1.
[:n |
n - memo size timesRepeat: [
memo add: (memo last + ((memo size + 1) asString occurrencesOf: $1))].
memo at: n
]
].
f := g value.
m := 1.
[(m := m + 1) = (f value: m)] whileFalse.
^m "=> 199981 "
|
|