Lisp Schemeスレの話題は高度すぎて気後れする人が話しあったり。
それ以外でもCommon Lispについての話題なら歓迎します。
ま、ゆっくりやりましょう。
「いいものの本質は、いかなる時代においても変わらない」byパワーズ
■前スレ
【入門】Common Lisp その9【質問よろず】
http://toro.2ch.net/test/read.cgi/tech/1330888006/
■Wiki
http://wiki.fdiary.net/lisp/ (id:guest pass:cl)
http://cl.cddddr.org/
http://tips.lisp-users.org/common-lisp/
そうか
http://blog.livedoor.jp/dankogai/archives/51854832.html
ポケットサイズのlispマシン欲しい
Netwalkerは普通のlinuxマシンじゃないの ?
Vaio Pとかいろいろ買ったけど
Macbook Airが一番無難で可搬性の高いUnix(lispの動くプラットフォーム)
なんじゃないかと現状思う。
AndroidがLinuxだと思ってNECのLife Touch Note買ったけど
shellなくてわろた
インストールできるんじゃないの ?という意味で書きました。
わかりにくい書き方ですみません
他に系統的に学べるサイトはないかな
結構値がはるしキツいな
そこまで難しい英語じゃなかったので
読もうと思えば読めるレベル
その点手続型言語は基本的な文法をちょろっとやれば
そこそこ自力で書き始められて、壁にぶち当たったら本を読んで、
とできるけど、lispはそれが難しかった
それだけでも色々できて面白かったけどなあ
手続き型・・・小学校で習う表記に似てるからじゃね？
あと、lisp をできるようになりたいだけなら日本語版でもいい。でも、凄いエンジニアになりたいのなら、英語力は必須だよ。
逆に考えればlispと英語が同時に学べるチャンスだ。
xyzzy Lisp Programming
http://www.geocities.jp/m_hiroi/xyzzy_lisp.html
やっぱりこれがいいのか
読んでみる、ありがとう
でもまさか予約分しか入荷して無かったってオチじゃないよな
予約してた人は今日届くのかな
しかし正直コードのある本は電子書籍で出してほしい。
C-c C-d h と同じことを他のライブラリでやれるようにするものってありませんかね？
(mapcar #'(lambda (x) (* 2 x)) '((1 2) 3))
的な。
破壊的変更よく知らないので戻り値で返す
(defun two-times-every-node(tree)
(cond ((null tree) tree)
((atom tree) (* tree 2))
(t (cons (two-times-by-node (car tree)) (two-times-by-node (cdr tree))))))
(print (two-times-every-node '(1 (2 5 (10 30)) 3)))
(defun two-times-every-node(tree)
(cond ((null tree) tree)
((atom tree) (* tree 2))
(t (cons (two-times-every-node (car tree)) (two-times-every-node (cdr tree))))))
(print (two-times-every-node '(1 (2 5 (10 30)) 3)))
ドキュメント方面で共通の仕組みがdocstringくらいしかないから、
C-c C-d dくらいしかないと思う。CCLだとdocstring表示されんけど。
それ以上が欲しいならレッツ自作。
>>27
自分が知る限りない。レッツ自作。
初心者の俺も練習がてら書いてみた。
(defun 2bai-2bai (node)
(if (consp node)
(mapcar #'2bai-2bai node)
(* node 2)))
(2bai-2bai '(1 (2 5 (10 30)) 3))
(defun f (x)
(if (listp x)
(mapcar #'f x)
(* 2 x)))
(mapcar #'f '((1 2) 3))
定石だと思うぞ
働きたくないでござる。早くニートになりたい。
ありがとうございます！
mapcarで再帰は自分も知らなかったので眼から鱗です。
https://github.com/akovalenko/sbcl-win32-threads/wiki
ここで入手できるバイナリと自作のlispソースを一緒に配布するとき、
どのようなライセンスにしなければならないのでしょうか
sbcl自体は public domain + BSD-style licenses のようですが…
リストリテラルを書きかえるのはよくないって注に書いてあって
ドキっとしたのでついレジに持っていってしまった
あと訳した人が元ヤンキーである可能性が微レ存
昔書いたやつどぞー。責任は持てんので、あくまでも参考程度に。
http://cl.cddddr.org/index.cgi?%E8%89%AF%E3%81%8F%E3%81%82%E3%82%8B%E8%B3%AA%E5%95%8F#H-1z3jsjcugixm7
ちなみに、他のライブラリを使ってそれを同梱する場合、
そっちのライセンスにも注意。特にGPL。
ありがとうございます。わかりました。
説明には "Go to the previous location, depending on context.
When displaying XREF information, this goes to the previous reference."
と在るのですがprevious locationというのが何を指しているのか分かりません。
どなたかお教えくださいm( _ _ )m
というリストがあったとして
`(let (,@parameter)) ; とすると
;; (let (`(,A ,B) `(,C ,D) `(,E ,F))) になりますが（分かる）
`(let hoge
`(let (,,@parameter))) ; とすると
;; (LET HOGE
;; `(LET ((,A ,B) (,C ,D) (,E ,F))
;; )) ;という風に前者と違って`が消えたものが挿入されるのは何故なのでしょうか？
仕様はコレ。
http://www.lispworks.com/documentation/HyperSpec/Body/02_df.htm
処理系は好きに最適化してよいそうです。
ありがとうございます。`(`(,A ,B))が`((,A ,B))と等価なのですね。
しかし``(,,A ,,B)と`(,A ,B)は等価ではないのですね。
以下のマクロを読み解こうとしてドツボにはまっていました。難しい！
(defmacro once-only ((&rest names) &body body)
(let ((gensyms (loop for n in names collect (gensym))))
`(let (,@(loop for g in gensyms collect `(,g (gensym))))
`(let (,,@(loop for g in gensyms for n in names collect ``(,,g ,,n)))
,(let (,@(loop for n in names for g in gensyms collect `(,n ,g)))
,@body)))))
(let ((a "hoge"))
(list 'ほら `((,a)) `(`(,a))))
;=> (ほら (("hoge")) (`(,A)))
``(,,@parameter)が
`(`(,A ,B) `(,C ,D) `(,E ,F))にならずに
`((,A ,B) (,C ,D) (,E ,F))になるのってどうなんだろう。
そのコードは後者の挙動を前提にしているような。
公式
http://ccl.clozure.com/
リリースノート訳
http://qiita.com/items/968166dde6a820ebb97e
オブジェクト指向ができるlispのライブラリってあるんですかね？
defclass class-name ({superclass-name}*) ({slot-specifier}*) ({method-specifier}*)
みたいに定義して(method object)で呼び出せるようなの
pclには(send object 'foo)になるのが嫌だから今の形になったとあるけど
(foo object)で呼び出せるようにするのって不可能だったんですかね？
sendが嫌だというなら(slot-value object 'foo)だってsendと似たようなもんだと思うんですけど..
ここまで決まってたら１０分ぐらいでマクロ作れそうだな。
sendが残ったままだったら、slot-valueを使う時に(send object 'slot-value 'foo)としなければいけない。
sendはメソッド呼び出しで、slot-valueはあくまでアクセスするためのメソッド。
pclにはsendが残ったままだったら、
(mapcar #'foo '(obj-a obj-b obj-c))としたい時に
(mapcar #'(lambda (x) (send x 'foo)) '(obj-a obj-b obj-c))としなければいけず、
これではLISPの力を発揮しきれないという様な事が書いてあった気がする。
(defmacro my-defclass (class-name superclasses slots methods)
`(progn
(defclass ,class-name ,superclasses ,slots)
,@(mapcar #'(lambda (method-spec)
(destructuring-bind (method-name args &rest body) method-spec
`(defmethod ,method-name ((this ,class-name) ,@args) ,@body)))
methods)))
(my-defclass person ()
((name :initarg :name)
(age :initarg :age :accessor age))
((greet (your-name)
(format nil "Hello, ~a! my name is ~a." your-name (slot-value this 'name)))
(birthday ()
(incf (slot-value this 'age)))))
(setf taro (make-instance 'person :name "Yamada Tarou" :age 20))
(slot-value taro 'name) ;=>"Yamada Tarou"
(greet taro "hoge") ;=> "Hello, hoge! my name is Yamada Tarou."
(slot-value taro 'age) ;=> 20
(age taro) ;=> 20 ↑と同じ (:accessor ageとしたから使える)
(progn
(birthday taro)
(birthday taro)
(age taro)) ;=> 22
簡単にできちゃうのか。。
なんでこういう方向でいかないんですかね？
今のoop慣れした世代にはこっちの方が親近感あるから
とっつきやすいと思うんだけど
なんです
デファクトスタンダードになりうるクラス指向ライブラリがあれば、それなりに使う人もいるんじゃね?
なかなかあほっぽくなっとるからかっちょよく書いとくれ
doはなんか物騒だったので使えんかった
xyzzyで動かしちょる
(defun fibv (n)
(let ((a 1)(b 1) (c 1) (d 0) (a2 1) (b2 1) (c2 1) (d2 0)
(t1 0)(t2 0)(t3 0)(t4 0))
(while (> n 0)
(setq t1 (+ (* a2 a) (* b2 c)))
(setq t2 (+ (* a2 b) (* b2 d)))
(setq t3 (+ (* c2 a) (* d2 c)))
(setq t4 (+ (* c2 b) (* d2 d)))
(setq a2 t1)
(setq b2 t2)
(setq c2 t3)
(setq d2 t4)
(setq n (- n 1)))
d2))
参考
http://itpro.nikkeibp.co.jp/article/COLUMN/20061010/250176/
再帰を使わずに書きたいのね、多分
こんな感じだろうか。
(defun fib (n)
(loop with (a b c d) = '(1 1 1 0)
for (a2 b2 c2 d2) = '(1 1 1 0)
then (list (+ (* a2 a) (* b2 c))
(+ (* a2 b) (* b2 d))
(+ (* c2 a) (* d2 c))
(+ (* c2 b) (* d2 d)))
repeat n
finally (return d2)))
いったんCLOSの機能を使い出すと副作用でまくりで
関数プログラミングとの共存など不可能のように思える。
式と文が別物ってところに山ほど違和感がある >いわゆる普通の言語
# 高級アセンブラの C は除く
そもそも、代入が式だし。
いや、それは極論だし
REPLで実現してくれるライブラリってない？
*curses.so あたりを ffi すればいいのではあるまいか?
ありがとう
たとえば、パッケージA，Bを別々に定義して、その中でそれぞれクラスA, Bを定義、
そのクラスをパッケージαで使う、とか考えた時に、
;; まずAを定義して
(defpackage :A (:use :cl) (:export :attr-of))
(in-package :A)
(defclass A () ((attr :reader attr-of)))
;; 次にBを定義
(defpackage :B (:use :cl) (:export :attr-of))
(in-package :B)
(defclass B () ((attr :reader attr-of)))
;; αで2つを一緒に使おうとすると、名前が衝突して落ちる
(defpackage :child-alpha (:use :cl :A :B))
A-attr, B-attr, とかいうアクセサはオブジェクト指向的じゃないから嫌だけど、
attr-ofにすると、先にアクセサ用パッケージでシンボルを用意するのもダルい。
いっそパッケージを、アクセサ、クラス、総称関数の3つだけにしたらいいのかね。
お前らはどうやってんの？
初期値として任意の値をセットしておくことはできませんか？
どこかのユーティリティライブラリにありそうですけど、
自分の使ってるものには見当たらなかったので書いてみました。
こういう感じので良いですか？
http://paste.lisp.org/+2WZC
自分ならだるさを許容するかパッケージプリフィックスで手を打つと思う。
ありがとうございます。
やりたいことは初期値をセットしておいてその一部を書き換えてread-lineさせる
という動作なので、"default value"が表示されてる状態にしたいのです。
以下のnthを1まとめにしようとしています
2時間粘っても上手く行きません・・・
(nth 6 (nth 3 (nth 4 (nth 8 (xmls:parse (drakma:http-request *sample-xml*))))))
(nth 3 (nth 2 (nth 4 (nth 8 (xmls:parse (drakma:http-request *sample-xml*))))))
(reduce (lambda (a i) `(nth ,i ,a)) indices :initial-value obj))
(macroexpand '(nnnnnnth hoge 1 2 3 4))
; => (NTH 4 (NTH 3 (NTH 2 (NTH 1 HOGE))))
希望と合ってる?
厚かましいお願いですが、XMLで属性からデータを取得できるやり方も教えていただけないでしょうか
完璧です！ありがとうございます
畏れ入りました
自分のレベルがあまりに低いからかもしれませんが
なぜこんな短時間でマクロを考えつけるのでしょうか？
やっぱり経験ですか？
自分はあまりその辺りに詳しくないのですが、おそらく端末制御の領分になると思います。
難易度がかなり上がりますが、それでもその方式にこだわりがあるのなら、
>>72-73で挙がっている情報を調べてみると手がかりが掴めるかもしれません。
XMLのツリーを操作するときにリストとして直に扱うのはあまりお勧めしません。
(nth 6 ...)や(caddddr ...)のようなコードでは何をやっているのかさっぱり分かりません。
XMLSなら
(let ((xmls (xmls:parse "<element attribute=\"value\">text</element>")))
(xmls:xmlrep-attrib-value "attribute" *xmls*))
のようにすれば要素の値を取得できます。既存のアクセサを使ったり、
自分でアクセサを作って利用することを強くお勧めします。
また、XMLSはリストの使用を全面に押し出したプロダクトなので、初心者には向きません。
エラーハンドリングも簡略化されているため、コードを追えないと原因も探れません。
慣れないうちはClosure XMLでDOMやSTP、XPathを使った方が良いと思います。
ttp://common-lisp.net/project/plexippus-xpath/examples.html
これ入ったのでこれ使うといいと思う。依存関係でClosure XMLも入るし
>>85
なるほど。勉強になります。
それらを踏まえ、もう一度作りなおしてみます。
ご教授ありがとうございました！
こういう例が欲しいとか、そういうのがあったら教えて下さい。
http://tips.lisp-users.org/common-lisp/index.cgi?XML%E3%83%8F%E3%83%B3%E3%83%89%E3%83%AA%E3%83%B3%E3%82%B0
ありがとうございます。早速ブックマークに登録しました。
ncurses に libform ってのがくっついてて,
こいつの set_field_buffer() とかをffiして使えば何とかなるのかな?
後は自前で作りこむくらいしか思いつかない
ヒントありがとうございます！
その辺をslimeのcontribあたりと合わせて見てみます。
今は↓のように文字列をconcatenateで連結させていますが、formatのnilの部分をストリームに変えて出来ないものかと思っています
(concatenate 'string
(format nil "テスト")
(format nil "bar")
)
(with-output-to-string (s)
(dolist (a args) (princ a s))))
こういうこと？
めちゃくちゃ大雑把に言えば
「今評価しないで後で評価されるかも知れない式」
全般のことじゃね?
やっぱ構造体使うんですか？それともリスト？
TOP カテ一覧 スレ一覧 2ch元 削除依頼 ▲
Visual Studio IDE環境 (574)
マルチプラットフォーム プログラミング言語 haXe (135)
Perlについての質問箱 60箱目 (124)
文字コード総合スレ part8 (348)
WebObjects 質問スレ (416)
Google Maps API 質問箱 (345)
--log9.info------------------
行ってはいけないゲームセンター (278)
音ゲーマー追放スレ (754)
徳島の音ゲー事情８ (513)
苫小牧の音ゲー事情 2 (523)
ゲームセンター経営者＆経営したい人のスレ 39店舗 (490)
九州のゲーセン楽市楽座005 (896)
【多賀・日立】茨城県北の音ゲー事情【勝田・湊】 (243)
難波AVION part１ (314)
【DQN注意】旭川市のゲーセン事情6【ｹﾞｵﾊﾟｰｸ】 (906)
山形のゲーセン事情 そろそろほぼ24件目 (853)
静岡県静岡市のゲーセン事情 (219)
【大和駅】 大和＆鶴間駅周辺のゲーセン事情 Part26 (409)
熊本の音ゲー事情32 (396)
久留米ゲーセン事情22 (390)
函館ゲーセン事情スレ31 (200)
長野の音ゲー事情 Part16 (196)
--log55.com------------------
スカパー！e2をタダ観している人間を通報しよう！
日本人が一番嫌う韓国番組ばかりで契約者激減 ★22
【腐ったチャンネル】◆ MONDO TV ・ 39
韓国の女の子を見れるチャンネルを教えて
韓国ドラマが多すぎて解約した奴の数→
（日本人限定）あなたの嫌いな国ベスト３
ZAPザップ系番組総合スレ2
キッズステーション 95
