* Menu
[[About:self:AboutPage.txt]] | [[Profile:file/southly/]] | [[まとめ:self:1163859357.txt]] | [[オリジナル:http://ninjinix.x0.com/rn/]] | [[xyzzy:lisp/]] | [[あんてな:listall]] | [[■:lisp]] | [[buzz:files/southly#buzz]]
- xyzzy lisp : へなちょこ補完その3
- xyzzy lisp : へなちょこ補完その2
- xyzzy lisp : へなちょこ補完
- xyzzy lisp : 位置とサイズの操作
- xyzzy lisp : format ~P
- 素数を求める。
- xyzzy lisp : junk/httpの利用例として
- RandomNote : Todo
- Scrapbook : Memoranda on Visual Studio 2005 Express Editions
- xyzzy lisp : ディレクトリ付きにしてユニークなバッファ名に
- 2006-03-15
- emacs lisp :
- clispでcgi
- Scrapbook : Go --- making Lisp by Java and C#
* xyzzy lisp : へなちょこ補完その3
* xyzzy lisp : へなちょこ補完その2
* xyzzy lisp : へなちょこ補完
* xyzzy lisp : 位置とサイズの操作
* xyzzy lisp : format ~P
- 複数形の表示
- ":P" 一つ前と同じ引数を使う
- "@P" 'y'の変化
- ":@P" 上記の組み合わせ
- パラメータは無し
(format nil "cat~P" 1) "cat" (format nil "cat~P" 2) "cats" (format nil "~R cat~:P" 1) "one cat" (format nil "~R cat~:P" 2) "two cats" (format nil "cand~@P" 1) "candy" (format nil "cand~@P" 2) "candies"
* 素数を求める。
とりあえず、アルゴリズム事典から。
よりLispらしく。
よりLispらしく。
(defun generatePrimes (n) (let ((k 0) (prime (make-vector n :fill-pointer 0))) (vector-push 2 prime) (incf k) (do ((x 3 (+ x 2)) (i 0 0)) ((>= k n)) (while (and (< i k) (/= 0 (rem x (aref prime i)))) (incf i)) (when (= i k) (vector-push x prime) (incf k))) prime))
*
(defun delete-blank-lines-region (start end) (interactive "*r") (save-restriction (narrow-to-region start end) (save-excursion (goto-char (point-min)) (while (and (scan-buffer "^$" :no-dup t :regexp t) (not (eobp))) (delete-blank-lines)))))
* xyzzy lisp : junk/httpの利用例として
* RandomNote : Todo
- spam対策
- コメント書き専用leaf
- 書き込まれたコメントをもう少し分かりやすく
- 時刻検索(並びは降順が欲しい)
- フレーズ検索
- 自動リンクの表示時の長さを制限
- その他なんかある?
→[[ChangeLog self:1141132537.txt]]
* Scrapbook : Memoranda on Visual Studio 2005 Express Editions
http://www.okisoft.co.jp/esc/vs-exp/index.html
* xyzzy lisp : ディレクトリ付きにしてユニークなバッファ名に
機能的には[[しょぼしょぼすくりぷと xyzzy/library/buffer.html#buffer_rename]]さんと同等。
ひとつ上のディレクトリでやめてしまうみたいだから自分で書いてみた。
ひとつ上のディレクトリでやめてしまうみたいだから自分で書いてみた。
(defun buffer-name-with-directory () (let* ((buffer (selected-buffer)) (name (buffer-name buffer)) dirs) (when (string-match "<[0-9]+>" name) (setq dirs (reverse (pathname-directory (get-buffer-file-name buffer)))) (setq name (format nil "~A/~A" (pop dirs) (file-namestring (get-buffer-file-name buffer)))) (while (and dirs (dolist (x (buffer-list)) (if (string= (buffer-name x) name) (return t)))) (setq name (format nil "~A/~A" (pop dirs) name))) (rename-buffer (abbreviate-display-string name 40) buffer)))) (add-hook '*find-file-hooks* 'buffer-name-with-directory)
* 2006-03-15
outline-tree2 で ed::build-summary-function の結果をノードにするってのはできそうな感じ。
最近C++を扱っているのだけど、Lispコーディングの影響か「三項演算子好き」「if文の条件部分にandとかorで処理を並べる」とコーディングスタイルがいつの間にやら変わっていた。
「++, --」は前置の方が速いと知って矯正中。
最近C++を扱っているのだけど、Lispコーディングの影響か「三項演算子好き」「if文の条件部分にandとかorで処理を並べる」とコーディングスタイルがいつの間にやら変わっていた。
「++, --」は前置の方が速いと知って矯正中。
* emacs lisp :
* clispでcgi
URIのデコード・エンコードが一応完成。
感想メモ
・whileが無くてびっくり
・xyzzy lispとの微妙な差が気になる
・(alphanumericp #\あ) => T ってなんだよ!?
[[(ReadMore...) index.rb?1141223408.txt]]
感想メモ
・whileが無くてびっくり
・xyzzy lispとの微妙な差が気になる
・(alphanumericp #\あ) => T ってなんだよ!?
[[(ReadMore...) index.rb?1141223408.txt]]
* Scrapbook : Go --- making Lisp by Java and C#
http://www.okisoft.co.jp/esc/go.html