Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

テスト

  • Loading branch information...
commit 7d0827ff9b1bf438c6a38e869dc8562b66786e57 1 parent 06f75a1
@kosh04 authored
Showing with 2 additions and 2 deletions.
  1. +2 −2 init.lsp
View
4 init.lsp
@@ -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))
Please sign in to comment.
Something went wrong with that request. Please try again.