--- title: applyの使い方がわかったかもしれない! author: kazu634 date: 2008-10-02 url: /2008/10/02/_1121/ wordtwit_post_info: - 'O:8:"stdClass":13:{s:6:"manual";b:0;s:11:"tweet_times";i:1;s:5:"delay";i:0;s:7:"enabled";i:1;s:10:"separation";s:2:"60";s:7:"version";s:3:"3.7";s:14:"tweet_template";b:0;s:6:"status";i:2;s:6:"result";a:0:{}s:13:"tweet_counter";i:2;s:13:"tweet_log_ids";a:1:{i:0;i:4321;}s:9:"hash_tags";a:0:{}s:8:"accounts";a:1:{i:0;s:7:"kazu634";}}' categories: - gauche - Lisp ---

id:SaitoAtsushiさんとShiroさんに教えていただいて、なんとなくわかった瞬間がきました!とりあえずその全過程をご覧ください。

gosh> (cons 1 2)
(1 . 2)
gosh> (apply cons '(1 2))
(1 . 2)
gosh> (define p '(a b c))
p
gosh> (apply car (list p))
a
gosh> (car p)
a
gosh> (car (list p))
(a b c)
gosh> (apply cdr (list p))
(b c)

ここら辺の段階ではまだよくわかっていない。。。

gosh> (apply list-ref (list p ))
a
gosh> (list-ref p )
a
gosh> (apply list-ref (list p 1))
b
gosh> (list-ref p 1)
b
gosh> (apply list-ref (list p 2))
c
gosh> (list-ref p 2)
c
gosh> (apply length (list p))
3
gosh> (length p)
3
gosh> (apply list-ref '(1))
*** ERROR: wrong number of arguments for #<subr list-ref> (required 2, got 1)
Stack Trace:
_______________________________________
gosh> (list p 2)
((a b c) 2)

ここら辺でもまだ事の重要性に気づいていなかった。。。

gosh> (list-ref p 1)
b
gosh> (list p )
((a b c) )

もしや…applyって「一番外側の()を外して手続きに引数として渡している」んじゃあ…そうじゃないと、

gosh> (apply list-ref (list p 2))
c

とかになる理由が理解できない。これは結局

(list-ref '(a b c) )

となっているはず。そうじゃなければ、こんな挙動になるはずがない。。。

Shiro様、ありがとうございました(__)理解できました。