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

素直に再帰

(defun generate-primes (limit)
  (labels ((check (x prime)
             (cond ((endp prime)
                    t)
                   ((zerop (rem x (car prime)))
                    nil)
                   (t
                    (check x (cdr prime)))))
           (main (n x prime)
             (cond ((> x n)
                    (nreverse prime))
                   ((check x prime)
                    (main n (+ x 2) (cons x prime)))
                   (t
                    (main n (+ x 2) prime)))))
    (format t "~{ ~D~}~%" (main limit 3 (list 2)))))

素直にループ

(defun generate-primes (limit)
  (let ((prime nil))
    (push 2 prime)
    (do ((x 3 (+ x 2)))
        ((> x limit))
      (if (dolist (i prime t) (if (zerop (rem x i)) (return nil)))
          (push x prime)))
    (format t "~{ ~A~}~%" (nreverse prime))))

• ってことで、[[キミならどう書く 2.0:http://ll.jus.or.jp/2006/blog/doukaku1]]の「100までの整数から素数を列挙せよ」にlisp解をコメントしてきました。
• ざっと見てみたけど、elispの解がまだ無かったのは意外。
• 今回の収穫はリテラルのリストが問題になるパターンに遭遇できたこと。
• 今までxyzzyで書くときは大して気にしてこなかったけれど、しっかり問題になった。

とりあえず、アルゴリズム事典から。
より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))

• 整数データの16進表記
• ":X" カンマ区切り
• "@X" 常に符号付き
• ":@X" 上記の組み合わせ
• パラメータは最大4つ
• 最小桁(幅)
• 足りない空きを埋める文字
• 区切りに使う文字
• 区切りを入れる間隔
• 後ろ2つは":X"と":@X"のときのみ有効。"X"と"@X"では無視される。

(format nil "~X" #x123abc)
"123abc"
(format nil "~:X" #x123abc)
"123,abc"
(format nil "~@X" #x123abc)
"+123abc"
(format nil "~:@X" #x123abc)
"+123,abc"
(format nil "~10X" #x123abc)
"    123abc"
(format nil "~10,'*X" #x123abc)
"****123abc"
(format nil "~10,'*:@X" #x123abc)
"**+123,abc"
(format nil "~10,'*,'-,2:X" #x123abc)
"**12-3a-bc"

• 整数データの10進表記
• ":D" カンマ区切り
• "@D" 常に符号付き
• ":@D" 上記の組み合わせ
• パラメータは最大4つ
• 最小桁(幅)
• 足りない空きを埋める文字
• 区切りに使う文字(いわゆる全角文字は想定されていない。最小桁がおかしくなる)
• 区切りを入れる間隔
• 後ろ2つは":D"と":@D"のときのみ有効。"D"と"@D"では無視される。

(format nil "~D" 12345)
"12345"
(format nil "~:D" 12345)
"12,345"
(format nil "~@D" 12345)
"+12345"
(format nil "~:@D" 12345)
"+12,345"
(format nil "~10D" 12345)
"     12345"
(format nil "~10,'*D" 12345)
"*****12345"
(format nil "~10,'*:@D" 12345)
"***+12,345"
(format nil "~10,'*,'-,2:D" 12345)
"***1-23-45"

http://ray.sakura.ne.jp/template/index.html

• 整数データの8進表記
• ":O" カンマ区切り
• "@O" 常に符号付き
• ":@O" 上記の組み合わせ
• パラメータは最大4つ
• 最小桁(幅)
• 足りない空きを埋める文字
• 区切りに使う文字
• 区切りを入れる間隔
• 後ろ2つは":O"と":@O"のときのみ有効。"O"と"@O"では無視される。

(format nil "~O" #o12345)
"12345"
(format nil "~:O" #o12345)
"12,345"
(format nil "~@O" #o12345)
"+12345"
(format nil "~:@O" #o12345)
"+12,345"
(format nil "~10O" #o12345)
"     12345"
(format nil "~10,'*O" #o12345)
"*****12345"
(format nil "~10,'*:@O" #o12345)
"***+12,345"
(format nil "~10,'*,'-,2:O" #o12345)
"***1-23-45"

• 整数データの2進表記
• ":B" カンマ区切り
• "@B" 常に符号付き
• ":@B" 上記の組み合わせ
• パラメータは最大4つ
• 最小桁(幅)
• 足りない空きを埋める文字
• 区切りに使う文字
• 区切りを入れる間隔
• 後ろ2つは":B"と":@B"のときのみ有効。"B"と"@B"では無視される。

(format nil "~B" #b11010)
"11010"
(format nil "~:B" #b11010)
"11,010"
(format nil "~@B" #b11010)
"+11010"
(format nil "~:@B" #b11010)
"+11,010"
(format nil "~10B" #b11010)
"     11010"
(format nil "~10,'*B" #b11010)
"*****11010"
(format nil "~10,'*:@B" #b11010)
"***+11,010"
(format nil "~10,'*,'-,2:B" #b11010)
"***1-10-10"

http://idm.s9.xrea.com/ratio/2005/10/30/000283.html

http://www.ut-info.com/linux-soft/index.php?soft%2FXming

どうしてもXが必要になったときに

(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)))))

news.at-ninja.jp/

~a	4	:	@
~s	4	:	@
~d	4	:	-
~b	4	:	-
~o	4	:	-
~x	4	:	-
~r	5	:	@	:@
~p	0	:	@
~c	0	:	@
~f	5	-	@
~e	7	-	@
~g	7	-	@
~$	4	:	@	:@
~%	1	-	-
~&	1	-	-
~|	1	-	-
~~	1	-	-
~\n	0	:	@	-
~t	2	-	@	-
~*	1	:	@	-
~w	???
~?	0	-	@	-
~(	0	:	@	:@
~[	1→	:0	@0	-
~{ 	1	:	@	:@
~^	3	:	-