【一日】CommonLisp【一門】
■ このスレッドは過去ログ倉庫に格納されています
0059デフォルトの名無しさん
05/02/04 11:30:14(defun slice* (f n lis)
(reverse (apply #'mapcar f
(do ((in lis (nthcdr n in))
(out (make-list n) (mapcar #'cons (subseq in 0 n) out)))
((null in) out)))))
(defun slice (n lis) (slice* #'list n lis))
(defun slice-pair (lis) (slice* #'cons 2 lis))
■ このスレッドは過去ログ倉庫に格納されています