【入門】Common Lisp その11【質問よろず】

**デフォルトの名無しさん** · 2014/09/21(日) 22:49:21.73

Lisp Schemeスレでは恥ずかしくて聞けないようなことを質問したり、
Lisp Schemeスレの話題は高度すぎて気後れする人が話しあったり。
それ以外でもCommon Lispについての話題なら歓迎します。

ま、ゆっくりやりましょう。

「いいものの本質は、いかなる時代においても変わらない」byパワーズ

■前スレ
【入門】Common Lisp その10【質問よろず】
http://peace.2ch.net/test/read.cgi/tech/1361341876/

■Wiki
http://wiki.fdiary.net/lisp/ (id:guest pass:cl)
http://cl.cddddr.org/
http://tips.lisp-users.org/common-lisp/

**デフォルトの名無しさん** · 2015/01/17(土) 18:34:52.38

evalとapplyの違いは何ですか？

**デフォルトの名無しさん** · 2015/01/17(土) 19:00:09.58

carとfuncallの違いはなんですか？
と聞いてるようなものなんだが

**デフォルトの名無しさん** · 2015/01/17(土) 19:12:25.44

>>179
ええとね
単語のスペルと長さがちがうかなぁ
それとevalはevaluateの省略だね
eval is short for evaluate

**デフォルトの名無しさん** · 2015/01/17(土) 19:40:12.57

http://qiita.com/mandel59/items/8f9111143aea94e7b363
ここで同じだと言っている人がいて気になったので

**デフォルトの名無しさん** · 2015/01/17(土) 19:49:45.85

この板のいくつかの場所で言われてるけど
その人ちょっとおかしいんだよ
真に受けない方がいい

**デフォルトの名無しさん** · 2015/01/17(土) 20:03:49.61

いえこの人がおかしいのは知ってますし真に受けるつもりもありません
ただ思えばそれらの違いを言葉にできるほどの認識がなかったので

**デフォルトの名無しさん** · 2015/01/17(土) 20:30:19.29

http://www.ai.mit.edu/projects/iiip/doc/CommonLISP/HyperSpec/Body/fun_apply.html
http://www.ai.mit.edu/projects/iiip/doc/CommonLISP/HyperSpec/Body/fun_eval.html

**デフォルトの名無しさん** · 2015/01/17(土) 21:08:56.14

適用は評価の前段階みたいな感じでいいんでしょうか

**デフォルトの名無しさん** · 2015/01/17(土) 21:14:39.87

あのう、きちっとしたテキストを一冊読んだほうがいいよ

**デフォルトの名無しさん** · 2015/01/18(日) 02:14:00.68

