解答・コメントを送る方法
コメントを送るには2つの方法があります。
- 匿名でコメントを書くログインせずにコメントを書くことができます。 名前は「匿名」となります。
- アカウントを作成してコメントを書くアカウントを作成すると、記名での投稿ができます。 また、プロフィールページが作成され、 簡単なプロフィールや 統計情報が表示されるようになります。
投稿ボタンを押す前に以下の文章を確認してください
- 当サイトへの投稿は クリエイティブ・コモンズ・ライセンス BY(表示)および、その解釈に同意するものとみなされます。各ページには下のようにライセンス表示が行われます。
- あなたの投稿したコード・コメント・トピックが再利用・添削されることを望まない場合は、投稿をお控えください。
- 自分が書いていない、ウェブサイトや書籍などからの無断コピーは著作権の侵害です。著作権者の了解を得るか、自分で0から書いてください。
- 著作権の侵害、名誉毀損、など投稿内容に問題がある場合、削除することがあります。
- これらのことにあなたはあらかじめ同意したものとみなされます。
Post comment
Post a comment to the following challenge:
正整数のゲーデル数化？
(Nested
Flatten)
As a reply to the following comment: sumim: Squeak Smalltalk で。 ...(#4653) [show]
sumim
#4653()
[
Smalltalk
]
Rating0/0=0.00
指定した数未満の素数列を生成する、組み込みの Integer class>>#primesUpTo: を流用して富豪的に。
| primesOfSize goedel | primesOfSize := [:n | | m primes | m := 0. [(primes := Integer primesUpTo: (10 raisedTo: (m := m + 1))) size >= n] whileFalse. primes first: n]. goedel := [:num | | digits size | digits := (num asString as: Array) collect: [:char | char asString asInteger]. size := digits size. primes := primesOfSize value: size. (1 to: size) inject: 1 into: [:goe :idx | goe * ((primes at: idx) raisedTo: (digits at: idx))]]. goedel value: 9. "=> 512 " goedel value: 81. "=> 768 " goedel value: 230. "=> 108 "Rating0/0=0.00-0+
[ reply ]