解答・コメントを送る方法
コメントを送るには2つの方法があります。
- 匿名でコメントを書くログインせずにコメントを書くことができます。 名前は「匿名」となります。
- アカウントを作成してコメントを書くアカウントを作成すると、記名での投稿ができます。 また、プロフィールページが作成され、 簡単なプロフィールや 統計情報が表示されるようになります。
投稿ボタンを押す前に以下の文章を確認してください
- 当サイトへの投稿は クリエイティブ・コモンズ・ライセンス BY(表示)および、その解釈に同意するものとみなされます。各ページには下のようにライセンス表示が行われます。
- あなたの投稿したコード・コメント・トピックが再利用・添削されることを望まない場合は、投稿をお控えください。
- 自分が書いていない、ウェブサイトや書籍などからの無断コピーは著作権の侵害です。著作権者の了解を得るか、自分で0から書いてください。
- 著作権の侵害、名誉毀損、など投稿内容に問題がある場合、削除することがあります。
- これらのことにあなたはあらかじめ同意したものとみなされます。
Post comment
Post a comment to the following challenge:
逆順になるあみだくじ
(Nested
Flatten)
As a reply to the following comment: sumim: Squeak Smalltalk で n...(#765) [show]

sumim
#765()
[
Smalltalk
]
Rating0/0=0.00
| n labels numOfVBarsPair m last | n := 10. World findATranscript: nil. numOfVBarsPair := {m := (n alignedTo: 2) / 2. m - (n \\ 2)}. Transcript cr; show: (labels := String streamContents: [:ss | (1 to: n) do: [:i | ss print: i - 1] separatedBy: [ss space]]). 1 to: (last := numOfVBarsPair first * 2 + (n - 1 \\ 2)) do: [:row | Transcript cr; show: '|'. 1 to: n - 1 do: [:i | | vBarOrSp | vBarOrSp := row < last ifTrue: [' _' atWrap: i + row] ifFalse: [$ ]. Transcript nextPut: vBarOrSp; nextPut: $|]]. Transcript cr; show: labels reversedRating0/0=0.00-0+
1 reply [ reply ]