【入門】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/

**デフォルトの名無しさん** · 2016/08/13(土) 20:37:11.64

>>388
Allegroはなぁ、ネタに値段書いていない銀座の寿司屋のイメージが

**デフォルトの名無しさん** · 2016/08/24(水) 21:29:45.05

何千桁もあるbignumを適当な所に小数点を打ったり10桁毎にスペースを入れたり
100桁毎に改行して表示したいけど、formatでやる方法があったら教えてくれ

**デフォルトの名無しさん** · 2016/08/25(木) 00:53:05.88

>> 390
ない．
調べるよりプログラム書いた方がはやい．loopマクロで5行位で書ける．
どうしてもformatつかうなら自分で書いてformatの~/で呼べば？

**デフォルトの名無しさん** · 2016/08/25(木) 09:19:55.78

>>390
(format t "~,,' ,10:D" 222232244629420445529739893461909967206666939096499764990979600)
222 2322446294 2044552973 9893461909 9672066669 3909649976 4990979600

> 2.3.1 ~D ― Decimal
> arg の消費: 1個
> パラメータ: ~ mincol , padchar , commachar , comma-interval D
(中略)
> ` : ’ で修飾すると，下から comma-interval 桁ごとに commachar で指定された文字で数字を区切る ( comma-interval のデフォルトは3， commachar のデフォルトは ` , ’ ) ．
http://super.para.media.kyoto-u.ac.jp/~tasuku/format-func.html

上の例だと commachar は空白、comma-interval は 10、他のパラメータは無し
文字をパラメータにする場合その文字の頭に単引用符 ' を付けて表す
改行もOK

