`car', `cdr', `cons', `append', `reverse', `length'
---------------------------------------------------

car(LIST)
     :: $B6u$G$J$$(B LIST $B$N@hF,MWAG(B.

cdr(LIST)
     :: $B6u$G$J$$(B LIST $B$+$i@hF,MWAG$r<h$j=|$$$?%j%9%H(B.

cons(OBJ,LIST)
     :: LIST $B$N@hF,$K(B OBJ $B$rIU$12C$($?%j%9%H(B.

append(LIST1,LIST2)
     :: LIST1 $B$H(B LIST2 $B$r$3$N=g$K(B 1 $B$D$K$7$?%j%9%H(B.

reverse(LIST)
     :: LIST $B$r5U=g$K$7$?%j%9%H(B.

length(LIST)
     :: LIST $B$ND9$5(B.

RETURN
     `car()' : $BG$0U(B, `cdr()', `cons()', `append()', `reverse()' :
     $B%j%9%H(B,  `length()' : $B<+A3?t(B

LIST,LIST1,LIST2
     $B%j%9%H(B

OBJ
     $BG$0U(B

   * $B%j%9%H$O(B [OBJ1,OBJ2,...] $B$HI=$5$l$k(B. OBJ1 $B$,(B $B@hF,MWAG$G$"$k(B.

   * `car()' $B$O(B, $B6u$G$J$$(B LIST $B$N@hF,MWAG$r=PNO$9$k(B.
     $B6u%j%9%H$,F~NO$5$l$?>l9g$O(B, $B6u%j%9%H$,=PNO$5$l$k(B.

   * `cdr()' $B$O(B, $B6u$G$J$$(B LIST
     $B$+$i@hF,MWAG$r<h$j=|$$$?%j%9%H$r=PNO$9$k(B.
     $B6u%j%9%H$,F~NO$5$l$?>l9g$O(B, $B6u%j%9%H$,=PNO$5$l$k(B.

   * `cons()' $B$O(B,  LIST $B$N@hF,$K(B OBJ $B$rIU$12C$($?%j%9%H$r=PNO$9$k(B.

   * `append()' $B$O(B, LIST1 $B$NMWAG$H(B LIST2
     $B$N$9$Y$F$NMWAG$r7k9g$5$;$?%j%9%H(B [LIST1 $B$NMWAG$NJB$S(B,LIST2
     $B$NMWAG$NJB$S(B] $B$r=PNO$9$k(B.

   * `reverse()' $B$O(B, LIST $B$r5U=g$K$7$?%j%9%H$r=PNO$9$k(B.

   * `length()' $B$O(B, LIST $B$ND9$5$r=PNO$9$k(B.
     $B%Y%/%H%k5Z$S9TNs$NMWAG$N8D?t$O(B, `size()' $B$rMQ$$$k(B.

   * $B%j%9%H$OFI$_=P$7@lMQ$G(B, $BMWAG$NF~$lBX$($O$G$-$J$$(B.

   * $B%j%9%H$N(B N $BHVL\$NMWAG$N<h$j=P$7$O(B, `cdr()' $B$r(B N $B2sE,MQ(B $B$7$?8e(B
     `car()' $B$rE,MQ$9$k$3$H$K$h$j2DG=$G$"$k$,(B, $BJXK!$H$7$F(B, $B%Y%/%H%k(B,
     $B9TNs$J$I$NG[Ns$HF1MM(B, $B%$%s%G%C%/%9(B `[N]' $B$r8e$m$K(B
     $BIU$1$k$3$H$K$h$j<h$j=P$9$3$H$,$G$-$k(B. $B$?$@$7(B, $B%7%9%F%`FbIt$G$O(B,
     $B<B:]$K%]%$%s%?$r(B N $B2s$?$I$k$N$G(B,
     $B8e$m$NMWAG$[$I<h$j=P$7$K;~4V$,$+$+$k(B.

   * `cdr()' $B$O?7$7$$%;%k$r@8@.$7$J$$$,(B, `append()' $B$O(B, $B<B:]$K$O(B $BBh(B 1
     $B0z?t$N%j%9%H$ND9$5$@$1$N(B `cons()' $B$N7+$jJV$7$H$J$k$?$a(B, $BBh(B 1
     $B0z?t$N%j%9%H$,D9$$>l9g$K$OB?$/$N%a%b%j$r>CHq$9$k$3$H$K$J$k(B.
     `reverse()' $B$K4X$7$F$bF1MM$G$"$k(B.

     [0] L = [[1,2,3],4,[5,6]];
     [[1,2,3],4,[5,6]]
     [1] car(L);
     [1,2,3]
     [2] cdr(L);
     [4,[5,6]]
     [3] cons(x*y,L);
     [y*x,[1,2,3],4,[5,6]]
     [4] append([a,b,c],[d]);
     [a,b,c,d]
     [5] reverse([a,b,c,d]);
     [d,c,b,a]
     [6] length(L);
     3
     [7] L[2][0];
     5

