PasteRack.org
Paste # 80654
2018-05-07 12:05:18

Forked from paste # 21202.

Fork as a new paste.

Paste viewed 294 times.


Embed:

Get First Level Folders

  1. #lang racket
  2.  
  3. ; Ich definiere eine Funktion:
  4. ; Alle Top-Level-Ordner des angegebenen Verzeichnisses
  5. ; als Liste von Dateisystemeinträgen zurückgeben
  6. (define (get-first-level-folders from-dir)
  7.   (parameterize ([current-directory from-dir])
  8.     (filter
  9.        directory-exists?
  10.        (directory-list from-dir))))
  11.  
  12. ; Ergebnis ausgeben mit mkdir davor zum "copypasten"
  13. (for-each
  14.    (lambda(entry)
  15.      (displayln (~a "mkdir \"" entry "\"")))
  16.    (get-first-level-folders "."))

=>

mkdir "lang-servlets"

mkdir "servlets"