DouKaku?beta

解答・コメントを送る方法

コメントを送るには2つの方法があります。
  • 匿名でコメントを書く
    ログインせずにコメントを書くことができます。 名前は「匿名」となります。
  • アカウントを作成してコメントを書く
    アカウントを作成すると、記名での投稿ができます。 また、プロフィールページが作成され、 簡単なプロフィールや 統計情報が表示されるようになります。
どちらの場合も投稿後の修正・削除はできないので、 投稿前によくご確認下さい。

投稿ボタンを押す前に以下の文章を確認してください

  • 当サイトへの投稿は クリエイティブ・コモンズ・ライセンス BY(表示)および、その解釈に同意するものとみなされます。各ページには下のようにライセンス表示が行われます。
    Creative Commons License このサイトの内容は、 クリエイティブ・コモンズ・ライセンスの下でライセンスされています。 [詳細]
  • あなたの投稿したコード・コメント・トピックが再利用・添削されることを望まない場合は、投稿をお控えください。
  • 自分が書いていない、ウェブサイトや書籍などからの無断コピーは著作権の侵害です。著作権者の了解を得るか、自分で0から書いてください。
  • 著作権の侵害、名誉毀損、など投稿内容に問題がある場合、削除することがあります。
  • これらのことにあなたはあらかじめ同意したものとみなされます。

Post comment

Post a comment to the following challenge: フォルダパス一覧のツリー構造への変換 (Nested Flatten)

As a reply to the following comment: nobsun: ファイルパスの分解には，System.F...(#4466) [show]

[hide] 
ファイルパスの分解には，System.FilePath.Windows モジュールの splitPath
を用いる．Unix系ファイルシステム流の'/'の場合は System.FilePath.Unixを
用いればよい．

ツリーの構築と表示には Data.Tree モジュール unfoldTree および drawTree
をそれぞれ用いる．

実行例：
*Main> putStrLn $ drawTree $ buildFS pathList
ROOT
|
+- abc
|  |
|  +- def
|  |  |
|  |  +- gh
|  |  |
|  |  `- ij
|  |
|  `- jk
|     |
|     `- lm
|
`- de

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
import Data.List
import Data.Tree
import System.FilePath.Windows

binapp o f x y = f x `o` f y

type FS = Tree FilePath

buildFS :: [String] -> FS
buildFS = Node "ROOT" . map buildDir . groupPath . map splitPath . sort

buildDir :: (FilePath,[[FilePath]]) -> FS
buildDir = unfoldTree phi
 where phi (n,ps) = (delete pathSeparator n, groupPath $ filter (not . null) ps)

groupPath :: [[FilePath]] -> [(FilePath,[[FilePath]])]
groupPath = map grouping . groupBy (binapp eqpath head)
  where grouping ss = (head . head $ ss, map tail ss)
        eqpath      = binapp (==) (fst . break (pathSeparator==))

pathList = ["abc\\def","abc\\def\\gh","abc\\def\\ij","abc\\jk\\lm","de"]
コメント本文
 形式 [?]
コード
 言語
タグ
半角スペースで区切って複数のタグを入力できます。
参考ページタイトル

参考ページURL
利用規約を読んで同意する必要があります。
by guest

Index

Feed

Other

Link

Pathtraq

loading...
Creative Commons License このサイトの内容は、 クリエイティブ・コモンズ・ライセンスの下でライセンスされています。 [詳細]