Source of Nothingness

* Menu

About | Profile | まとめ | オリジナル | xyzzy | あんてな | | buzz

* xyzzy lisp : format ~T

後で書く
(ReadMore...)

* 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関数

http://www.yuasa.kuis.kyoto-u.ac.jp/~hiraisi/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

http://gnuwin32.sourceforge.net/packages/pcre.htm

DLLがあるのならちょっとAPI見てみますか。
(ReadMore...)

* 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

http://www.geocities.jp/kosako3/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)))