Source of Nothingness - -6835%

* 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]]

* xyzzy lisp : format ~T

後で書く
[[(ReadMore...) index.rb?1153798673.txt]]

* xyzzy lisp : format ~\n(改行)

(format nil "xy~
   zzy")
"xyzzy"
(format nil "xy~:
   zzy")
"xy   zzy"

(format nil "xy~@
   zzy")
"xy
zzy"

* 2006-07-15

* xyzzy lisp : format ~|

(format nil "~|")
"^L"
(format nil "~3|")
"^L^L^L"

* xyzzy lisp : format ~~

(format nil "~~")
"~"
(format nil "~4~")
"~~~~"

* Scrapbook : format関数

format-func.html

見つかってしまった。
ソース読みも目的なので続けますが。

* xyzzy lisp : format ~%

(format nil "~%")
"
"

(format nil "~3%")
"


"

(format nil "~0%")
""

* xyzzy lisp : format ~C

(format nil "~C" #\C-a)
"^A"
(format nil "~:C" #\C-a)
"C-a"
(format nil "~@C" #\C-a)
"#\\C-a"

* xyzzy lisp : format ~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"

* Scrapbook : 【コラム】Windows XPスマートチューニング 第80回 タスクトレイから過去の履歴をクリアする (MYCOMジャーナル)

http://journal.mycom.co.jp/column/winxp/080/

* Scrapbook : ループの最適化

http://www.emit.jp/prog/prog_opt0.html

* Scrapbook : Pcre for Windows

pcre.htm

DLLがあるのならちょっとAPI見てみますか。
[[(ReadMore...) index.rb?1151424679.txt]]

* Scrapbook : Basic > Fixed width | dafont.com

http://www.dafont.com/theme.php?cat=503&page=3&nb_ppp_old=10&text=Type+your+text+here&nb_ppp=50&classt=alpha

* Scrapbook : Oniguruma

oniguruma/index.html

その2。
対象が文字列ならなんとかなるでしょ。
気がかりは文字コード。
バッファを対象にするのは内部コードとの絡みがあるから厳しいだろうな。

* 素数を求める

素直じゃない再帰・マクロ(ほぼ)無し
(defun generate-primes (limit)
  (format t "~{ ~D~}~%"
          (funcall (lambda (f c n &optional (x 3) (prime (list 2)))
                     (funcall f f c n x prime))
                   (lambda (f c n x prime)
                     (if (> x n)
                         (nreverse prime)
                       (if (funcall c c x prime)
                           (funcall f f c n (+ x 2) (cons x prime))
                         (funcall f f c n (+ x 2) prime))))
                   (lambda (c x prime)
                     (if (endp prime)
                         t
                       (if (zerop (rem x (car prime)))
                           nil
                         (funcall c c x (cdr prime)))))
                   limit)))