(format t "~,,'
,1:D" 123)
1
2
3

**390** · 2016/08/25(木) 13:02:06.57

返答どうも！
>>391
formatのドキュメント見ても無さそうだったから聞いてみたけど、やっぱりないんだね…
素直にloopでやることにする

>>392
そうか、カンマをスペースにすれば10桁区切りは出来るのか
100桁目を改行に出来れば最高だが、あまり大きくないbignumならこれで十分か
とりあえずありがとう

**デフォルトの名無しさん** · 2016/08/25(木) 14:33:57.04

学習用にC++で書いた楕円曲線暗号のデバッグの時にBignum何度も目視したの思い出してちと鬱が入るなぁ

**デフォルトの名無しさん** · 2016/09/13(火) 11:41:49.02

日本人コモンリスパーで有名な人って誰？
竹内センセーと苫米地ハカセ以外で！

**デフォルトの名無しさん** · 2016/09/13(火) 22:25:28.74

竹内センセーと苫米地ハカセは国際コモンリスパーとしての認知度は低いヨ
もちろんtakの竹内センセーは知られているけどコモンリスパーじゃないネ
トマベチ？ダレ？
fukamachi ，kuroda は広く知られているヨ

**デフォルトの名無しさん** · 2016/09/14(水) 07:54:21.71

国内の知名度ではドクター苫米地が圧倒的だろう

**デフォルトの名無しさん** · 2016/09/22(木) 11:55:47.84

何がまずいのかわからん。
誰か教えて。

(defun f (x) (* 2 x))
(defun g (y z) (y z))

(g f 3)

*** - SYSTEM::READ-EVAL-PRINT: variable F has no value
The following restarts are available:
USE-VALUE :R1 Input a value to be used instead of F.
STORE-VALUE :R2 Input a new value for F.
ABORT :R3 Abort main loop

**デフォルトの名無しさん** · 2016/09/22(木) 12:41:06.30

>>398

(defun f (x) (* 2 x))
(defun g (y z) (funcall y z))

(g #’f 3)
6

Ref.
http://www.asahi-net.or.jp/~kc7k-nd/onlispjhtml/functions.html

**デフォルトの名無しさん** · 2016/09/22(木) 14:56:41.64

>>399
動きました。
ありがとうございます。

**デフォルトの名無しさん** · 2016/09/23(金) 21:24:52.87

Scheme 系だと

(define (f x) (* x 2))
(define (g y z) (y z))

(g f 3)
6

って書けるんだね。

**デフォルトの名無しさん** · 2016/09/23(金) 21:27:52.82

へ～

**デフォルトの名無しさん** · 2016/09/24(土) 05:38:26.18

関数型のブームは来てるけど
HaskellとかScalaに押されてない？

**デフォルトの名無しさん** · 2016/09/24(土) 08:10:52.77

GNU makeやgdbにguileがリンクされるようになったよ
もう少しの辛抱や

**デフォルトの名無しさん** · 2016/09/24(土) 17:22:03.97

Common Lispはマルチパラダイムの言語だ
goto(go)すら存在する

**デフォルトの名無しさん** · 2016/09/25(日) 21:24:57.99

>>405
goはマッカーシーのlispからあるけどお。すらってなにい？

**デフォルトの名無しさん** · 2016/09/25(日) 22:23:20.95

すらまっぱぎ

**デフォルトの名無しさん** · 2016/09/26(月) 15:46:42.52

>>406
Common LispのスレでCommon Lispと言って何か問題あるか？

**デフォルトの名無しさん** · 2016/10/05(水) 23:25:20.08

>>366
Steeleが互換性考えて別にしたけど
やっぱり一緒にしとけばよかったーと後に述懐していた

**デフォルトの名無しさん** · 2016/10/12(水) 15:59:00.20

その代わりCommon Lispはlistとかstringという変数名を定義出来る
Schemeの場合lstとかlsって変数名にせざるを得ない
あとapplyの方が使用頻度が高い気がするがSchemeでも普通に使うわけだから
funcallを使うのは一貫性があるとも言える

**デフォルトの名無しさん** · 2016/10/12(水) 16:33:55.36

今となっては後の祭りだし慣れないしとあるが、lisp-1にするなら最初の関数名をもっと考えた方が良かったような。
listじゃなくてmklistとかさ。

**デフォルトの名無しさん** · 2016/10/12(水) 16:34:06.22

#fと'()の分離はなんでだったんや？

**デフォルトの名無しさん** · 2016/10/12(水) 17:40:21.14

それはSchemeスレでする話だな

**デフォルトの名無しさん** · 2016/10/13(木) 20:07:13.89

0や""はtrueなのに'()だけがfalseになるのが美しくないからだろう
C言語の0みたいに特定の値が自動的にfalseになるのは古い言語だからだな

**デフォルトの名無しさん** · 2016/10/13(木) 22:52:04.77

いずれの仕様であっても特に美しいとは思わんな。
決め事でしか無いように思う。

**デフォルトの名無しさん** · 2016/10/15(土) 20:05:40.07

デフォルトコンストラクタと等しい値はすべてfalseにしてしまえ。

**デフォルトの名無しさん** · 2016/10/16(日) 18:14:50.68

ふと、このスレを見つけたので質問します。
「Land of Lisp」を参考に、CLISPでCommonLisp勉強してるんですが、LEPL
じゃなくてLispのコードをエディタで書いて一度に実行させるなんて
ことはできるんでしょうか？
出来るなら方法を教えてください。参考サイトなどでも構いません。

**デフォルトの名無しさん** · 2016/10/16(日) 18:17:07.36

>>417の書き込みの訂正

LEPLじゃなくてREPLです。

**デフォルトの名無しさん** · 2016/10/16(日) 21:52:46.83

うちはSBCLだけど、たぶんloadでできる
$ cat hoge.lisp
(defun twice (f x) (funcall f (funcall f x)))
(defun dbl (x) (* x 2))
$ sbcl
This is SBCL 1.3.6, an implementation of ANSI Common Lisp.
(略)
* (load "hoge")

T
* (twice #'dbl 3)

12

**デフォルトの名無しさん** · 2016/10/17(月) 00:33:48.91

>>419
おおおお
出来ました！！！
サンプルプログラムまで書いていただきありがとうございます。
Lispを初めて日が浅いのですが、とても分かりやすかったです。

**デフォルトの名無しさん** · 2016/10/17(月) 09:04:24.02

clisp の場合は
clisp a.lisp
という風にファイル名を指定するだけでも実行できるよ
この場合REPLとは異なり、特に何もしなくても自動的に終了する

sbcl には同様のことをする --script オプションがある

**デフォルトの名無しさん** · 2016/10/17(月) 10:07:13.56

>>421
なるほど、そういう方法もあるんですね。参考になります。

**デフォルトの名無しさん** · 2016/10/18(火) 11:30:07.17

多分emacsでSLIME使うのが一番捗る。ある程度やって、もっと環境良くしたいと思ったら導入してみるといい
ファイルに書きなぐって一部だけ評価するとかできる

**デフォルトの名無しさん** · 2016/10/23(日) 13:47:10.52

(defparameter param #\a)
を生成するマクロ
(defmacro ch! (ch)
`(defparameter param #\,ch))
が、動かないのはなぜでしょうか？
教えて下さい。

**デフォルトの名無しさん** · 2016/10/25(火) 08:55:35.68

424です。
どなたか、教えてください。

**デフォルトの名無しさん** · 2016/10/25(火) 23:40:26.35

入力マクロを何と心得ておる

**デフォルトの名無しさん** · 2016/10/26(水) 01:17:49.11

>>425
面白い。426のいうとおり
リードマクロがマクロの展開より先に展開されるのがうまく動かない理由。
(defmacro ch! (ch)
(read-from-string (format nil

**デフォルトの名無しさん** · 2016/11/01(火) 15:37:56.06

424です。
>>426
ご返答ありがとうございます。
「入力マクロを何と心得ておる」
リードマクロの事でしたら不勉強でした。
1文字づつ地を這う様なカスタマイズに思えて
lispっぽさが感じられず読む気が無くなるんです。
>>427
書きかけの続きを
ぜひ読みたいです。おねがいします。

macbookのOSX10.6で
iterm上のvimで選択したS式をscreenを介して
もう一つのitermで動くsbcl(又はclisp)に評価、
出力させるのを目標にしています。
なにか知っている事があればよろしくおねがいします。

**デフォルトの名無しさん** · 2016/11/02(水) 05:41:35.19

>>428
割とマジでLispで遊ぶならEmacs使う方が良いような(Slime環境とか https://common-lisp.net/project/slime/）
vimとかよりかなり楽(emacsのキーバインドで死ねるって人には向かない)

つかLisperならEmacsと心中するのが吉

#って感じなEmacsと入水心中の俺 orz
#Clojure含めてEmacsとLispってマジでモダンなエディタに移行するのがムリ

**デフォルトの名無しさん** · 2016/11/02(水) 16:50:18.95

SLIMEっぽいのは一応あるのね
http://www.vim.org/scripts/script.php?script_id=2531

**デフォルトの名無しさん** · 2016/11/22(火) 20:43:31.30

独り言だが
ClojureとClozure CLってべつものなのか
Clozure CLはjava関係ないのね

**デフォルトの名無しさん** · 2016/12/18(日) 08:12:54.17

conditinのerrorクラスにformat-controlとformat-argumentがないのは何んでなんでしょうか？
simple-conditinとかにはあるのに

**デフォルトの名無しさん** · 2016/12/18(日) 15:52:29.97

多重継承だから

**デフォルトの名無しさん** · 2017/01/11(水) 12:56:06.91

生まれて初めてLISPをやってみようと思い、CygwinのCLISPを入れて見たのだが、プログラムを保存する方法が特にないのは驚いた。
dribbleでインタプリタのコマンドライン履歴を保存するか、(EXT:SAVEINITMEM)でインタプリタのメモリイメージを保存するくらいしかできないみたい。
あるいは事前にテキストで書いておくか。
他のLISP処理系もこんなものなの？

ヒューレットパッカードRPL言語を少しだけ使ったことがあるけど、あっちは保存がちゃんと考えられていた。

**デフォルトの名無しさん** · 2017/01/11(水) 13:08:56.90

Win機で開発するのが間違ってる

**デフォルトの名無しさん** · 2017/01/11(水) 13:41:55.71

『プログラムの保存』とは一体……？

**デフォルトの名無しさん** · 2017/01/11(水) 17:25:20.73

BASICのSAVEか…

**デフォルトの名無しさん** · 2017/01/11(水) 22:14:49.39

>>437
えっちょっと待って
今ラジカセ用意するから...間違えてLOADって打たないでね

**デフォルトの名無しさん** · 2017/01/11(水) 22:20:44.82

ｗｗｗ

**デフォルトの名無しさん** · 2017/01/12(木) 00:33:15.10

>>436
RPLだと関数も変数も必ずファイルとして存在する。
RPLの祖先のForthも同じかもしれない。

**デフォルトの名無しさん** · 2017/01/12(木) 06:54:05.10

ほしいのは、emacs+slime環境？
あるいはaclとかlispworks

**デフォルトの名無しさん** · 2017/01/12(木) 09:59:06.51

REPL環境じゃなくて内蔵エディタみたいなのを期待してたんだろう
確かにメモ帳程度のでも内蔵されてれば便利だとは思う
特に初学者の人とか。いきなりEmacsは敷居が高い

**デフォルトの名無しさん** · 2017/01/12(木) 10:32:26.76

>>442
emacs環境だとLispよりもemacsの勉強になってしまうからなあ

**デフォルトの名無しさん** · 2017/01/12(木) 13:02:34.77

それならlemでいいんじゃない？

**デフォルトの名無しさん** · 2017/01/12(木) 21:49:43.62

xyzzyで

**デフォルトの名無しさん** · 2017/01/13(金) 04:08:54.48

>>442
>>443
同意、最初からEmacsは難しすぎる
LispよりEmacsの方が難しいくらい

**デフォルトの名無しさん** · 2017/01/13(金) 11:27:29.66

clispの開発が終わってしまったし

**デフォルトの名無しさん** · 2017/01/13(金) 11:29:56.98

>>442
emacsのlispってemacsのカスタマイズ用途なのでは？
アプリ作成用のlispがまだあるのかどうかは知らないが

**デフォルトの名無しさん** · 2017/01/16(月) 16:21:04.42

>>447
その情報のソースってどこかにある？
CLISP自体かなり前から更新されてなかったから終わったと言っても今更感があるけど…

**デフォルトの名無しさん** · 2017/01/17(火) 11:28:47.60

>>449
長年更新していないので、オワタ可能性は高くね？

**デフォルトの名無しさん** · 2017/01/18(水) 14:32:40.83

Lispの仕事ってまだあるのだろうか？
古いシステムの保守程度？

**デフォルトの名無しさん** · 2017/01/18(水) 23:04:07.71

どっかの会社で、common lispでやっているところがあったはず

完全に廃れた感じはしないな

**デフォルトの名無しさん** · 2017/01/19(木) 09:03:33.76

>>452
どんな仕事なんだろう？

**デフォルトの名無しさん** · 2017/01/19(木) 09:38:33.97

https://chrome.google.com/webstore/detail/%E3%81%AF%E3%81%A6%E3%81%AAng/mbgdnfmdelffjdhkdggilmphfdihnmcj?hl=ja

**デフォルトの名無しさん** · 2017/01/19(木) 12:17:01.00

Lispと言えば、研究用途かWebサーバーで使うようなイメージしかないわ

**デフォルトの名無しさん** · 2017/01/19(木) 21:19:55.80

お前の抱えるイメージなんかに誰か興味を持つと思ったのか？

**デフォルトの名無しさん** · 2017/01/20(金) 00:42:56.98

>>456
でも実際に何に使われているんだ？
研究専用言語だと思っていたのだが。

**デフォルトの名無しさん** · 2017/01/20(金) 10:12:07.41

>>456 みたいなBOTに使われているという実例

**デフォルトの名無しさん** · 2017/01/20(金) 11:53:33.16

LispはUNIX以外で実用的に使うのは無理なのかねえ？

**デフォルトの名無しさん** · 2017/01/20(金) 12:28:28.14

スレチだからlisp scheme スレでやれよ
http://echo.2ch.net/test/read.cgi/tech/1426481152
もっと釣れるぞ

**デフォルトの名無しさん** · 2017/01/20(金) 12:48:36.11

Lisp はWebサーバ用の言語

**デフォルトの名無しさん** · 2017/01/20(金) 19:20:31.02

lemのgithubのページでインストールにros install cxxxr/lemしろと書いてあって
roswell使うのは分かるけどroswellってどっからインストールしてんの？
cxxxr/lemという引数を見る限りgithubからインストールしてるような気がするけど

**デフォルトの名無しさん** · 2017/01/21(土) 06:13:30.03

>>459
っhttps://www.amazon.co.jp/dp/4274065979/

**デフォルトの名無しさん** · 2017/01/21(土) 11:57:50.59

>>463
そんな読み物で何が分かるんだ？

**デフォルトの名無しさん** · 2017/01/21(土) 16:17:15.46

roswellどのサーバーにアクセスするとか一切ドキュメントに書いてない
こんな糞アプリ使えるかよ

**デフォルトの名無しさん** · 2017/01/21(土) 16:57:44.64

ここで聞いてももう駄目
githubのissueかtwitterかredditのr/lisp_jaかja.stackoverflowのlispタグのどれかが良い

**デフォルトの名無しさん** · 2017/01/21(土) 19:07:36.86

ttps://github.com/roswell/roswell の Installing scripts に
$ ros install fukamachi/qlot # will install it from the GitHub
って書いてあるけど知りたいのはこれじゃないってこと？

**デフォルトの名無しさん** · 2017/01/22(日) 10:57:47.88

>>404
言語組み込み解禁で誰かがluaに変えると予想

**デフォルトの名無しさん** · 2017/01/29(日) 02:04:07.29

Land of lispの動画見て来ますた

**デフォルトの名無しさん** · 2017/01/29(日) 22:21:22.72

>>469
いらっしゃーい

**デフォルトの名無しさん** · 2017/01/30(月) 02:40:54.54

>>469
あの動画楽しいよね。

**デフォルトの名無しさん** · 2017/02/01(水) 13:13:45.46

わかる人いたら教えて下さい。
iterm2でrepl(sbcl)を最初から起動させようと
replというプロファイルを作り
.bachrcに

if [ "$ITERM_PROFILE" = "repl" ];
then
sbcl
fi

と書くと、たしかにsbclを実行するのですが
以下のメッセージが出て起動しません。

fatal error encountered in SBCL pid 3042:
can't find core file at /usr/local/lib/sbcl//sbcl.core

どうしたら良いのでしょうか。
ちなみに再度sbclと入力するといつも通り起動します。

**デフォルトの名無しさん** · 2017/02/03(金) 00:03:57.75

コマンドで呼んでいるsbclとスクリプトで呼び出しているsbclが違うんじゃないか？
パスを確認すると良いとおもう
sbcl --core コアのパス/sbcl.core と明示しても解決するかもしれない

**デフォルトの名無しさん** · 2017/04/05(水) 00:10:33.71

Common lispからpythonの特にnumpy関係のライブラリ使う方法ないのでしょうか？

**デフォルトの名無しさん** · 2017/04/05(水) 03:18:41.90

>>474
なんでcommonlispからソレが必要になるのかがまずわからんがrationalでは扱えないくらいでかい桁数の浮動小数値なの？

**デフォルトの名無しさん** · 2017/04/08(土) 15:56:08.90

Pythonだとpandasとかにある関数がないからpythonをffiで呼べないとclでdeel learningきついなあ

Sparse matrix計算も出来ないみたいだし

**デフォルトの名無しさん** · 2017/05/03(水) 04:46:48.46

Cのプログラムがcuda使うと100倍速くなるのに
cl-cudaマクロがせいぜい７倍ぐらいしか速くならないのは何故？

**デフォルトの名無しさん** · 2017/05/09(火) 20:10:22.37

>>477
行列のかけ算とかだとopenblas(マルチコアCPU)とcublas(CUDA、GPU一枚)で俺の環境だと７倍程度の差しかないし、多分比較対象のCプログラムの書き方が相当まずいだけだと思う

**デフォルトの名無しさん** · 2017/05/09(火) 20:19:48.11

>>476
密行列はLLA、MGL-MATがopenblas/MKL/cuBLASのラッパーになってる。

疎行列なら現状ラッパーが多分ないのでCFFIでcuSPARSEへのバインディングを書こう。

全結合のディープラーニングならMGLでCommon Lispのみでできる。

PythonのClojureライクなLisp方言ならHy(hylang)がある。
Pythonのライブラリが直接使いたいならこれを使えばいい。

**デフォルトの名無しさん** · 2017/05/19(金) 19:45:50.96

初心者ですハマってしまったので助けて下さい!
ファイルを読み込んで a=abcのような行を
(defparameter *a* 'abc)のようにするマクロなのですが
(readconfig "filename") だとうまくいくのですが
(readconfig (concatenate 'string "file" "name"))のように呼び出しても引数が評価されずにそのまま渡ってしまいます。

(defmacro readconfig (filename)
`(progn
,@(loop for i in
(with-open-file
(s filename :direction :input :external-format :utf-8)
(loop :for line := (read-line s nil) :while line :collect line))
collect
(let* ((l (split-sequence:split-sequence #\= i))
(a (read-from-string (concatenate 'string "*" (car l) "*")))
(b (second l)))
`(defparameter ,a (read-from-string ,b))))))

**デフォルトの名無しさん** · 2017/05/19(金) 21:20:45.65

引数が評価されてないね

**デフォルトの名無しさん** · 2017/05/19(金) 21:49:23.53

>>480
macroexpand で展開してみた？

**デフォルトの名無しさん** · 2017/05/19(金) 21:58:39.33

>>482
concatenateの方はエラーがでます
普通に文字列を渡せばうまくいくのですが

**デフォルトの名無しさん** · 2017/05/20(土) 00:30:38.53

>>480
どうしてマクロにしたの？初心者だから？

**デフォルトの名無しさん** · 2017/05/20(土) 01:15:39.37

>>484
関数の中で(eval `(defparameter ,変数 ,シンボル))とすると変数がありませんというエラーがでてきて
普通にdefparameterしようとしても変数定義はされないのでマクロでやるしかないと思いました。
(eval `(defparameter ,変数 ,文字列))だとうまくいきますね

**デフォルトの名無しさん** · 2017/05/20(土) 01:30:33.54

問題が解決できました evalはあまり使っちゃいけない的なことが言われてたと思うので
なんとなく気が引けてマクロを使っちゃった感じです初心者の質問に付き合ってくださりありがとうございました！

**デフォルトの名無しさん** · 2017/05/21(日) 06:36:36.81

OpenCVの超解像計算プログラムは
cpuとgpuで100倍近く速度に差があるよ

**デフォルトの名無しさん** · 2017/05/21(日) 06:50:43.54

typed racketみたいな型推論をcommon lispでする方法ないのでしょうか？