Permalink
Browse files

テスト

  • Loading branch information...
1 parent 06f75a1 commit 7d0827ff9b1bf438c6a38e869dc8562b66786e57 @kosh04 committed Apr 19, 2009
Showing with 2 additions and 2 deletions.
  1. +2 −2 init.lsp
View
@@ -164,9 +164,9 @@
(replace (eval (args 0)) (eval (args 1)))))
(define (mapcar f lst) ; (mapcar function list &rest more-lists)
(letn ((lists (cons lst (args)))
- (minleght (apply min (map length lists))))
+ (minlength (apply min (map length lists))))
(apply map (cons f (map (lambda (x)
- (slice x 0 minleght))
+ (slice x 0 minlength))
lists)))))
;; (mapcar list '(1 2 3 4) '(10 nil 30) '(100 200 300 400 500 600))
;;=> ((1 10 100) (2 nil 200) (3 30 300))

0 comments on commit 7d0827f

Please sign in to comment.