* Menu
[[About:self:AboutPage.txt]] | [[Profile:http://iddy.jp/profile/southly/]] | [[まとめ:self:1163859357.txt]] | [[オリジナル:http://ninjinix.x0.com/rn/]] | [[xyzzy:http://raido.sakura.ne.jp/southly/xyzzy/site-lisp/]] | [[あんてな:http://i-know.jp/southly/listall]] | [[■:http://raido.sakura.ne.jp/southly/lisp/ni/view.lisp]] | [[buzz:http://www.google.com/profiles/southly#buzz]]
- Scrapbook : WebScheme - Scheme interpreter for web applications
- Scrapbook : ここにいるだれか - フライパンでパスタ作ってみた
- Scrapbook : 【イーブックオフ】日本最大級のオンライン中古書店
- Scrapbook : 【古本・古書(販売/買取)】本を愛する人の総合サイト・スーパー源氏
- Scrapbook : 日本の古本屋 - 日本最大の古本検索サイト
- Scrapbook : B3 OS/Programming
- lisp : 値渡し?参照渡し?
- xyzzy lisp : シャッフル
- xyzzy lisp : ミニバッファの入力にエスケープシーケンス
- Scrapbook : 気の利いたscanf -- part 1
- xyzzy topic : attribute, M -- Masahiro Ohba's Bryce Gallery
- xyzzy topic : 継続にっき - dabbrev-highlightもどき on xyzzy , RSS feed
- 2007-03-29 (昼)
- 2007-03-29
- 2007-03-27
page 9 - << : 0 : 1 : 2 : 3 : 4 : 5 : 6 : 7 : 8 : 9 : 10 : 11 : 12 : 13 : 14 : 15 : 16 : 17 : 18 : 19 : 20 : 21 : 22 : 23 : 24 : 25 : 26 : 27 : 28 : 29 : 30 : 31 : 32 : 33 : 34 : 35 : 36 : 37 : 38 : >>
* Scrapbook : WebScheme - Scheme interpreter for web applications
* Scrapbook : ここにいるだれか - フライパンでパスタ作ってみた
http://d.hatena.ne.jp/maname/20070407
* Scrapbook : 【イーブックオフ】日本最大級のオンライン中古書店
off.co.jp/index.jsp
* Scrapbook : 【古本・古書(販売/買取)】本を愛する人の総合サイト・スーパー源氏
http://sgenji.jp/
* Scrapbook : 日本の古本屋 - 日本最大の古本検索サイト
http://www.kosho.or.jp/servlet/top
* Scrapbook : B3 OS/Programming
http://www.csg.is.titech.ac.jp/~chiba/lecture/os/index.html
* lisp : 値渡し?参照渡し?
関数一般についてはこの辺りが参考になります。
Schemeの話ですけど基本的に一緒。
Schemeの話ですけど基本的に一緒。
* xyzzy lisp : シャッフル
(defun nswap (l x y) (rotatef (car (nthcdr x l)) (car (nthcdr y l))) l) (defun nshuffle (l) (do ((i (length l) (1- i))) ((>= 1 i)) (setq l (nswap l (1- i) (random i)))) l)元のデータを直接いじっていくほうが分かりやすくないッスか?
ってことでこんな。
nswapは関数にする必要は無いけど意味が分かりやすいように。
* xyzzy lisp : ミニバッファの入力にエスケープシーケンス
interactive指定子を作っちゃえば楽に置き換えられるんじゃね?
ってことで、こんな。
ってことで、こんな。
(in-package "editor") (defun interactive-read-string-with-escape-sequence (prompt default history title) (list (decode-escape-sequence (read-string prompt :default default :history history) nil))) (pushnew '(#\w . interactive-read-string-with-escape-sequence) *interactive-specifier-alist* :test #'equal) (defun interactive-read-regexp-with-escape-sequence (prompt default history title) (list (decode-escape-sequence (read-string prompt :default default :history history) t))) (pushnew '(#\W . interactive-read-regexp-with-escape-sequence) *interactive-specifier-alist* :test #'equal) ;; こんな感じで使う ;; 文字列 (defun search-forward-wes (pattern &optional noerror) (interactive "wSearch forward: " :default0 *last-search-string* :history0 'search) (search-command pattern nil nil (interactive-p) noerror)) ;; 正規表現 (defun re-search-forward-wes (regexp &optional noerror) (interactive "WRe-search forward: " :default0 *last-search-regexp* :history0 'search) (search-command regexp nil t (interactive-p) noerror)) (export '(search-forward-wes re-search-forward-wes)) (in-package "user")