DouKaku? 4471 shiro: odzさんの#4465の指摘を見て修正。...(擬似lsの実装)

Comment detail

This comment is reply for 4424 shiro: 問題文からは、第2引数はディレクトリ名で...(擬似lsの実装). Go to thread root.

odzさんの#4465の指摘を見て修正。

gosh> (ls '("aaa/bbb/ccc" "aaa/bbb/ddd" "aaa/ccc/zzz") "aaa")
("ccc/" "bbb/")

(use srfi-1)
(use srfi-13)

(define (ls pathlist dir)
  (let* ((prefix (string-trim-right dir #[/]))
         (rx (string->regexp #`"^,(regexp-quote prefix)/")))
    (fold (lambda (p rs)
            (or (and-let* ([m (rx p)]
                           [r (regexp-replace* (m'after) #/(?<=\/).*/ "")]
                           [ (not (member r rs)) ])
                  (cons r rs))
                rs))
          '() pathlist)))

DouKaku?

Comment detail

Index

Feed

Other

Link

Pathtraq