解答・コメントを送る方法
コメントを送るには2つの方法があります。
- 匿名でコメントを書くログインせずにコメントを書くことができます。 名前は「匿名」となります。
- アカウントを作成してコメントを書くアカウントを作成すると、記名での投稿ができます。 また、プロフィールページが作成され、 簡単なプロフィールや 統計情報が表示されるようになります。
投稿ボタンを押す前に以下の文章を確認してください
- 当サイトへの投稿は クリエイティブ・コモンズ・ライセンス BY(表示)および、その解釈に同意するものとみなされます。各ページには下のようにライセンス表示が行われます。
- あなたの投稿したコード・コメント・トピックが再利用・添削されることを望まない場合は、投稿をお控えください。
- 自分が書いていない、ウェブサイトや書籍などからの無断コピーは著作権の侵害です。著作権者の了解を得るか、自分で0から書いてください。
- 著作権の侵害、名誉毀損、など投稿内容に問題がある場合、削除することがあります。
- これらのことにあなたはあらかじめ同意したものとみなされます。
Post comment
Post a comment to the following challenge:
フォルダパス一覧のツリー構造への変換
(Nested
Flatten)
As a reply to the following comment: sumim: Squeak Smalltalk で。 ...(#4474) [show]
sumim
#4474()
[
Smalltalk
]
Rating0/0=0.00
mamamoto さんの #4473 に感じ入ったあとでは、#groupBy:having: を便利に使っているつもりが使われてしまっているみたいでダメダメですね(^_^;)。
| genTree printTree pathList tree | genTree := [:paths | | leaf | leaf := paths groupBy: [:path | path first] having: [:g | true]. leaf associationsDo: [:assoc | | newValue | newValue := assoc value collect: [:val | val allButFirst] thenSelect: [:val | val notEmpty]. assoc value: (newValue isEmpty ifTrue: [newValue] ifFalse: [genTree copy fixTemps value: newValue])]]. printTree := [:dic :lev | dic keys asSortedCollection do: [:key | Transcript crtab: lev; show: key. (dic at: key) ifNotEmptyDo: [:child | printTree copy fixTemps value: child value: lev + 1]]]. pathList := #('abc\def' 'abc\def\gh' 'abc\def\ij' 'abc\jk\lm' 'de'). pathList := pathList collect: [:each | each subStrings: {$\}]. World findATranscript: nil. tree := genTree copy fixTemps value: pathList. printTree copy fixTemps value: tree value: 0 "=> abc def gh ij jk lm de "Rating0/0=0.00-0+
[ reply ]