今天實現了一個unzipped操作，比如

(list (list 1 2) (list 3 4) (list 5 6)) -> (list (list 1 3 5) (list 2 4 6))

這個實現起來沒有什么難度，但是scheme中的表操作折騰了好久才沒錯。

(define (unzipped l)
? (if (null? l)
??? (list '() '())
??? (list (cons (caar l) (car (unzipped (cdr l))))
?? ?? (cons (cadar l) (cadr (unzipped (cdr l))))
??? )))

轉載于:https://www.cnblogs.com/mathlover/archive/2012/09/25/2701942.html

總結

以上是生活随笔為你收集整理的unzipped list的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。