仕事がないからプログラミングGaucheを勉強中。 P53のcopy-listを参考にdeep-copy-listを作成してみた。 ;copy-list (define (copy-list lis) (if (pair? lis) (cons (car lis) (copy-list (cdr lis))) lis)) ;deep-copy-list (define (deep-copy-list lis) …