scheme list truncate

readmt.scm

;リストを指定された長さに切り詰める
;scheme
(define (list-truncate lst num)
  (cond ((<= (length lst) num) lst)
	(else
	 (let ((dummy (make-list num)))
	       (map (lambda (pre post)
		      pre)
		    lst dummy)))))