[common-lisp] タグが付いた質問
44 件の質問
0
票
1
回答
75
閲覧数
common-lisp loop の変数をbit型ではなく、Integerで回すには?
1から入力1までの整数の各桁の和が入力2以上入力3である数の合計を求めるプログラムを書いています。
そのために、関数split-by-digitを作りましたが実際にloopで1から入力1までの回数繰り返し処理を行おうとすると、split-by-digitの引数がBit型でRealではないと怒られます。
...
0
票
1
回答
95
閲覧数
common lisp で while の使い方が解らない
lispの練習のため、AtCoderを始めましたが、whileの使い方が良くわかりません。
rubyで言うところの下記の様なコードを書きたいのですが、どうしたら良いのでしょうか?
#!/usr/bin/ruby
divided = -1
odd = false
input = gets
input = gets
numbers = input.chomp.split(" ")...
1
票
1
回答
144
閲覧数
common-lisp の setq はいつ使うのか?
LISPの入門書を読んでいると、まずsetqで変数の束縛を行っているケースを良く見ますが、sbclなどの実装系ではsetqを使うと、Unused variableの警告が出ます。
以前の質問でも、defparameterやlet, let*を使用して変数の束縛を行った回答が付き、setqが使われていることはありませんでした。
では、setqはどんなケースで使われるのか教えて下さい。
2
票
1
回答
70
閲覧数
listからcdrして得たstringをread-from-stringすると文字列ではないとエラーが出る
先の質問で引数*posix-argv*を処理しているときに、引数は3つだから最後の要素は
sbcl 170 70
としてsbclを起動してみて、
(cdr (cdr *posix-argv*))
で取れると最初は思いました。
しかし、read-from-stringで、上の値を処理すると、文字列ではないと怒られました。
試しにtype-ofで、型を確認すると
(type-of (cdr (...
1
票
1
回答
65
閲覧数
Commn lisp コマンドライン引数の処理について
sbclで、以前作ったbmi計算機をコマンドライン引数からインスタンスを作成し、オブジェクトを作る様に改造しようとしています。
引数が2個の場合、make-instanceで引数から、personインスタンスを作成し、とりあえずpersonの内容を表示しようとしていますが、コンパイルすると変数personが無いと怒られているようです。
以下がソースになりますが、どの様に修正したら良いでしょうか?
;...
1
票
2
回答
122
閲覧数
Common Lispでのインスタンス初期化の書き方が分からない
CLOSでBMIを計算するクラスを作りたいのですが、コンストラクターの使い方が解りません。
最終的に以下の様な形で初期化を呼び出ししたいのですが、どうソースを書いていいのか解りません。
(defparameter person-a (make-instance 'bmi :height 170 :weight 60))
とりあえず書いてみたコードは以下になりますが、(bmi-bmi x)...
0
票
1
回答
88
閲覧数
Common Lispの引数有りメソッドの書き方
CLOSを勉強中です。 クラスや引数無しのメソッドは書けるようになったのですが、引数ありのメソッドの書き方が解りません。
下記コードのsquareに高さtallを引数として取り、立方体の体積を求めるメソッドの書き方と呼び出し方を教えて下さい
(defclass shape () (
(width :initform 0 :accessor shape-width :initarg :width)...
1
票
1
回答
432
閲覧数
common lispのデバッガーの使い方を教えて下さい。
環境
linux(ubuntu)
roswell上のemacs上のslime (SBCL)
和書ではデバッガーの使い方がほとんど書いていないかマイナー処理系をつかっていて、英語ページもどこをみたらよいのか。(slime公式を見てもいまいちわからず。)
詳しい解説のあるWEBや書籍はありませんでしょうか。
slimeではなくても、CLISPやSBCLのデバッガーの使い方など、参考になるものであれば、...
2
票
1
回答
108
閲覧数
xyzzyで((4 1 . #1=(2 . #2=(3))) (1 4 . #1#) (1 2 4 . #2#) (1 2 3 4))は普通のリストで表示されない
このようなコードを作成しましたが、結果は普通なリストになっていませんでした。
(defun ins (x f s)
(cons
(append f (cons x s))
(if (null s)
nil
(ins x
(reverse (cons (car s) (reverse f)))
(cdr s)))))
...
1
票
1
回答
268
閲覧数
Emacs系のエディタを一通り学習する手順を教えてください
私はCommon LispとRacketを使うことができます。私はVimとDrRacketを使っています。
Emacs系のエディタとそのパッケージ等々、具体的にはGNU EmacsとSpacemacs, Slime, Lemなどを効率的に学習する手順を知りたいです。皆様からアドバイスを頂戴いたしたく、よろしくお願いします。
0
票
1
回答
110
閲覧数
CCLで、LANで繋いだ他のPCから、ファイルをloadしたい
無線LANで2つのPC、Note-PCとDesk-PCを繋いでいます。Desk-PCに、directory、D:/Data/Lisp/の下にFile1.clという名のCommon Lispのファイルを作成してあります。Note-PCでClozure CLを立ち上げ、Desk-PCのファイル、File1.clを(load "//Desk-PC/Data/Lisp/File1.cl")...
3
票
1
回答
336
閲覧数
Common Lispで、#.を使って値の埋め込みをしたい
SBCLでライブラリを作っています。
原始的な例ですが、test.lispの中に
(defparameter default-data
#.(let ((size 10))
(make-array size :initial-contents (alexandria:iota size))))
のように書くと、コンパイルする時――例えば(asdf:load-...
1
票
1
回答
318
閲覧数
cl-openglのgem-vertex-arrayのエラー
Common LispでOpenGLのチュートリアルを試していたのですが,
(gl:gen-vertex-array)でエラーが出てしまいます.
OpenGL signalled (1282 . INVALID-OPERATION) from GEN-VERTEX-ARRAYS.
[Condition of type CL-OPENGL-BINDINGS:OPENGL-ERROR]
...
1
票
1
回答
181
閲覧数
slime-connectを使ってプログラムを動的に書き換えたあとのプログラムを取り出したい
問題
動作中のCommon Lispプログラムに対して、slime-connectを利用し、プログラムに変更を加えました。変更したことを忘れてプログラムを再起動してしまい、変更が失われました。
質問
加えた変更をプログラムソースコードとして出力することはできるのでしょうか。
環境
SBCL 1.3.2を使っています。
補足
そういうときには、dribbleを使うのでしょうか。
...
0
票
1
回答
216
閲覧数
plumpとclssで要素内の属性値を取得したい
現在Common Lispで簡単なWebクローラを作成しています。
plumpとclssを使ってhtmlをパースするところまではできたのですが、要素内で指定されている属性値の取得方法がわかりません。
例えば以下のようなhtmlがあった時に、
<a href="hoge.html" title="fuga">リンク</a>
hrefで指定されている"hoge.html"...
0
票
1
回答
372
閲覧数
Lispbuilder-sdlで音楽を鳴らしたいのですが、"BABEL-ENCODINGS:INVALID-UTF8-STARTER-BYTE"というエラーがでて実行できません。
現在、以下のPDFを参考にゲームを作っております。
http://www.usamimi.info/~ide/programe/stg_doc/stg-commonlisp.pdf
上記PDFではサウンド周りのことは自分で調べて実装するように記載されているため、ひとまずlispbuilder-sdl-mixer-examplesを実行して動作を確認しようと思ったのですが、...
5
票
4
回答
608
閲覧数
evalの妥当な使いどころ
evalは強力過ぎるのでできるだけ使うな、とは良くいわれることですが、では、妥当な使いどころはどういう場合でしょうか。
私が思い付く限りでは、quoteの逆操作としてevalを利用するのは妥当かなと思います。
(eval ''foo)
→ foo
リスト操作でも可能ではありますが、
(cadr ''foo)
→ foo
はちょっと気持ち悪いですし、妥当かなと。
他には、...
0
票
0
回答
113
閲覧数
read-sequence-no-hangの実装
read-char-no-hangのシークエンス版 read-sequence-no-hangを作りたいのですが、可能でしょうか。
一番、シンプルな実装は以下のようなものになると思います。
(defun read-sequence-no-hang (seq stream &rest rest)
(when (listen stream)
(apply #'read-...
5
票
1
回答
1,054
閲覧数
common lispの実行ファイルについて
common lispで以下のようなソースをコンパイルした時にできる実行ファイルのサイズがかなり大きいのですが、小さくすることは可能でしょうか。
(defun main()
(format t "Hello World!~%"))
(sb-ext:save-lisp-and-die "hello-sbcl"
:toplevel #'main
:executable t)
...
1
票
0
回答
207
閲覧数
usocketのストリームから読み込むことができない
以下のソースコードは,echo関数でクライアントからのリクエストを読み込んでいます.
HTTPのヘッダまでは読み込むことができるのですが,メッセージボディを読み込むことができません.
# read-charで処理が止まっているようです.
これは,私のソースコードを書き換えることで解決できる問題なのでしょうか?
もしそうでしたら,理由を教えて頂けないでしょうか.
よろしくお願いいたします.
...
3
票
2
回答
506
閲覧数
ファイルから4byteの整数を読みだす
(with-open-file (s f :direction :input :element-type 'unsigned-byte)
(let ((x (make-array 4 :element-type 'unsigned-byte)))
(read-sequence x s)
x))
このようにファイルから変数xに4byte読みだすことは出来たのですが,...
3
票
2
回答
1,221
閲覧数
ファイルを読み込んで文字列に格納すると終端にNULL文字が入る
(with-open-file (s "test.txt" :direction :input)
(let ((buf (make-string (file-length s))))
(read-sequence buf s)
buf))
↑のようにread-sequenceで日本語で書かれたファイル(ここではtest.txt)を読み込んで文字列に格納すると,...
6
票
1
回答
251
閲覧数
新たな行に移らずに標準入力から文字列を読み込むには?
Common Lispで標準入力から1行読みだす関数と言えばread-lineですが,
(progn (format t "Your answer:")
(format t "~A~%" (read-line)))
↑のようにすると,
<入力部分>
Your answer:<入力部分>
このように出力部分が新たな行に移り,入力部分と別になってしまいます....
1
票
0
回答
89
閲覧数
array-total-size-limit より大きなテキストファイルでパターマッチをしたい
common lisp の文字列は文字の配列なので、array-total-size-limitまでしか扱えないですが、これより大きいテキストファイルで複数行にわたるパターンマッチをしたいとき、どのようにするといいでしょうか?いい方法はないでしょうか?今考えているのは次の方法です。
ファイルを文字のリストにして、文字のリストに対するパターンマッチ
...
2
票
1
回答
3,424
閲覧数
common lisp で MacとWindowsで共通してつかえる、GUIといえばなんでしょうか?
common lispでツールを作成しようとしているのですが、オススメのGUIのライブラリにはどのようなものがあるでしょうか? ltk(tcl/tk)や、commonqt(qt)、cl-gtk(GTK)などたくさんあって困っております。ただし、MacOSX と Windows7 で利用できるものでお願いします。また、一長一短あると思いますので、それもお願いいたします。
2
票
2
回答
330
閲覧数
sbcl,slime上でlispbuilder-examplesのタイトルバーが正しく表示されない
OSX10.10です。
SBCL1.2.10
lispbuilder-sdl
quicklispでlispbuilder導入後、sbcl、slime上で
(sb-int:with-float-traps-masked
(:invalid) (sdl-examples:particles))
を実行するとタイトルバーが真っ白で正しく表示されません。
...
6
票
3
回答
957
閲覧数
型変換はどう書くの?
数値を16bitにキャストして正負判断するコードを考えています。
(short) n
lispではどのように書くのでしょうか?
1
票
1
回答
224
閲覧数
バッククオート記法について
(defmacro define-class (class inst-vars class-vars &body methods)
(let ,class-vars
(mapcar #'ensure-generic-fn ',(mapcar #'first methods))
(defun ,class ,inst-vars
#'(lambda (...
4
票
1
回答
517
閲覧数
Common lisp で 文字コードがわからない場合に推定してファイルを開きたい
Common lisp で 文字コードがわからない場合に推定してファイルを開きたいのです。
みなさんは文字コードのわからないファイルをどのようにして開いているのでしょうか?
私は fileをunsigned-byte 8のvectorにしてから、guessというライブラリを使おうとしています。文字コードは推定してくれますが、改行文字は推定してくれません。
guessは libguess を ...
3
票
1
回答
315
閲覧数
ある文字(Character)がアルファベットかどうかを判定したい
Common Lispで文字、つまりcharacterを表現するためには、#\aといったような表現ができると思います。
そこで、これらの文字がアルファベットかどうかを判定しようとするさい、どのような関数が利用できるでしょうか? あるいは、どのようなコードを書くといいのでしょうか?
想定される使い道は下のようなものを考えています:
? (alphabet? #\f)
T
? (alphabet?...
2
票
2
回答
698
閲覧数
ラムダ式を利用したクロージャを利用するときの挙動について
SchemeとCommon Lispの挙動を比べた時、クロージャを返す関数を利用するさいの違いについて、よくわからないところがあります。
例えば、Schemeの場合ですと、クロージャを作成する関数を定義し、そのクロージャを評価する場合、下のように書くことが出来ると思います:
(define (closure-test x)
(lambda () (print x)))
((closure-...
2
票
1
回答
373
閲覧数
CLOSを利用した場合に、defmethodで定義したメソッドが組み込み関数と被るときの対処法
CommonLispの勉強のため、CLOS(Common Lisp Object System)を利用してスタック構造を実装しているところです。
スタック構造なので、メソッド名にpopとpushというのを定義したいのですが、CLOSの仕様上、そのまま定義しようとすると、既にCommon Lispの組み込み関数として定義されているpopとpushと被ってしまいます。このとき、...
3
票
3
回答
666
閲覧数
xyzzy で ~/.xyzzy.d/ 以下の lispファイルを全てロードする方法
~/.xyzzy.d 配下にある lisp ファイルを全て起動時に読み込むために
(mapcar #'mc-load-file (directory "~/.xyzzy.d/" :absolute t :wild "*.l"))
と記述していたのですが、久しぶりにxyzzyを使ってみると読み込まなくなってしまっていました。
C-x C-eで該当行を実行すると (t t t t t t t t ...
3
票
3
回答
1,097
閲覧数
sbclでscriptオプションを利用したさいにquicklispが利用できなくなってしまう
Common Lispの練習のため、sbcl(Steel Bank Common Lisp)で、簡単なスクリプトを書いてるのですが、sbcl --script foobar.lispを実行した際に、quicklispがロード出来ないというエラーが出てしまいます。このときに、quicklispを利用するためには、いったいどうすればいいのでしょうか?
詳細のエラーメッセージは以下の通りです:
...
3
票
1
回答
134
閲覧数
ASDFで元のシステムのソースは変更せずに壊れたソースコードを修正済のものに差し替えたい
Aというsystemがあったとして、
このsystem中のfoo.lispが壊れていて、(load-system :a)とするとビルドができないとします。
この場合、A systemのfoo.lispを直接書き換えてしまえば修正は可能ですが、
Quicklisp等のパッケージマネージャーを利用していて、パッケージマネージャーから供給されるソースは一切変更したくなくないもの、とします。
...
3
票
1
回答
306
閲覧数
usocketおよび、force-outputに関する質問
usocketおよび、force-outputについて質問させてください。
usocketの勉強のために簡単なEchoサーバを作りました。
echo1とecho2です。
echo1に対してtelnetでの接続を試みたところ、正常に動作いたしました。
しかしecho2に対してtelnet接続を試みたところ、文字列をサーバに送信したにも関わらず、サーバからレスポンスが戻ってきませんでした。
(...
7
票
4
回答
585
閲覧数
common lisp で OCaml 風の書き方をしたい。
common lisp初心者なのですが、誰か教えていただけないでしょうか。
CLISPで、Ocamlのように再帰関数を同一の関数名でラップしたい場合、どのようにするべきでしょうか。
たとえば、以下のreverseのような例です。
let rec reverse xs ys =
match xs with
| [] -> ys
| x::xs -> ...
4
票
1
回答
224
閲覧数
アナフォリック・マクロを提供するライブラリのitの競合を回避したい
※注: シンボルが競合しないようなアナフォリック・マクロの作り方の質問ではありません。
アナフォリック・マクロを提供するライブラリには、anaphora、arnesi、kmrcl等々がありますが、これらを混ぜて使うとitが競合します。
また、競合しないようにするとなると、
(kl:aif foo kl:it
(anaphora:aand kl:it anaphora:it))
...
1
票
1
回答
545
閲覧数
浮動小数点数のバイナリファイルを作りたい
double-floatの値をIEEE 754に変換して、1byteずつwrite-byteするしかないでしょうか。
2
票
1
回答
272
閲覧数
マクロやインライン関数を再定義したのでそれらを利用している関数すべてを再コンパイルしたい
マクロやインライン関数の場合、再定義してもそれらを利用する関数は、再コンパイルしない限り元の定義が使われるままになってしまいます。
(declaim (inline foo))
(defun foo (x)
(cons x :foo))
(defun bar (x)
(foo x))
(defun baz (x)
(foo x))
(bar 8)
;=> (8 . :...
2
票
1
回答
739
閲覧数
UNIXのパイプ処理のようにストリームを扱いたい
AとBという2つのストリームがあった場合、Aのストリームを読み込み、処理を加え、Bのストリームに結果を受け流すような処理はどのように書くのでしょうか。
一旦Aのストリームの内容を書き出して処理を加え、その結果でBのストリームを作る、というような方法しかないのでしょうか。
-1
票
2
回答
487
閲覧数
文字列からキーワードを作りたい
:foo という、キーワードを作りたいのですが、
(intern ":FOO")
としても、|:FOO|というシンボルができるようです。
どうすれば、:fooが作れますか。
0
票
1
回答
282
閲覧数
MIMEのパース・作成をするおすすめのCommon Lispライブラリは?
Common LispでMIMEのパース・作成をするライブラリでおすすめのものは何ですか?
7
票
1
回答
386
閲覧数
Common Lispのdefstructのスロットの:read-onlyオプションについて
defstructのスロットに:read-onlyオプションを付けますが、SBCL等ではスロットに書き込めてしまいます。
他の処理系では、セッターを定義しないことで書き込みをしにくくしているようですが、
なにかもっと良い方法はないのでしょうか。
(defstruct foo (x nil :read-only t) y z)
(setf (foo-x (make-foo :x 9)) 8)
;...