6.3 ÇÛÎóÁàºî´Ø¿ô

ËÜÀá¤Ç¤ÏǤ°Õ¤ÎÇÛÎ󷿤ò¼õ¤±ÉÕ¤±¤ë´Ø¿ô¤òÀâÌÀ¤·¤Þ¤¹¡£

Function: arrayp object

¤³¤Î´Ø¿ô¤Ïobject¤¬ÇÛÎó ¡Ê¤Ä¤Þ¤ê¡¢¥Ù¥¯¥È¥ë¡¢Ê¸»úÎó¡¢¥Ö¡¼¥ë¥Ù¥¯¥È¥ë¡¢¤¢¤ë¤¤¤Ï¡¢Ê¸»ú¥Æ¡¼¥Ö¥ë¡Ë¤Ê¤é¤Ð¡¢ t¤òÊÖ¤¹¡£

(arrayp [a])
     ⇒ t
(arrayp "asdf")
     ⇒ t
(arrayp (syntax-table))    ;; ʸ»ú¥Æ¡¼¥Ö¥ë
     ⇒ t

Function: aref array index

¤³¤Î´Ø¿ô¤Ïarray¤ÎindexÈÖÌܤÎÍ×ÁǤòÊÖ¤¹¡£ ºÇ½é¤ÎÍ×ÁǤÎź»ú¤Ï0¡£

(setq primes [2 3 5 7 11 13])
     ⇒ [2 3 5 7 11 13]
(aref primes 4)
     ⇒ 11

(aref "abcdefg" 1)
     ⇒ 98           ; ‘b’¤Ï¡¢ASCII¥³¡¼¥É98

Sequence Functions¤Î´Ø¿ôelt¤â»²¾È¡£

Function: aset array index object

¤³¤Î´Ø¿ô¤ÏÇÛÎóarray¤ÎindexÈÖÌܤÎÍ×ÁǤËobject¤òÀßÄꤹ¤ë¡£ object¤òÊÖ¤¹¡£

(setq w [foo bar baz])
     ⇒ [foo bar baz]
(aset w 0 'fu)
     ⇒ fu
w
     ⇒ [fu bar baz]

(setq x "asdfasfd")
     ⇒ "asdfasfd"
(aset x 3 ?Z)
     ⇒ 90
x
     ⇒ "asdZasfd"

array¤¬Ê¸»úÎó¤Ç¤¢¤ê¡¢¤«¤Ä¡¢object¤¬Ê¸»ú¤Ç¤Ê¤±¤ì¤Ð¡¢ ·ë²Ì¤Ï¥¨¥é¡¼wrong-type-argument¤È¤Ê¤ë¡£ array¤¬Ê¸»úÎó¤Ç¤¢¤ê¡¢¤«¤Ä¡¢object¤¬Ê¸»ú¤Ç¤¢¤Ã¤Æ¤â¡¢ ¸½ºß(aref object index)¤ËÊݸ¤µ¤ì¤Æ¤¤¤ëʸ»ú¤Î¥Ð¥¤¥È¿ô¤È object¤¬»È¤¦¥Ð¥¤¥È¿ô¤¬°Û¤Ê¤ì¤Ð¡¢¤ä¤Ï¤ê¡¢¥¨¥é¡¼¤È¤Ê¤ë¡£ see Splitting Characters¡£

Function: fillarray array object

¤³¤Î´Ø¿ô¤Ï¡¢ÇÛÎóarray¤òobject¤ÇËä¤á¡¢ array¤Î³ÆÍ×ÁǤ¬object¤È¤Ê¤ë¤è¤¦¤Ë¤¹¤ë¡£ array¤òÊÖ¤¹¡£

(setq a [a b c d e f g])
     ⇒ [a b c d e f g]
(fillarray a 0)
     ⇒ [0 0 0 0 0 0 0]
a
     ⇒ [0 0 0 0 0 0 0]

(setq s "When in the course")
     ⇒ "When in the course"
(fillarray s ?-)
     ⇒ "------------------"

array¤¬Ê¸»úÎó¤Ç¤¢¤ê¡¢¤«¤Ä¡¢object¤¬Ê¸»ú¤Ç¤Ê¤±¤ì¤Ð¡¢ ·ë²Ì¤Ï¥¨¥é¡¼wrong-type-argument¤Ë¤Ê¤ë¡£

ÇÛÎó¤Ç¤¢¤ë¤³¤È¤¬´ûÃΤΥª¥Ö¥¸¥§¥¯¥È¤ËÂФ·¤Æ¤Ï¡¢ ÈÆÍѤΥ·¡¼¥±¥ó¥¹´Ø¿ôcopy-sequence¤älength¤¬¤·¤Ð¤·¤ÐÍ­ÍѤǤ¹¡£ See Sequence Functions¡£