by shigemk2

当面は技術的なことしか書かない

2013-04-05から1日間の記事一覧

request_uri

PHP

リクエストのURIを取得する echo $_SERVER['REQUEST_URI']; PHP: $_SERVER - Manual

対話によるCommon Lisp入門 24 勝手に関数を作ってみよう

[39]> (defun butlast$ (x) (reverse (rest (reverse x)))) BUTLAST$ [40]> (butlast$ '(a b c d e)) (A B C D) [41]> (butlast '(a b c d e)) (A B C D)(butlast$ '(a b c d e)) = (butlast$ (A B C D E)) = (reverse (rest (reverse '(A B C D E)))) = (re…

対話によるCommon Lisp入門 23 ざっくりドット対

consの第二引数はリストである必要はない。 アトムであってもよい。 その場合、戻り値はrestがリストでないリストになる。 このようなリストはドット対と呼ばれる表現になる (1 . 0)みたいな。 [32]> (append '(a b) '(c)) (A B C) [33]> (cons 1 0) (1 . 0)…

対話によるCommon Lisp入門 22 リストの結合 その2

consの引数は2つだけだが、 setf、list、appendは3つ以上の引数を取ることが出来る。 [17]> (setf animals '(ape bear cat) an-animal 'dog) DOG [18]> animals (APE BEAR CAT) [19]> an-animal DOGこんな風にan-animalを囲ってしまうと、an-animalは関数と…

対話によるCommon Lisp入門 21 リストの結合

appendを使う。 [12]> (append '(a b c) '(d e)) (A B C D E) [13]> (append '((a 1) (b 2) (c 3)) '(d 5)) ((A 1) (B 2) (C 3) D 5) [14]> (append '((a 1) (b 2) (c 3)) '((d 5) (e 5))) ((A 1) (B 2) (C 3) (D 5) (E 5)) [15]> (append '(ape bear cat) '…