From 4b7306cb22dacc86ef4c4ac216648a4e11a993b1 Mon Sep 17 00:00:00 2001 From: Shawn Wagner Date: Sat, 11 Feb 2023 03:33:20 -0800 Subject: Challenge 203.2: Solution in Racket --- challenge-203/shawn-wagner/racket/ch-2.rkt | 19 +++++++++++++++++++ 1 file changed, 19 insertions(+) create mode 100644 challenge-203/shawn-wagner/racket/ch-2.rkt diff --git a/challenge-203/shawn-wagner/racket/ch-2.rkt b/challenge-203/shawn-wagner/racket/ch-2.rkt new file mode 100644 index 0000000000..23f245fde7 --- /dev/null +++ b/challenge-203/shawn-wagner/racket/ch-2.rkt @@ -0,0 +1,19 @@ +#lang racket/base + +(require racket/file racket/list) + +(define (copy-directory-tree source target) + (let* ([source (string->path source)] + [target (string->path target)] + [source-component-length (length (explode-path source))] + [targets + (fold-files + (lambda (path type paths) + (if (eq? type 'dir) + (cons (apply build-path target (drop (explode-path path) source-component-length)) paths) + paths)) + '() + source)]) + (for-each make-directory* targets))) + +(copy-directory-tree "a/b/c" "x/y") -- cgit