http://ja.doukaku.org/lang/commonlisp/Latest comments for language 'Common Lisp' on doukaku.org(long)jaSat, 22 Nov 2008 19:55:42 -0000http://ja.doukaku.org/comment/7964/ <a href="http://ja.doukaku.org/215/">疑似並行処理</a> (<a href="http://ja.doukaku.org/215/nested/">Nested</a> <a href="http://ja.doukaku.org/215/flatten/">Flatten</a>) <hr> スレッド等の並行処理についてはANSI&nbsp;CL仕様外で、 <br/>処理系毎に異なりますが、差異を吸収するパッケージもあり、 <br/>今回は、その目的にportable-threadsを利用しています。 <br/>結果が上手く混ざらないので、それぞれ、短かいsleepをかませてあります。 <br/> <hr> <table><tr><td class="linenos"><pre> 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21</pre></td><td class="code"><div class="highlight"><pre>(defpackage :doukaku-215 (:use :cl :portable-threads)) (in-package :doukaku-215) (loop :with ans := () :with tasks := (list (spawn-thread &quot;num&quot; (lambda () (dotimes (i 10) (push i ans) (sleep 0.001)))) (spawn-thread &quot;char&quot; (lambda () (dotimes (i 10) (push (code-char (+ 65 i)) ans) (sleep 0.001))))) ;; wait :while (every #&#39;thread-alive-p tasks) :do (sleep 0.05) :finally (return ans)) ;=&gt; (#\J 9 #\I 8 #\H 7 #\G 6 5 #\F #\E 4 #\D 3 #\C 2 #\B 1 #\A 0) </pre></div> </td></tr></table> <div align = "right" style="margin-right: 1em;"> [<a href="http://ja.doukaku.org/lang/commonlisp/"> Common Lisp </a>] [<a href="http://ja.doukaku.org/comment/7964/download/"> download code </a>] </a>] </div> <hr> http://ja.doukaku.org/comment/7964/http://ja.doukaku.org/comment/7952/ <a href="http://ja.doukaku.org/214/">&#39;(&#39;と&#39;)&#39;の対応</a> (<a href="http://ja.doukaku.org/214/nested/">Nested</a> <a href="http://ja.doukaku.org/214/flatten/">Flatten</a>) <hr> 処理系の作成コードですが、無駄に複雑でした(^^; <br/>下記のコードでも可能で、これの方がポータブルです。 <br/>(set-macro-character&nbsp;#\&lt;&nbsp;(lambda&nbsp;(stream&nbsp;char) <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(declare&nbsp;(ignore&nbsp;char)) <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(read-delimited-list&nbsp;#\&gt;&nbsp;stream&nbsp;'T))) <br/>(set-macro-character&nbsp;#\&gt;&nbsp;(get-macro-character&nbsp;#\))) <br/> <br/>;;&nbsp;イメージ作成&nbsp;(処理系依存/SBCL) <br/>(sb-ext:save-lisp-and-die&nbsp;"/tmp/doukaku-214"&nbsp;:purify&nbsp;'T&nbsp;:executable&nbsp;'T))) <br/> <hr> http://ja.doukaku.org/comment/7952/http://ja.doukaku.org/comment/7954/ <a href="http://ja.doukaku.org/214/">&#39;(&#39;と&#39;)&#39;の対応</a> (<a href="http://ja.doukaku.org/214/nested/">Nested</a> <a href="http://ja.doukaku.org/214/flatten/">Flatten</a>) <hr> なるほど、ありがとうございます! <br/>納得できました。 <br/>どちらかというと運営とか利用の心得的な話だったのですね。 <br/> <br/>カバレッジについては、仕様上不可能だと証明できれば、 <br/>それはそれでOKな気もしますが、どうなんでしょう。 <br/>仕様上不可能だと証明することも簡単ではないでしょうし。 <hr> http://ja.doukaku.org/comment/7954/http://ja.doukaku.org/comment/7948/ <a href="http://ja.doukaku.org/214/">&#39;(&#39;と&#39;)&#39;の対応</a> (<a href="http://ja.doukaku.org/214/nested/">Nested</a> <a href="http://ja.doukaku.org/214/flatten/">Flatten</a>) <hr> CLの仕様内では丸括弧を無くすのは無理だと思っているのですが、 <br/>何でもありということなら、この問題用にカスタマイズされた <br/>処理系を作成すれば、OKだと思います。 <br/>解答コードでも極力括弧を減らしてみました。 <br/> <br/>(1)&nbsp;下準備として下記のコードを実行し、&lt;&gt;が()の役割をする処理系を <br/>&nbsp;&nbsp;&nbsp;&nbsp;作成します。(/tmpに、doukaku-214という実行ファイルができます。) <br/> <br/>(2)&nbsp;1の処理系で、解答のコードを&lt;load..&gt;で実行します。 <br/>~~~ <br/>;;&nbsp;下準備&nbsp;SBCL限定 <br/> <br/>;; <br/>;;&nbsp;doukaku&nbsp;214&nbsp;lisp <br/>;; <br/> <br/>(in-package&nbsp;"SB-IMPL") <br/> <br/>(defun&nbsp;&lt;&gt;read-list&nbsp;(stream&nbsp;ignore) <br/>&nbsp;&nbsp;(declare&nbsp;(ignore&nbsp;ignore)) <br/>&nbsp;&nbsp;(let*&nbsp;((thelist&nbsp;(list&nbsp;nil)) <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(listtail&nbsp;thelist)) <br/>&nbsp;&nbsp;&nbsp;&nbsp;(do&nbsp;((firstchar&nbsp;(flush-whitespace&nbsp;stream)&nbsp;(flush-whitespace&nbsp;stream))) <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;((char=&nbsp;firstchar&nbsp;#\&gt;&nbsp;)&nbsp;(cdr&nbsp;thelist)) <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(when&nbsp;(char=&nbsp;firstchar&nbsp;#\.) <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(let&nbsp;((nextchar&nbsp;(read-char&nbsp;stream&nbsp;t))) <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(cond&nbsp;((token-delimiterp&nbsp;nextchar) <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(cond&nbsp;((eq&nbsp;listtail&nbsp;thelist) <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(unless&nbsp;*read-suppress* <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(simple-reader-error <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;stream <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"Nothing&nbsp;appears&nbsp;before&nbsp;.&nbsp;in&nbsp;list."))) <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;((whitespace[2]p&nbsp;nextchar) <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(setq&nbsp;nextchar&nbsp;(flush-whitespace&nbsp;stream)))) <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(rplacd&nbsp;listtail <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;;;&nbsp;Return&nbsp;list&nbsp;containing&nbsp;last&nbsp;thing. <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(car&nbsp;(read-after-dot&nbsp;stream&nbsp;nextchar))) <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(return&nbsp;(cdr&nbsp;thelist))) <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;;;&nbsp;Put&nbsp;back&nbsp;NEXTCHAR&nbsp;so&nbsp;that&nbsp;we&nbsp;can&nbsp;read&nbsp;it&nbsp;normally. <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(t&nbsp;(unread-char&nbsp;nextchar&nbsp;stream))))) <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;;;&nbsp;Next&nbsp;thing&nbsp;is&nbsp;not&nbsp;an&nbsp;isolated&nbsp;dot. <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(let&nbsp;((listobj&nbsp;(read-maybe-nothing&nbsp;stream&nbsp;firstchar))) <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;;;&nbsp;allows&nbsp;the&nbsp;possibility&nbsp;that&nbsp;a&nbsp;comment&nbsp;was&nbsp;read <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(when&nbsp;listobj <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(rplacd&nbsp;listtail&nbsp;listobj) <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(setq&nbsp;listtail&nbsp;listobj)))))) <br/> <br/>(set-macro-character&nbsp;#\&lt;&nbsp;#'&lt;&gt;read-list) <br/>(set-macro-character&nbsp;#\&gt;&nbsp;#'read-right-paren) <br/>(sb-ext:save-lisp-and-die&nbsp;"/tmp/doukaku-214"&nbsp;:purify&nbsp;'T&nbsp;:executable&nbsp;'T))) <hr> <table><tr><td class="linenos"><pre> 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16</pre></td><td class="code"><div class="highlight"><pre>&lt;with-open-file &lt;in &quot;/tmp/test.txt&quot;&gt; &lt;loop with match? = 0; with lp = &lt;code-char 40&gt;; with rp = &lt;code-char 41&gt;; for c = &lt;read-char in nil nil&gt; while c if &lt;minusp match?&gt; return nil; else if &lt;char= lp c&gt; do &lt;incf match?&gt;; else if &lt;char= rp c&gt; do &lt;decf match?&gt;; end; end; end; finally &lt;return &lt;zerop match?&gt;&gt;&gt;&gt; </pre></div> </td></tr></table> <div align = "right" style="margin-right: 1em;"> [<a href="http://ja.doukaku.org/lang/commonlisp/"> Common Lisp </a>] [<a href="http://ja.doukaku.org/comment/7948/download/"> download code </a>] </a>] </div> <hr> http://ja.doukaku.org/comment/7948/http://ja.doukaku.org/comment/7946/ <a href="http://ja.doukaku.org/214/">&#39;(&#39;と&#39;)&#39;の対応</a> (<a href="http://ja.doukaku.org/214/nested/">Nested</a> <a href="http://ja.doukaku.org/214/flatten/">Flatten</a>) <hr> これのマイナス評価の理由が知りたいんですが、 <br/>(1)仕様内でもCLで可能 <br/>(2)不可能と言い切っていなかった <br/>(3)その他 <br/>等々どういう理由なんでしょうか('-'*) <br/> <hr> http://ja.doukaku.org/comment/7946/http://ja.doukaku.org/comment/7945/ <a href="http://ja.doukaku.org/195/">tailの実装</a> (<a href="http://ja.doukaku.org/195/nested/">Nested</a> <a href="http://ja.doukaku.org/195/flatten/">Flatten</a>) <hr> 該当行のファイルポジションを割出してから表示するようにしてみました。 <hr> <table><tr><td class="linenos"><pre> 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</pre></td><td class="code"><div class="highlight"><pre>(defun tail (file lines &amp;key (follow nil) (external-format :utf-8)) (when (&lt; 0 lines) (with-open-file (in file :external-format external-format) (loop :FOR pos := (last-n-line-position lines file) :THEN (last-n-line-position lines file :offset pos) :DO (file-position in pos) (loop :for line := (read-line in nil nil) :while line :do (princ line) (terpri)) :WHILE follow :DO (sleep 1))))) (defun last-n-line-position (n file &amp;key (newline-char #\Newline) (offset 0)) (declare ((integer 0 *) n offset)) (let* ((n (1+ n)) ;改行で数えているので1+ (pool (make-array n :initial-element nil))) (with-open-file (in file :element-type &#39;(unsigned-byte 8)) (file-position in offset) (loop :with nl := (char-code newline-char) :and pos := 0 :for byte := (read-byte in nil nil) :while byte :for file-pos :from 0 :when (eql nl byte) :do (setq pos (mod (1+ pos) n)) (setf (aref pool pos) file-pos) :finally (return (let ((ans (loop :for p :across pool :minimize (or p 0)))) (+ offset (if (zerop ans) 0 (1+ ans))))))))) </pre></div> </td></tr></table> <div align = "right" style="margin-right: 1em;"> [<a href="http://ja.doukaku.org/lang/commonlisp/"> Common Lisp </a>] [<a href="http://ja.doukaku.org/comment/7945/download/"> download code </a>] </a>] </div> <hr> http://ja.doukaku.org/comment/7945/http://ja.doukaku.org/comment/7938/ <a href="http://ja.doukaku.org/195/">tailの実装</a> (<a href="http://ja.doukaku.org/195/nested/">Nested</a> <a href="http://ja.doukaku.org/195/flatten/">Flatten</a>) <hr> あんまり効率は良くないかも <br/>(tail&nbsp;"/etc/passwd"&nbsp;4&nbsp;:follow&nbsp;'T) <br/>;&gt;&gt;&gt;&nbsp; <br/>haldaemon:x:111:123:Hardware&nbsp;abstraction&nbsp;layer,,,:/var/run/hald:/bin/false <br/>sshd:x:112:65534::/var/run/sshd:/usr/sbin/nologin <br/>statd:x:113:65534::/var/lib/nfs:/bin/false <br/>telnetd:x:114:125::/nonexistent:/bin/false <br/>...&nbsp;1秒おきに繰り返し <hr> <table><tr><td class="linenos"><pre> 1 2 3 4 5 6 7 8 9 10 11 12 13 14</pre></td><td class="code"><div class="highlight"><pre>(defun tail (file lines &amp;key (follow nil) (external-format :utf-8)) (when (&lt; 0 lines) (let ((pool (make-array lines))) (with-open-file (in file :external-format external-format) (loop :DO (loop :for line := (read-line in nil nil) :while line :for pos := 0 :then (mod (1+ pos) lines) :do (setf (aref pool pos) line) :finally (loop :for p :from pos :for x :across pool :do (princ (aref pool (mod (1+ p) lines))) (terpri))) :WHILE follow :DO (file-position in 0) (sleep 1)))))) </pre></div> </td></tr></table> <div align = "right" style="margin-right: 1em;"> [<a href="http://ja.doukaku.org/lang/commonlisp/"> Common Lisp </a>] [<a href="http://ja.doukaku.org/comment/7938/download/"> download code </a>] </a>] </div> <hr> http://ja.doukaku.org/comment/7938/http://ja.doukaku.org/comment/7940/ <a href="http://ja.doukaku.org/195/">tailの実装</a> (<a href="http://ja.doukaku.org/195/nested/">Nested</a> <a href="http://ja.doukaku.org/195/flatten/">Flatten</a>) <hr> すいません、間違ったものを貼りつけてました。前のでは、ファイルの行数が指定より少ない場合に余計な出力が出てしまいます。 <hr> <table><tr><td class="linenos"><pre> 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16</pre></td><td class="code"><div class="highlight"><pre>(defun tail (file lines &amp;key (follow nil) (external-format :utf-8)) (when (&lt; 0 lines) (let ((pool (make-array lines :initial-element nil))) (with-open-file (in file :external-format external-format) (loop :DO (loop :for line := (read-line in nil nil) :while line :for pos := 0 :then (mod (1+ pos) lines) :do (setf (aref pool pos) line) :finally (loop :for p :from pos :for x :across pool :do (let ((line (aref pool (mod (1+ p) lines)))) (when line (princ line) (terpri))))) :WHILE follow :DO (file-position in 0) (sleep 1)))))) </pre></div> </td></tr></table> <div align = "right" style="margin-right: 1em;"> [<a href="http://ja.doukaku.org/lang/commonlisp/"> Common Lisp </a>] [<a href="http://ja.doukaku.org/comment/7940/download/"> download code </a>] </a>] </div> <hr> http://ja.doukaku.org/comment/7940/http://ja.doukaku.org/comment/7924/ <a href="http://ja.doukaku.org/214/">&#39;(&#39;と&#39;)&#39;の対応</a> (<a href="http://ja.doukaku.org/214/nested/">Nested</a> <a href="http://ja.doukaku.org/214/flatten/">Flatten</a>) <hr> Common&nbsp;LispでもSchemeみたいに、()を[]にすれば簡単!!と思ったのですが、リーダーマクロを設定するにも最初は()が必要なのでした…。 <hr> <table><tr><td class="linenos"><pre>1</pre></td><td class="code"><div class="highlight"><pre>;;; 不可能? </pre></div> </td></tr></table> <div align = "right" style="margin-right: 1em;"> [<a href="http://ja.doukaku.org/lang/commonlisp/"> Common Lisp </a>] [<a href="http://ja.doukaku.org/comment/7924/download/"> download code </a>] </a>] </div> <hr> http://ja.doukaku.org/comment/7924/http://ja.doukaku.org/comment/7911/ <a href="http://ja.doukaku.org/202/">LL Golf Hole 7 - バイト数を読みやすくする</a> (<a href="http://ja.doukaku.org/202/nested/">Nested</a> <a href="http://ja.doukaku.org/202/flatten/">Flatten</a>) <hr> <hr> <table><tr><td class="linenos"><pre>1 2 3 4</pre></td><td class="code"><div class="highlight"><pre>(let ((kibi 1024.0)) (do ((b (read) (/ b kibi)) (us &#39;(|| k M G T) (cdr us))) ((&lt; b kibi) (format t &quot;~,1F~A~%&quot; b (car us))))) </pre></div> </td></tr></table> <div align = "right" style="margin-right: 1em;"> [<a href="http://ja.doukaku.org/lang/commonlisp/"> Common Lisp </a>] [<a href="http://ja.doukaku.org/comment/7911/download/"> download code </a>] </a>] </div> <hr> http://ja.doukaku.org/comment/7911/http://ja.doukaku.org/comment/7910/ <a href="http://ja.doukaku.org/210/">π</a> (<a href="http://ja.doukaku.org/210/nested/">Nested</a> <a href="http://ja.doukaku.org/210/flatten/">Flatten</a>) <hr> <p>common-lisp:pi と比べると意外と精度が低い？</p> <hr> <table><tr><td class="linenos"><pre>1</pre></td><td class="code"><div class="highlight"><pre>(princ (* (acos 0) 2)) </pre></div> </td></tr></table> <div align = "right" style="margin-right: 1em;"> [<a href="http://ja.doukaku.org/lang/commonlisp/"> Common Lisp </a>] [<a href="http://ja.doukaku.org/comment/7910/download/"> download code </a>] </a>] </div> <hr> http://ja.doukaku.org/comment/7910/http://ja.doukaku.org/comment/7909/ <a href="http://ja.doukaku.org/193/">2次元ランダムウォーク</a> (<a href="http://ja.doukaku.org/193/nested/">Nested</a> <a href="http://ja.doukaku.org/193/flatten/">Flatten</a>) <hr> <p>Common Lisp 手習い。 <a href="http://ja.doukaku.org/comment/6839/">#6839</a> を写経。 </p> <hr> <table><tr><td class="linenos"><pre>1 2 3 4 5 6 7 8 9</pre></td><td class="code"><div class="highlight"><pre>(let ((ms #(#c(+1 0) #c(0 +1) #c(-1 0) #c(0 -1))) (n 10)) (do ((p #c(0 0) (+ p (aref ms (random 4)))) (i 0 (+ i 1))) ((= i n)) (format t &quot;~A ~A ~A~%&quot; i (realpart p) (imagpart p)))) </pre></div> </td></tr></table> <div align = "right" style="margin-right: 1em;"> [<a href="http://ja.doukaku.org/lang/commonlisp/"> Common Lisp </a>] [<a href="http://ja.doukaku.org/comment/7909/download/"> download code </a>] </a>] </div> <hr> http://ja.doukaku.org/comment/7909/http://ja.doukaku.org/comment/7895/ <a href="http://ja.doukaku.org/213/">世界時計</a> (<a href="http://ja.doukaku.org/213/nested/">Nested</a> <a href="http://ja.doukaku.org/213/flatten/">Flatten</a>) <hr> なんとも中途半端な感じに…。 <br/>;&gt;&gt;&gt; <br/>現在の時刻は、2008年10月30日&nbsp;9時5分8秒です。 <br/>グリニッジ標準時刻は、2008年10月30日&nbsp;0時5分8秒です。 <br/>アメリカ・ロサンゼルスの時刻は、2008年10月29日&nbsp;15時5分8秒です。 <hr> <table><tr><td class="linenos"><pre> 1 2 3 4 5 6 7 8 9 10 11 12 13 14</pre></td><td class="code"><div class="highlight"><pre>(defconstant +America/Los_Angeles+ 9) (defconstant +GMT+ 0) (defun yyyy-mm-dd-hh-mm-ss-list (ut &amp;optional tz) (reverse (BUTLAST (multiple-value-list (decode-universal-time ut tz)) 3))) (let ((ut (get-universal-time))) (loop :for (fmt tz) :in `((&quot;現在の時刻は、~A年~A月~A日 ~A時~A分~A秒です。~%&quot; nil) (&quot;グリニッジ標準時刻は、~A年~A月~A日 ~A時~A分~A秒です。~%&quot; ,+GMT+) (&quot;アメリカ・ロサンゼルスの時刻は、~A年~A月~A日 ~A時~A分~A秒です。~%&quot; ,+America/LOS_Angeles+)) :do (destructuring-bind (y mo d h m s) (yyyy-mm-dd-hh-mm-ss-list ut tz) (format t fmt y mo d h m s)))) </pre></div> </td></tr></table> <div align = "right" style="margin-right: 1em;"> [<a href="http://ja.doukaku.org/lang/commonlisp/"> Common Lisp </a>] [<a href="http://ja.doukaku.org/comment/7895/download/"> download code </a>] </a>] </div> <hr> http://ja.doukaku.org/comment/7895/http://ja.doukaku.org/comment/7872/ <a href="http://ja.doukaku.org/201/">LL Golf Hole 6 - 10進数を2進数に基数変換する</a> (<a href="http://ja.doukaku.org/201/nested/">Nested</a> <a href="http://ja.doukaku.org/201/flatten/">Flatten</a>) <hr> <pre class='compact'>２進数の場合</pre> <hr> <table><tr><td class="linenos"><pre>1</pre></td><td class="code"><div class="highlight"><pre>(format t &quot;~b&quot; (read)) </pre></div> </td></tr></table> <div align = "right" style="margin-right: 1em;"> [<a href="http://ja.doukaku.org/lang/commonlisp/"> Common Lisp </a>] [<a href="http://ja.doukaku.org/comment/7872/download/"> download code </a>] </a>] </div> <hr> http://ja.doukaku.org/comment/7872/http://ja.doukaku.org/comment/7848/ <a href="http://ja.doukaku.org/212/">漢数字で九九の表</a> (<a href="http://ja.doukaku.org/212/nested/">Nested</a> <a href="http://ja.doukaku.org/212/flatten/">Flatten</a>) <hr> そもそもformat指示子が間違ったやつを貼ってました(^^; <br/>みんな良くみてるなー。 <hr> <table><tr><td class="linenos"><pre> 1 2 3 4 5 6 7 8 9 10 11 12 13</pre></td><td class="code"><div class="highlight"><pre>(defconstant +漢数字+ &quot;○一二三四五六七八九&quot;) (defun 亜剌比亜数字至漢数字 (n) (map &#39;string (lambda (x) (aref +漢数字+ (parse-integer (string x)))) (princ-to-string n))) (let ((一 (position #\一 +漢数字+)) (三 (position #\三 +漢数字+)) (九 (position #\九 +漢数字+))) (loop :for x :from 一 :to 九 :do (loop :for y :from 一 :to 九 :do (format t &quot;~V,,,&#39;　@A&quot; 三 (亜剌比亜数字至漢数字 (* x y)))) (terpri))) </pre></div> </td></tr></table> <div align = "right" style="margin-right: 1em;"> [<a href="http://ja.doukaku.org/lang/commonlisp/"> Common Lisp </a>] [<a href="http://ja.doukaku.org/comment/7848/download/"> download code </a>] </a>] </div> <hr> http://ja.doukaku.org/comment/7848/http://ja.doukaku.org/comment/7845/ <a href="http://ja.doukaku.org/7/">ウィンドウの表示</a> (<a href="http://ja.doukaku.org/7/nested/">Nested</a> <a href="http://ja.doukaku.org/7/flatten/">Flatten</a>) <hr> <p>McCLIM で。 画面中央に配置する方法がわかりませんでした。</p> <hr> <table><tr><td class="linenos"><pre> 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15</pre></td><td class="code"><div class="highlight"><pre>(require :mcclim-freetype) (in-package :clim-user) (define-application-frame hello-frame () () (:pane (make-pane &#39;application-pane :display-function (lambda (frame stream) (declare (ignore frame)) (with-text-size (stream :small) (format stream &quot;こんにちは、GUI！&quot;))))) (:geometry :width 100 :height 75 :top 300 :left 500)) (run-frame-top-level (make-application-frame &#39;hello-frame)) </pre></div> </td></tr></table> <div align = "right" style="margin-right: 1em;"> [<a href="http://ja.doukaku.org/lang/commonlisp/"> Common Lisp </a>] [<a href="http://ja.doukaku.org/comment/7845/download/"> download code </a>] </a>] </div> <hr> http://ja.doukaku.org/comment/7845/http://ja.doukaku.org/comment/7826/ <a href="http://ja.doukaku.org/212/">漢数字で九九の表</a> (<a href="http://ja.doukaku.org/212/nested/">Nested</a> <a href="http://ja.doukaku.org/212/flatten/">Flatten</a>) <hr> 出力の整形の為にいらないことをしてアラビア数字を紛れ込ませていたので修正しました(^^; <hr> <table><tr><td class="linenos"><pre> 1 2 3 4 5 6 7 8 9 10 11 12</pre></td><td class="code"><div class="highlight"><pre>(defconstant +漢数字+ &quot;○一二三四五六七八九&quot;) (defun 亜剌比亜数字至漢数字 (n) (map &#39;string (lambda (x) (aref +漢数字+ (parse-integer (string x)))) (princ-to-string n))) (let ((一 (position #\一 +漢数字+)) (九 (position #\九 +漢数字+))) (loop :for x :from 一 :to 九 :do (loop :for y :from 一 :to 九 :do (format t &quot;~A &quot; (亜剌比亜数字至漢数字 (* x y)))) (terpri))) </pre></div> </td></tr></table> <div align = "right" style="margin-right: 1em;"> [<a href="http://ja.doukaku.org/lang/commonlisp/"> Common Lisp </a>] [<a href="http://ja.doukaku.org/comment/7826/download/"> download code </a>] </a>] </div> <hr> http://ja.doukaku.org/comment/7826/http://ja.doukaku.org/comment/7823/ <a href="http://ja.doukaku.org/212/">漢数字で九九の表</a> (<a href="http://ja.doukaku.org/212/nested/">Nested</a> <a href="http://ja.doukaku.org/212/flatten/">Flatten</a>) <hr> あまり面白味のない解答ですが…。 <br/> <br/>　　一　　二　　三　　四　　五　　六　　七　　八　　九 <br/>　　二　　四　　六　　八　一○　一二　一四　一六　一八 <br/>　　三　　六　　九　一二　一五　一八　二一　二四　二七 <br/>　　四　　八　一二　一六　二○　二四　二八　三二　三六 <br/>　　五　一○　一五　二○　二五　三○　三五　四○　四五 <br/>　　六　一二　一八　二四　三○　三六　四二　四八　五四 <br/>　　七　一四　二一　二八　三五　四二　四九　五六　六三 <br/>　　八　一六　二四　三二　四○　四八　五六　六四　七二 <br/>　　九　一八　二七　三六　四五　五四　六三　七二　八一 <hr> <table><tr><td class="linenos"><pre> 1 2 3 4 5 6 7 8 9 10 11 12</pre></td><td class="code"><div class="highlight"><pre>(defconstant +漢数字+ &quot;○一二三四五六七八九&quot;) (defun 亜剌比亜数字至漢数字 (n) (map &#39;string (lambda (x) (aref +漢数字+ (parse-integer (string x)))) (princ-to-string n))) (let ((一 (position #\一 +漢数字+)) (九 (position #\九 +漢数字+))) (loop :for x :from 一 :to 九 :do (loop :for y :from 一 :to 九 :do (format t &quot;~@3,,,&#39;　A&quot; (亜剌比亜数字至漢数字 (* x y)))) (terpri))) </pre></div> </td></tr></table> <div align = "right" style="margin-right: 1em;"> [<a href="http://ja.doukaku.org/lang/commonlisp/"> Common Lisp </a>] [<a href="http://ja.doukaku.org/comment/7823/download/"> download code </a>] </a>] </div> <hr> http://ja.doukaku.org/comment/7823/http://ja.doukaku.org/comment/7735/ <a href="http://ja.doukaku.org/209/">タブ区切りデータの処理</a> (<a href="http://ja.doukaku.org/209/nested/">Nested</a> <a href="http://ja.doukaku.org/209/flatten/">Flatten</a>) <hr> オブジェクト指向っぽく書いてみたつもりです… <br/>(with-open-file&nbsp;(in&nbsp;"doukaku-209.data") <br/>&nbsp;&nbsp;(update-file&nbsp;(make-instance&nbsp;'doukaku-209)&nbsp;in&nbsp;*standard-output*)) <br/>;&gt;&gt;&gt; <br/>ID Forename Surname Age <br/>0 Taro Suzuki 19 <br/>1 Hanako Sato 18 <hr> <table><tr><td class="linenos"><pre> 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 39 40 41 42</pre></td><td class="code"><div class="highlight"><pre>(defpackage :doukaku-209 (:use :cl :split-sequence)) (in-package :doukaku-209) (defclass file-op () ()) (defgeneric file-to-data (file-op stream)) (defgeneric swap-colum (file-op data)) (defgeneric sort-data (file-op data)) (defgeneric update-datum (file-op data)) (defgeneric format-out-data (file-op stream data)) (defgeneric update-file (file-op in-stream out-stream)) (defmethod update-file ((op file-op) (in stream) (out stream)) (format-out-data op out (swap-colum op (destructuring-bind (title &amp;rest data) (file-to-data op in) `(,title ,@(sort-data op (loop :for line :in data :collect (update-datum op line)))))))) (defclass doukaku-209 (file-op) ()) (defmethod file-to-data ((op doukaku-209) (in stream)) (loop :for line := (read-line in nil nil) :while line :collect (split-sequence #\Tab line))) (defmethod swap-colum ((op doukaku-209) (data list)) (loop :for xx :in (copy-list data) :do (rotatef (nth 1 xx) (nth 2 xx)) :collect xx)) (defmethod sort-data ((op doukaku-209) (data list)) (sort (copy-list data) #&#39;&lt; :key #&#39;first)) (defmethod format-out-data ((op doukaku-209) (out stream) (data list)) (format out &quot;~{~{~A~^ ~}~%~}&quot; data)) (defmethod update-datum ((op doukaku-209) (row list)) (destructuring-bind (id sur fore age) row (list (parse-integer id) sur fore (1+ (parse-integer age))))) </pre></div> </td></tr></table> <div align = "right" style="margin-right: 1em;"> [<a href="http://ja.doukaku.org/lang/commonlisp/"> Common Lisp </a>] [<a href="http://ja.doukaku.org/comment/7735/download/"> download code </a>] </a>] </div> <hr> http://ja.doukaku.org/comment/7735/http://ja.doukaku.org/comment/7734/ <a href="http://ja.doukaku.org/209/">タブ区切りデータの処理</a> (<a href="http://ja.doukaku.org/209/nested/">Nested</a> <a href="http://ja.doukaku.org/209/flatten/">Flatten</a>) <hr> なんだか書き捨てって感じになってしまいました(^^; <hr> <table><tr><td class="linenos"><pre> 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18</pre></td><td class="code"><div class="highlight"><pre>(defpackage :doukaku-209 (:use :cl :split-sequence)) (in-package :doukaku-209) (defun parse-integer-or-never (string &amp;key (after #&#39;values)) (let ((num (parse-integer string :junk-allowed &#39;T))) (if num (funcall after num) string))) (with-open-file (in &quot;doukaku-209.data&quot;) (with-open-file (out &quot;doukaku-209.out&quot; :direction :output :if-exists :supersede) (format out &quot;~{~{~A~^ ~}~%~}&quot; (destructuring-bind (title &amp;rest data) (loop :for (id sur fore age) := (split-sequence #\Tab (read-line in nil nil)) :while (and id sur fore age) :collect (list (parse-integer-or-never id) fore sur (parse-integer-or-never age :after #&#39;1+))) `(,title ,@(sort data #&#39;&lt; :key #&#39;first)))))) </pre></div> </td></tr></table> <div align = "right" style="margin-right: 1em;"> [<a href="http://ja.doukaku.org/lang/commonlisp/"> Common Lisp </a>] [<a href="http://ja.doukaku.org/comment/7734/download/"> download code </a>] </a>] </div> <hr> http://ja.doukaku.org/comment/7734/