Skip to content
This repository
Browse code

テスト

  • Loading branch information...
commit 7d0827ff9b1bf438c6a38e869dc8562b66786e57 1 parent 06f75a1
KOBAYASHI Shigeru authored April 20, 2009

Showing 1 changed file with 2 additions and 2 deletions. Show diff stats Hide diff stats

  1. 4  init.lsp
4  init.lsp
@@ -164,9 +164,9 @@
164 164
     (replace (eval (args 0)) (eval (args 1)))))
165 165
 (define (mapcar f lst)          ; (mapcar function list &rest more-lists)
166 166
   (letn ((lists (cons lst (args)))
167  
-         (minleght (apply min (map length lists))))
  167
+         (minlength (apply min (map length lists))))
168 168
     (apply map (cons f (map (lambda (x)
169  
-                              (slice x 0 minleght))
  169
+                              (slice x 0 minlength))
170 170
                             lists)))))
171 171
 ;; (mapcar list '(1 2 3 4) '(10 nil 30) '(100 200 300 400 500 600))
172 172
 ;;=> ((1 10 100) (2 nil 200) (3 30 300))

0 notes on commit 7d0827f

Please sign in to comment.
Something went wrong with that request. Please try again.