(eval `(funcall ,f ,@args))と(apply f args)が同じっていいたいのかね？
ようわからんけど…

**デフォルトの名無しさん** · 2015/01/18(日) 07:43:52.27

evalはシンボルのリストを読み込んでその内容を実行する。
applyは既に評価されて定義された関数を適用すること。

**デフォルトの名無しさん** · 2015/01/18(日) 07:49:09.26

eval だけでいいのに何でapplyが重視されてるんだ？、と思ったら、SICPを読もう

**デフォルトの名無しさん** · 2015/01/18(日) 09:28:02.82

>>179
commonLispの板でeval applyといえば特定の実装の話になるから
lisp scheme板に話をふった方が良いよ
そういう話好きなやついるから

**デフォルトの名無しさん** · 2015/01/19(月) 01:45:04.66

emacsのslimeについて質問です
slime-autodoc-mode
slime-autodoc-space
うざいので無効にしたいのですが
どうにかならないですか

**デフォルトの名無しさん** · 2015/01/23(金) 08:44:20.17

adw-chartingって(ql:quickload :adw-charting)しただけじゃ
使えないんでしょうか

**デフォルトの名無しさん** · 2015/01/23(金) 12:42:39.31

>>193
エスパーだけど、サブシステムに分かれてるから
(ql:quickload :adw-charting-vecto)
しないとサンプルが動かないという意味ではそうなのでは
試した手順とマニュアル読んで分からなかった箇所を具体的に書いたら？
(adw-charting:with-pie-chart (300 200)
(adw-charting:add-slice "A" 5.0d0)
(adw-charting:add-slice "B" 2.0d0)
(adw-charting:save-file "minimal-pie-chart.png"))
は配布状態で動いたよ

**デフォルトの名無しさん** · 2015/01/23(金) 13:23:05.37

>>194
動きましたありがとうございます
quicklispの使い方をわかってなかったので
exampleをコピペしただけでadw-charting:をつけてませんでした

**デフォルトの名無しさん** · 2015/01/23(金) 21:36:01.97

嬉しいのでチラシの裏書きます
The Little Schemer二回読了！！
勉強になった

次は「初めての人のためのLisp」を読もうと思い購入済みでもあるのだけれども予定変更
The Seasoned SchemerというThe Little Scemerの続編でthe natures of
computingの理解を目ざすものがあったのでそれにした。
それ終えたら「初めての」かLand of LispかOn Lispやろ
本来の目的ClusureでAndroid用の好みのワンベインOutlineプロセッサつくるためにLisp系はじめたけど楽しいからそれはさておき基礎の基礎に深く分け入っていきます

**デフォルトの名無しさん** · 2015/01/23(金) 22:50:04.93

再帰で考えてしまって動的計画法が使いこなせない！
全マス埋めていく感覚が、全ノード探索と分かってはいるんだが…

**デフォルトの名無しさん** · 2015/02/07(土) 08:01:14.41

http://anime.scripts.mit.edu/images/mitinanime_lain3.jpg

Serial Experiments LainではLispのコードのシーンがあるらしい

**デフォルトの名無しさん** · 2015/02/07(土) 08:39:22.93

Lain か…懐かしいなぁ

**デフォルトの名無しさん** · 2015/02/07(土) 09:32:47.61

Life Gameのソースっぽい

**デフォルトの名無しさん** · 2015/02/07(土) 09:52:15.98

D-WaveのOSがCommonLispってマジ？

**デフォルトの名無しさん** · 2015/02/07(土) 10:43:02.43

>>198
>>201
知らないけど有り得そう

**デフォルトの名無しさん** · 2015/02/07(土) 10:51:45.09

>>198
wikiペディアでソースみつけた
ttp://en.wikipedia.org/wiki/Serial_Experiments_Lain

>>201
マジみたい、APIのみ公開だって。
アプリ開発はPython推しだね。

**デフォルトの名無しさん** · 2015/02/07(土) 12:02:20.85

>>198
このソースを書き写した覚えがあるなと思って、
ハードディスクを漁ったら見つかった。

この部分の前後のソースも写してあったけど、
前の部分のソースが明らかにライフゲームの生死判定だった。

**デフォルトの名無しさん** · 2015/02/07(土) 13:26:07.79

その書き写したソース見たい

**デフォルトの名無しさん** · 2015/02/07(土) 13:32:26.38

>>205
>>203のリンクから元本のソース見れるよ。

**デフォルトの名無しさん** · 2015/02/07(土) 15:06:09.69

見れた
配列をbit単位で操作するのは効果あるのかな

**デフォルトの名無しさん** · 2015/02/07(土) 15:20:36.83

>>207
1991年だからメモリ贅沢に使うのに躊躇したんじゃなかろか？

**デフォルトの名無しさん** · 2015/02/07(土) 15:36:59.11

一バイトは金のひとすくい
しません、させません、ビットの無駄使い

おかげでビルも立ちました

**デフォルトの名無しさん** · 2015/02/08(日) 23:41:38.36

Common Lisp特殊すぎﾜﾛﾀ

http://photos.appleinsider.com/gallery/11591-4649-150115-Swift-l.jpg
http://iphone.appleinsider.com/articles/15/02/07/apples-new-swift-programming-language-takes-flight-with-getty-images-american-airlines-linkedin-and-duolingo

**デフォルトの名無しさん** · 2015/02/09(月) 11:04:57.10

>>210
stackoverflowに質問を書く前に問題を解決でき
オープンソースにせずとも問題を解決出来る高い生産性が
有るって事だなw
言語も人も。

**デフォルトの名無しさん** · 2015/02/09(月) 11:50:04.98

設定ミスでそうなっただけってどっかで見た気がする

**デフォルトの名無しさん** · 2015/02/09(月) 11:55:17.59

オープンソースにせずとも問題を解決出来る、って意味分らないね

**デフォルトの名無しさん** · 2015/02/09(月) 18:29:24.33

ttp://sogrady-media.redmonk.com/sogrady/files/2015/01/lang.rank_.plot_.q1152.png
ttp://redmonk.com/sogrady/2015/01/14/language-rankings-1-15/

**デフォルトの名無しさん** · 2015/02/09(月) 18:35:56.82

うぉー！
FORTLANと同席かい！！

**デフォルトの名無しさん** · 2015/02/09(月) 22:47:33.62

FORTRANじゃあーい！！

**デフォルトの名無しさん** · 2015/02/09(月) 22:57:24.39

Ratforってあったよね

**デフォルトの名無しさん** · 2015/02/09(月) 23:47:36.78

Rational Fortran
初代プログラミング作法(programming tools)のやつね。

**デフォルトの名無しさん** · 2015/02/09(月) 23:55:00.91

http://jbbs.shitaraba.net/sports/42269/

**デフォルトの名無しさん** · 2015/02/10(火) 17:05:14.42

>> 218
「ソフトウェア作法」ね
http://www.amazon.co.jp/%E3%82%BD%E3%83%95%E3%83%88%E3%82%A6%E3%82%A7%E3%82%A2%E4%BD%9C%E6%B3%95-Brian-W-Kernighan/dp/4320021428/ref=pd_sim_b_3?ie=UTF8&;refRID=00X1H3NNRVZ5P3BCDTMQ

**デフォルトの名無しさん** · 2015/03/07(土) 00:42:51.80

LET OVER LAMBDAを読んでいるのですが
しょっぱなで出てくるマクロdefmacro/g!が動きません。

(defmacro defmacro/g! (name args &rest body)
(let ((syms (remove-duplicates
(remove-if-not #'g!-symbol-p
(flatten body)))))
`(defmacro ,name ,args
(let ,(mapcar
(lambda (s)
`(,s (gensym ,(subseq
(symbol-name s)
2))))
syms)
,@body))))

(macroexpand-1
'(defmacro/g! nif (expr pos zero neg)
`(let ((,g!result ,expr))
(cond ((plusp ,g!result) ,pos)
((zerop ,g!result) ,zero)
(t ,neg)))))

;=>(DEFMACRO NIF (EXPR POS ZERO NEG) (LET () `(LET ((,G!RESULT ..

(flatten '`(let ,g!result))が
(SB-INT:QUASIQUOTE LET ,G!RESULT)になるので
,g!resultがremove-if-notを通り抜けられないのが理由でしょうか。
sbcl1.2.7です。動かす方法はありますか？

**デフォルトの名無しさん** · 2015/03/07(土) 00:48:06.97

(defun g!-symbol-p (s)
(and (symbolp s)
(> (length (symbol-name s)) 2)
(string= (symbol-name s)
"G!"
:start1 0
:end1 2)))

**デフォルトの名無しさん** · 2015/03/07(土) 07:09:08.52

コードコピペしたらちゃんと動いたけど
flattenが間違ってんじゃないかな

**デフォルトの名無しさん** · 2015/03/07(土) 16:01:02.06

試しにwindows版のsbcl1.2.7入れてやってみたが
確かに動かないな、これ
windows版ccl1.10ではちゃんと動いた
こういうことってあるんだな

**デフォルトの名無しさん** · 2015/03/07(土) 16:17:29.95

clisp+alexandria:flattenでやってみたけど動くよ

**デフォルトの名無しさん** · 2015/03/07(土) 16:50:40.73

debianのsbcl1.0.57.0ではちゃんと動く
今度は普段ccl1.10で使ってるslimeでsbcl1.2.7動かしてみたが
やっぱり動かん

**デフォルトの名無しさん** · 2015/03/07(土) 19:54:37.09

これが関係してる?

#:g1: SBCL 1.2.2でのbackquoteの変更
http://g000001.cddddr.org/3615721500

**デフォルトの名無しさん** · 2015/03/08(日) 14:36:36.18

Common Lisp 素人です.
SSL って cl+ssl が標準的なんですかね?
以下のコードが動かないんですが, これはうちの環境が悪いんでしょうか?

```
(ql:quickload :usocket)
(ql:quickload :cl+ssl)

(let* ((sock (usocket:socket-connect "imap.gmail.com" 993 :protocol :stream :timeout 60))
(sock-stream (cl+ssl:make-ssl-client-stream (usocket:socket-stream sock))))
(unwind-protect
(progn
(format sock-stream "? CAPABILITY"))
(usocket:socket-close sock)))
```

Debugger:

```
There is no applicable method for the generic function
#<STANDARD-GENERIC-FUNCTION STREAM-WRITE-STRING (3)>
when called with arguments
(#<CL+SSL::SSL-STREAM
for #<FD-STREAM
for "socket 192.168.1.60:46384, peer: 64.233.187.109:993"
{1005B13083}>>
"? CAPABILITY" 0 NIL).
[Condition of type SIMPLE-ERROR]
```

cl+ssl の streams.lisp では stream-write-byte についてしか defmethod してないけど,
普通はこれで動くもんなんです?

**デフォルトの名無しさん** · 2015/03/08(日) 14:39:57.84

SBCLのバッククォートは構造体に変換されるようになったから
LET OVER LAMBDAにあるような、バッククォートを含むコードの
flattenによるコードウォークはSBCLだと動かなくなったって事か。
ダメじゃんSBCL～
こんなバッククォートの仕様、CLTL2満たしてるのか？

**228** · 2015/03/08(日) 19:54:56.42

解決したので報告です. :external-format を指定して flexi-streams を使えば良いようです.

```
(let* ((sock (usocket:socket-connect "imap.gmail.com" 993 :protocol :stream :timeout 60))
(sock-stream (cl+ssl:make-ssl-client-stream (usocket:socket-stream sock) :external-format '(:latin-1 :eol-style :crlf))))
(unwind-protect
(progn
(listen sock-stream)
(format *standard-output* "~%~a~%" (read-line sock-stream nil))
(force-output *standard-output*)
(format sock-stream "? CAPABILITY~%")
(force-output sock-stream)
(listen sock-stream)
(format *standard-output* "~%~a~%" (read-line sock-stream nil))
(force-output *standard-output*)
)
(usocket:socket-close sock)))
```

=>

```
* OK Gimap ready for requests from xxx.xxx.xxx.xxx hogehoge

* CAPABILITY IMAP4rev1 UNSELECT IDLE NAMESPACE QUOTA ID XLIST CHILDREN X-GM-EXT-1 XYZZY SASL-IR AUTH=XOAUTH AUTH=XOAUTH2 AUTH=PLAIN AUTH=PLAIN-CLIENTTOKEN
```

**デフォルトの名無しさん** · 2015/03/17(火) 01:48:34.28

(変数値)のリストと式が与えられた状態で、変数を値に束縛した環境で式を評価したいのですが、良い方法がわかりません
現状では次のように実装しています
(let ((bindings '((a 1) (b 2))) (form '(+ a b)))
(eval `(let ,bindings ,form)))
実際にはformに対してbindingsを変えたものが何度も呼ばれます
また、formは複雑なものも想定します
他にいい方法はありますでしょうか？

**デフォルトの名無しさん** · 2015/03/17(火) 10:47:28.60

(let ((bindings '((a 1) (b 2))) (form '(+ a b)))
(progv
(mapcar #'car bindings)
(mapcar #'cadr bindings)
(eval form)))
とかかなあ

もしくはformを関数にしてしまうのがいいのかな
(let ((bindings '((a 1) (b 2))) (form '(+ a b)))
(let ((thunk (coerce `(lambda () ,form) 'function)))
(progv
(mapcar #'car bindings)
(mapcar #'cadr bindings)
(funcall thunk))))
bindingだけ変えて何度も走らせるなら多分効率もいいと思う(確かめたわけじゃないけど)

インタプリタかなにか作ってるの? 👀

**デフォルトの名無しさん** · 2015/03/17(火) 10:48:46.17

なぜか変な絵文字が入った…

**デフォルトの名無しさん** · 2015/03/17(火) 13:59:09.21

>>232
progvで動的変数が作られるのは知りませんでした
formの関数化も良さそうですね
mapcarによるコンシングはデータ構造を工夫してなくせそうです
だいぶパフォーマンスが改善されそうです。ありがとうございます

ある言語のサブセットを作ってます

**デフォルトの名無しさん** · 2015/03/26(木) 19:32:41.80

質問です。以下の、
私家版、Common Lisp プログラマのレベル10
http://www.reddit.com/r/lisp_ja/comments/30cfn0/%E7%A7%81%E5%AE%B6%E7%89%88common_lisp_%E3%83%97%E3%83%AD%E3%82%B0%E3%83%A9%E3%83%9E%E3%81%AE%E3%83%AC%E3%83%99%E3%83%AB10/
の中のレベル3に、
「fletやlabelsによるローカル関数定義を多用」が、
「Common Lispでは名前空間の汚染はあまり気にしなくて良いので多用する必要はない」とレスされ、
るそうですが、
なぜ気にしなくて良いのですか？

**デフォルトの名無しさん** · 2015/03/26(木) 20:09:27.36

>>235
comon lisp よりも scheme の方がよさそーだ‥

**デフォルトの名無しさん** · 2015/03/26(木) 21:35:12.89

>>235
なんかコイツ自身レベルが低そうだ

**デフォルトの名無しさん** · 2015/03/31(火) 15:33:38.54

235です。
>>235
それはなぜですか。
もしよければ、意見を聞きたいです。

>>237
え、わたし(235)のこと。それともリンク先を書いた人のこと。

私自身は
ローカルなら他から呼べなくて安全といえるけど、
1つの定義が大きくなってあまり好きじゃないんです。

極端に言えば、
(1つ目の処理 ...)
(2つ目の処理 ...)
(3つ目の処理 ...)
と、書いていって最終的に
(3つ目の〜 (2つ目の〜 (1つ目の〜 ...)))
と、するのが好きなのですが
好き嫌いを超えた優劣や善悪があるのでしょうか。

**デフォルトの名無しさん** · 2015/04/03(金) 04:59:16.54

元スレで作った人に聞けばいいのでは…
たぶん単純に名前空間が関数と変数で分かれてるってだけの話だと思うけど

**デフォルトの名無しさん** · 2015/04/04(土) 21:18:43.12

初歩的な質問ですいません。
CommonLispをCentos6にインストールできないんですが
単純にyum ～では駄目なんですか？

**デフォルトの名無しさん** · 2015/04/04(土) 21:30:16.17

sudo yum install sbcl.x86_64
じゃだめなん？

**デフォルトの名無しさん** · 2015/04/08(水) 14:04:17.18

Eclipse Common Lisp がオープンソース化された話があるみたいだけど、
これって 32 bit Windows でも動く？
公式には 64 bit しかチェックしてないみたいに書いてあるけど。

**ドリル優子** · 2015/04/20(月) 17:48:30.95

これはさすがにヤバイだろｗｗ

【神回】美人ニコ生主mAriAがFME切り忘れで公開オナニー！？【電マ】

https://www.youtube.com/watch?v=Y6Fz1MYedSw

**デフォルトの名無しさん** · 2015/04/20(月) 17:51:10.30

>>243
しねかす

**デフォルトの名無しさん** · 2015/04/20(月) 18:27:45.45

こんにちわ、これってどういう場面で使うんでしょうか？？
関わりがないってことは特に知る必要ないんでしょうか？

**デフォルトの名無しさん** · 2015/05/04(月) 09:54:28.68

>>244
だまされるお前が悪い。
クソ動画見てオナニーしてろ

**デフォルトの名無しさん** · 2015/05/04(月) 14:43:15.18

>>246
うわ！もろに犯罪者の発想だな
「騙される方が悪い」
おまえの人生を彷彿とさせるな
犯罪人生上等君

**デフォルトの名無しさん** · 2015/06/05(金) 01:19:51.77

http://www.infoq.com/jp/news/2015/06/lispworks-mobile-runtime
Lispworks がios Android 用出したけど既存のmoclとの比較がほしい

**デフォルトの名無しさん** · 2015/06/14(日) 21:41:14.46

clispって５年もバージョンアップないんだね
もう終わりか

**デフォルトの名無しさん** · 2015/06/18(木) 21:22:38.22

つい最近、lisp始めたんですけど、
日本語入れると、PARSE-NAMESTRING: syntax error in filename
と出るのですが、どのようにしたら、
日本語のディレクトリって作成できますか?

**デフォルトの名無しさん** · 2015/06/19(金) 02:49:41.26

>>250
処理系によって違ってくるから何を使ってるか教えて

**デフォルトの名無しさん** · 2015/06/19(金) 12:32:36.15

>>251
詳しくは知らないんだけど、
common lispで
format関数使って日本語と文字列を結合しようとするとそのエラーが出ます。

**デフォルトの名無しさん** · 2015/06/20(土) 12:18:47.33

windowsのclispでcl-opencvって使えますか?

**デフォルトの名無しさん** · 2015/07/06(月) 23:11:46.67

今日からLisp始めた阿呆です。本当に初歩的な質問をしたいのですが、よろしいでしょうか。

わたしは太郎です。
趣味は２ちゃんねるです。
Lisp初心者です。

というファイルを

(((#\わ #\た #\し #\は) (#\太 #\郎) (#\で #\す #\。)) ((#\趣 #\味 #\は) (#\２ #\ち #\ゃ #\ん #\ね #\る) (#\で #\す #\。))
((#\L #\i #\s #\p #\初 #\心 #\者) (#\で #\す #\。)))

このようなリストを吐き出す関数を書きたいのですが、本当に知ろうとゆえ、困ってます。
一応書いてみたのが以下のものです。

(defun test-parse (fname)
(with-open-file (in fname :direction :input)
(let (tmp (w ()) (l ()) (s ()))
(loop for tmp = (read-char in nil)
while tmp
do (cond ((eql tmp #\Space) (push (reverse w) l) (setf w nil))
((eql tmp #\Newline) (push (reverse w) l) (setf w nil) (push (reverse l) s) (setf l nil))
(t (push tmp w))
))
(push (reverse w) l)
(push (reverse l) s)
(reverse s))))

どうすれば、かっこいいLisperになれますか。
説教してください。頓首。

**デフォルトの名無しさん** · 2015/07/06(月) 23:30:52.25

かっこいいかは知らんけど、split-sequenceを使うと、

(defun omanko (src)
(mapcar (lambda (s)
(mapcar (lambda (x) (coerce x 'list))
(split-sequence #\Space s)))
(split-sequence #\Newline src)))

(omanko "わたしは太郎です。
趣味は２ちゃんねるです。
Lisp初心者です。")

↓CLISPでの結果

(((#\HIRAGANA_LETTER_WA #\HIRAGANA_LETTER_TA #\HIRAGANA_LETTER_SI #\HIRAGANA_LETTER_HA) (#\U592A #\U90CE)
(#\HIRAGANA_LETTER_DE #\HIRAGANA_LETTER_SU #\IDEOGRAPHIC_FULL_STOP))
((#\U8DA3 #\U5473 #\HIRAGANA_LETTER_HA)
(#\FULLWIDTH_DIGIT_TWO #\HIRAGANA_LETTER_TI #\HIRAGANA_LETTER_SMALL_YA #\HIRAGANA_LETTER_N #\HIRAGANA_LETTER_NE
#\HIRAGANA_LETTER_RU)
(#\HIRAGANA_LETTER_DE #\HIRAGANA_LETTER_SU #\IDEOGRAPHIC_FULL_STOP))
((#\L #\i #\s #\p #\U521D #\U5FC3 #\U8005) (#\HIRAGANA_LETTER_DE #\HIRAGANA_LETTER_SU #\IDEOGRAPHIC_FULL_STOP)))

**254** · 2015/07/09(木) 18:43:04.87

>>255
おおお。ありがとうございます。
split-sequenceなんてのがあるのですね。
勉強になりました。

**254** · 2015/07/10(金) 07:34:53.35

いろいろ参考書を買ったけど、
PAIPで禁欲的にやるのが一番いいような気がしている。
おすすめの書籍とか読む順番とかあったら教えてくれませんか。
お願いいたします。

**デフォルトの名無しさん** · 2015/07/13(月) 12:29:38.83

あるサイトに
(reduce #'+ '(1 2 3))
;=> 7
　6じゃないのですか？

**デフォルトの名無しさん** · 2015/07/13(月) 23:25:59.50

>>258
そのサイトの管理者なりに教えてあげればいいじゃない

**デフォルトの名無しさん** · 2015/07/15(水) 02:32:01.68

>>258
６だよ‥アスペかよｗ

**デフォルトの名無しさん** · 2015/07/19(日) 21:44:01.49

最近はcl freaks に出ている人達を中心にcommon lispが元気ある感じするよね

**名無しのプログラマ** · 2015/08/09(日) 17:59:36.15

再帰の魅力

**デフォルトの名無しさん** · 2015/09/15(火) 00:43:38.55

lispworks proかったった。
買ったからには勉強せねば。
実はまだlispなんにも知らん。

**はちみつ餃子** ◆8X2XSCHEME · 2015/09/15(火) 05:52:09.24

知らんのにいきなり買うとか豪儀やな

**デフォルトの名無しさん** · 2015/09/15(火) 10:02:52.02

ならリスプの統合環境と言っていいか、そこは怪しいが
zxzzyあたりからやりゃ良いのに
と思う俺様
ま、いいけどな

**デフォルトの名無しさん** · 2015/09/22(火) 22:58:08.35

(defun fact (n)
(cond ((=n 0) 1)
(t (* (fact (1 - n))
n ))))

で
*** - SYSTEM::%EXPAND-FORM: invalid form (1 - N)
The following restarts are available:
ABORT :R1 Abort debug loop
ABORT :R2 Abort debug loop
ABORT :R3 Abort debug loop
ABORT :R4 Abort debug loop
ABORT :R5 Abort debug loop
ABORT :R6 Abort debug loop
ABORT :R7 Abort debug loop
ABORT :R8 Abort debug loop
ABORT :R9 Abort main loop
とエラーがでます。どうしてなのでしょう？教えてください。
お願いします。

**デフォルトの名無しさん** · 2015/09/22(火) 23:17:05.48

スペースが入ってなかったり入っていたり

(defun fact (n)
(cond ((= n 0) 1)
(t (* (fact (1- n))
n))))

**デフォルトの名無しさん** · 2015/09/22(火) 23:27:01.08

>>267
ありがとうございます。ずいぶん難しいなあと思いました。
コードを整えるためにスペース入れたらエラーなので。
規則はあるのでしょうか？

**はちみつ餃子** ◆8X2XSCHEME · 2015/09/23(水) 01:17:09.38

>>268
- や * や = も英数字と同じ扱い。分けるものがなければつながるというだけ。
=n とあればそれは =n という名前と認識されるし、 1- は 1- という名前。

**デフォルトの名無しさん** · 2015/09/23(水) 02:22:31.73

>>269さん
教えていただいてありがとうございます。
質問をしてよかったと思いました。教えていただいたものを
知りませんでした。
関数には引数に1-をいれるというオプションのようなものが付く
という仕様になっているということがわかりました。
では

**デフォルトの名無しさん** · 2015/09/23(水) 02:25:45.54

>>263
30万円くらいですか。すごいですね

**はちみつ餃子** ◆8X2XSCHEME · 2015/09/23(水) 03:31:44.34

>>270
> 関数には引数に1-をいれるというオプションのようなものが付く

高階関数のことを言ってるのかな。
そのあたりはどうせ避けて通れないので、
学んでいるうちにわかってくるよ。

**デフォルトの名無しさん** · 2015/09/23(水) 08:07:48.78

>>270
1- って関数名ですよ？
クォートされていないリストは
一つ目の要素が関数名、以後が引数として評価されます。
例
(1- n)
1- は関数名、nは引数 (注:関数1- は引数から1引いた数を返す関数)

参考;クォートされてるリスト例
'(* 2 3 ) (quote (* 2 3))
解説 (* 2 3 )はクォートされているので関数として評価されない

あなたの初めの書き方
(1 - n)
だと関数名は1で、- と n の2つの引数をもつことになる(正確に言えば、引数- と引数n に関数1を適用する、となります)
すると関数1は未定義だよと言われちゃいますね
同様に
(=n 0)だと
関数名はn= で引数は0となります。
ここでも関数=nは未定義といわれちゃいます
C言語のフリーフォーマットとはことなり、LispではスペースがS式での要素の区切り(デリミッター)になります。
スペースで分ければ2つの要素になるし
スペースを消して繋げればひとつの要素になってしまいます。
ちなみに(=n 0)が正しい適用かどうかは関数定義されてるかどうかによります。もし
(defun =n (x )
(zerop x))
と定義されていれば
(=n 0) => t
ですね

**デフォルトの名無しさん** · 2015/09/27(日) 22:01:13.24

windowsでclispとquicklispでcffiを触ってみようと思ったんですが
(cffi:define-foreign-library test
(:windows "test.dll")
(t (:default "test")))
(cffi:use-foreign-library test)
で、testが開けません
パスは正しいし他の言語からもリンクできるライブラリですが、
何処がおかしいのでしょうか？

**デフォルトの名無しさん** · 2015/09/29(火) 11:03:45.13

>>271
32bitだからそんなにしないよ。
今とりあえず、いじくりまわぢてる。

**274** · 2015/10/01(木) 02:50:50.32

自己レスですが、CLISPで散々いろいろ試したけどどうにもならなかったので
SBCLに変えてみたらまともに動くようになりましたので報告

**デフォルトの名無しさん** · 2015/10/03(土) 13:14:55.68

perl の perldoc
python の pydocに相当するローカルのドキュメントは何ですか？
シンボルを調べるのに
ネットを通しているので2秒間の通信があったり、
通信可能であることに依存しているのが弱点です
'http://clhs.lisp.se/Front/X_AllSym.htm'

**デフォルトの名無しさん** · 2015/10/03(土) 13:24:00.92

xyzzy上でで良ければ
reference.xmlから
reference.txtや reference.chm使って補完できるよ
足りない関数名ややシンボル名は静的補完ファイルに登録するか、reference.*に追加するか