basicwerk.net

basicwerk.com

Memoize::BasicWerk

http://basicwerk.com/memoize/20140830110522_Common_Lisp_loop_for_x_in_list_do.html

20140830110522 Common Lisp loop for x in list do. Common Lisp loop for x in list do. Loop for i in ' (. 123 NIL * (. Loop for i in ' (. 1 2 3 NIL.

basicwerk.com

Memoize::BasicWerk

http://basicwerk.com/memoize/20140921235840_Common_Lisp_pathname.html

20140921235840 Common Lisp pathname. Probe-file #Psome.file ). T ; Relative path - Absolute path. Directory #Psome.file ). Directory #Psome.file ). ABSOLUTE Users someone path to ). Directory #Psome.lisp ). Users/someone/path/to/ ; basename. File-namestring #P/Users/someone/path/to/some.file ). Somefile ; 拡張子. Pathname-type #P/Users/someone/path/to/some.file ). Pathname-type #Psome.lisp ). Lisp ; 拡張子を除いたファイル名. Pathname-name #P/Users/someone/path/to/some.file ).

basicwerk.com

Memoize::BasicWerk

http://basicwerk.com/memoize/20140607233515_Common_Lisp_with-output-to-string.html

20140607233515 Common Lisp with-output-to-string. Http:/ basicwerk.com/memoize/20140607181635 sb-ext run-program.html. With-output-to-string (out) (sb-ext:run-program date nil :search t :output out).

basicwerk.com

Memoize::BasicWerk

http://basicwerk.com/memoize/20140816010508_Common_lisp_macro_backquote.html

20140816010508 Common lisp macro backquote. Common lisp macro backquote. Backquote) されたリストの中で , でエスケープされた S 式は展開される。 There is a list , (. Format nil item A x ). THERE IS A LIST (. Item A item B item C ). There are items ,@ (. Format nil item A x ). THERE ARE ITEMS item A item B item C ). Mapcar のように何か処理をしてリストを返す高階関数を使うと次のようなことが macro の中で出来る。 Syms &body body ). Format t S S S % a b c ). A B C NIL. Let 式は (let ( sym val) .) .) の形をとるから、mapcar はリストのリストを返している点に注目。 Format t S S S % a b c ).

basicwerk.com

Memoize::BasicWerk

http://basicwerk.com/memoize/20140830111714_Common_Lisp_format_d.html

20140830111714 Common Lisp format d. Common Lisp format d. Format t 2d % 1 ). 1 NIL * (. Format t 2d % 10 ). 10 NIL ; - 付き. Format t @d % 10 ). 10 NIL * (. Format t @d % -10 ). 10 NIL ; 右詰め、左 0 埋め. Format t 10,'0d % 10 ). 0000000010 NIL ; Ooops. Format t 10,'0d % -10 ). 0000000-10 NIL ; 3桁カンマ区切り. Format t :d % 10000 ). 10,000 NIL ; hex. Format t x % 10000 ). 2710 NIL ; Octal. Format t o % 10000 ). 23420 NIL ; Binary. Format t b % 10000 ). 10011100010000 NIL ; Float. Pi 3141592653589793d0 ; 小数点以下4桁.

basicwerk.com

Memoize::BasicWerk

http://basicwerk.com/memoize/20140829114205_Common_Lisp_defstruct_sample.html

20140829114205 Common Lisp defstruct sample. Common Lisp defstruct sample. Bar, baz というスロット. Defstruct foo bar baz ). FOO ; s というシンボルにインスタンスをバインド. Bar, baz はキーワードで指定する. Make-foo :bar 100 :baz aaa ). FOO :BAR 100 :BAZ aaa ). Aaa ; スロットの値を変更. Http:/ www.n-a-n-o.com/lisp/cmucl-tutorials/LISP-tutorial-15.html.

basicwerk.com

Memoize::BasicWerk

http://basicwerk.com/memoize/20140825211331_Common_Lisp_CL-CSV.html

20140825211331 Common Lisp CL-CSV. Cat sample for cl csv.csv id,name,comment 1,Miles,So What. 2,Eric,When you hear music, after it's over, it's gone in the air. You can never capture it again. 3,Lou,Funky, Funky. Cl-csv:read-csv #Psample for cl csv.csv ). Id name comment ). 1 Miles So What. ). 2 Eric When you hear music, after it's over, it's gone in the air. You can never capture it again. ). 3 Lou \Funky, Funky.\ ). Format t { A } % row ). Cl-csv:read-csv #Psample for cl csv.csv :map-fn fn ).

basicwerk.com

Memoize::BasicWerk

http://basicwerk.com/memoize

20141226090111 Common Lisp defstruct stone roses. Common Lisp defstruct stone roses. Sample hash ref.lisp. Defstruct mem name age part ). Make-mem :name 'john :age 34 :part 'guitar ). Make-mem :name 'ian :age 35 :part 'vocal ). Make-mem :name 'mani :age 35 :part 'bass ). Make-mem :name 'reni :age 33 :part 'drums ). Format T Members % ). Format T C A % #\tab (. Format T C C A C A % #\tab #\tab 'age #\tab (. Format T C C A C A % #\tab #\tab 'part #\tab (. 20141226012754 Perl hash reference. Reply 0 use Lis...

basicwerk.com

Memoize::BasicWerk

http://basicwerk.com/memoize/20140908154624_Common_Lisp_defvar_defparameter.html

20140908154624 Common Lisp defvar defparameter. Common Lisp defvar defparameter. SBCL の REPL を起動した直後 = まっさらの状態. Foo debugger invoked on a UNBOUND-VARIABLE: The variable FOO is unbound. Type HELP for debugger help, or (. To exit from SBCL. restarts (. Invokable by number or by possibly-abbreviated name ). Exit debugger, returning to top level. (. SB-INT:SIMPLE-EVAL-IN-LEXENV FOO # NULL-LEXENV ). A ; defvar で値を代入. Defvar foo 1 ). FOO * foo 1 ; foo はもう未定義ではないので、. Defvar foo 100 ). Defparameter bar 1 ).

basicwerk.com

Memoize::BasicWerk

http://basicwerk.com/memoize/20140908142820_Common_Lisp_loop_hash.html

20140908142820 Common Lisp loop hash. Common Lisp loop hash. Loop を使って alist のペアに何かするにはこう。 Defvar lis ' (. In lis do (. Format t A: A % k v ). A:1 B:2 C:3 NIL ; 捨てちゃう値のプレースホルダには nil を使う. In lis sum v ). 6 ; 上記はこう書いたのと同じ. Loop for p in lis sum (. Gethash 'a h ). Gethash 'b h ). Gethash 'c h ). Loop for k being the hash-keys in h do (. Format t A: A % k (. Gethash k h ). A:1 B:2 C:3 NIL. 場合によっては loop にこだわらず maphash を使おう。 ちなみに maphash は mapc 的な動きをする. Format t A: A % k v ). Cons k v ). Gethash k h ).