DouKaku? 4473 mamamoto: 作成はちょっと変則的なinjectと破壊...(フォルダパス一覧のツリー構造への変換)

Comment detail

作成はちょっと変則的なinjectと破壊的作用の組み合わせでハッシュでツリーを。

表示は素直な再帰で。

path_list = %w(
abc\\def
abc\\def\\gh
abc\\def\\ij
abc\\jk\\lm
de
)

def dump_tree(h, pad="")
  h.sort_by{|k,v| k}.each{|k,v|
    print(pad, "┗", k, "\n")
    dump_tree(v, pad+"  ")
  }
end

h = {}
path_list.each{|path|
  path.split(/\\/).inject(h){|k,v|
    k[v] ||= {}
  }
}

dump_tree(h)

これはすばらしい！

感動したので、Squeak Smalltalk に意訳させていただきました。

| pathList tree dumpTree |
pathList := #('abc\def' 'abc\def\gh' 'abc\def\ij' 'abc\jk\lm' 'de').

tree := Dictionary new.
pathList do: [:path |
    (path subStrings: #($\)) inject: tree into: [:tr :dir |
        tr at: dir ifAbsentPut: [Dictionary new]]].

dumpTree := [:tr :lev |
    tr keys asSortedCollection do: [:key |
        Transcript crtab: lev; show: key.
        (tr at: key) ifNotEmptyDo: [:child |
            dumpTree copy fixTemps value: child value: lev + 1]]].

World findATranscript: nil.
dumpTree copy fixTemps value: tree value: 0

"=>
abc
    def
        gh
        ij
    jk
        lm
de
"

DouKaku?

Comment detail

Index

Feed

Other

Link

Pathtraq