- プログラミングのお題スレ Part6©2ch.net
317 ：デフォルトの名無しさん[sage]：2015/01/19(月) 14:08:59.81 ID:EfkrzyqH - >>273 Squeak Smalltalk
| conways |
conways := Generator on: [:g |
| n |
g yield: (n := 3).
1 to: Float infinity do: [:m |
g yield: (n := (String streamContents: [:ss |
(n asString as: RunArray) runsAndValuesDo: [:run :val |
ss nextPut: run asHexDigit; nextPut: val]
]
) asInteger)
]
].
(conways next: 10) asArray
"=> #(3 13 1113 3113 132113 1113122113 311311222113
13211321322113 1113122113121113222113 31131122211311123113322113) "
|
|