Skip to main content

[common-lisp] タグが付いた質問

Common Lisp、または、ANSI Common Lisp はLispの標準化された方言の一つで、実用指向の処理系とライブラリを持っています。

絞り込み
並べ替え
タグ付けされた
0
1 回答
75 閲覧数

common-lisp loop の変数をbit型ではなく、Integerで回すには?

1から入力1までの整数の各桁の和が入力2以上入力3である数の合計を求めるプログラムを書いています。 そのために、関数split-by-digitを作りましたが実際にloopで1から入力1までの回数繰り返し処理を行おうとすると、split-by-digitの引数がBit型でRealではないと怒られます。 ...
Чайка's user avatar
  • 3,381
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(" ")...
Чайка's user avatar
  • 3,381
1
1 回答
144 閲覧数

common-lisp の setq はいつ使うのか?

LISPの入門書を読んでいると、まずsetqで変数の束縛を行っているケースを良く見ますが、sbclなどの実装系ではsetqを使うと、Unused variableの警告が出ます。 以前の質問でも、defparameterやlet, let*を使用して変数の束縛を行った回答が付き、setqが使われていることはありませんでした。 では、setqはどんなケースで使われるのか教えて下さい。
Чайка's user avatar
  • 3,381
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 (...
Чайка's user avatar
  • 3,381
1
1 回答
65 閲覧数

Commn lisp コマンドライン引数の処理について

sbclで、以前作ったbmi計算機をコマンドライン引数からインスタンスを作成し、オブジェクトを作る様に改造しようとしています。 引数が2個の場合、make-instanceで引数から、personインスタンスを作成し、とりあえずpersonの内容を表示しようとしていますが、コンパイルすると変数personが無いと怒られているようです。 以下がソースになりますが、どの様に修正したら良いでしょうか? ;...
Чайка's user avatar
  • 3,381
1
2 回答
122 閲覧数

Common Lispでのインスタンス初期化の書き方が分からない

CLOSでBMIを計算するクラスを作りたいのですが、コンストラクターの使い方が解りません。 最終的に以下の様な形で初期化を呼び出ししたいのですが、どうソースを書いていいのか解りません。 (defparameter person-a (make-instance 'bmi :height 170 :weight 60)) とりあえず書いてみたコードは以下になりますが、(bmi-bmi x)...
Чайка's user avatar
  • 3,381
0
1 回答
88 閲覧数

Common Lispの引数有りメソッドの書き方

CLOSを勉強中です。 クラスや引数無しのメソッドは書けるようになったのですが、引数ありのメソッドの書き方が解りません。 下記コードのsquareに高さtallを引数として取り、立方体の体積を求めるメソッドの書き方と呼び出し方を教えて下さい (defclass shape () ( (width :initform 0 :accessor shape-width :initarg :width)...
Чайка's user avatar
  • 3,381
1
1 回答
432 閲覧数

common lispのデバッガーの使い方を教えて下さい。

環境 linux(ubuntu) roswell上のemacs上のslime (SBCL) 和書ではデバッガーの使い方がほとんど書いていないかマイナー処理系をつかっていて、英語ページもどこをみたらよいのか。(slime公式を見てもいまいちわからず。) 詳しい解説のあるWEBや書籍はありませんでしょうか。 slimeではなくても、CLISPやSBCLのデバッガーの使い方など、参考になるものであれば、...
peppaa's user avatar
  • 335
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))))) ...
Chen's user avatar
  • 21
1
1 回答
268 閲覧数

Emacs系のエディタを一通り学習する手順を教えてください

私はCommon LispとRacketを使うことができます。私はVimとDrRacketを使っています。 Emacs系のエディタとそのパッケージ等々、具体的にはGNU EmacsとSpacemacs, Slime, Lemなどを効率的に学習する手順を知りたいです。皆様からアドバイスを頂戴いたしたく、よろしくお願いします。
Haruo Wakakusa's user avatar
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")...
binko's user avatar
  • 1
3
1 回答
336 閲覧数

Common Lispで、#.を使って値の埋め込みをしたい

SBCLでライブラリを作っています。 原始的な例ですが、test.lispの中に (defparameter default-data #.(let ((size 10)) (make-array size :initial-contents (alexandria:iota size)))) のように書くと、コンパイルする時――例えば(asdf:load-...
Sanda's user avatar
  • 33
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] ...
lniwaka's user avatar
  • 11
1
1 回答
181 閲覧数

slime-connectを使ってプログラムを動的に書き換えたあとのプログラムを取り出したい

問題 動作中のCommon Lispプログラムに対して、slime-connectを利用し、プログラムに変更を加えました。変更したことを忘れてプログラムを再起動してしまい、変更が失われました。 質問 加えた変更をプログラムソースコードとして出力することはできるのでしょうか。 環境 SBCL 1.3.2を使っています。 補足 そういうときには、dribbleを使うのでしょうか。 ...
tamanobi's user avatar
0
1 回答
216 閲覧数

plumpとclssで要素内の属性値を取得したい

現在Common Lispで簡単なWebクローラを作成しています。 plumpとclssを使ってhtmlをパースするところまではできたのですが、要素内で指定されている属性値の取得方法がわかりません。 例えば以下のようなhtmlがあった時に、 <a href="hoge.html" title="fuga">リンク</a> hrefで指定されている"hoge.html"...
ryoana14's user avatar
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を実行して動作を確認しようと思ったのですが、...
user19279's user avatar
5
4 回答
608 閲覧数

evalの妥当な使いどころ

evalは強力過ぎるのでできるだけ使うな、とは良くいわれることですが、では、妥当な使いどころはどういう場合でしょうか。 私が思い付く限りでは、quoteの逆操作としてevalを利用するのは妥当かなと思います。 (eval ''foo) → foo リスト操作でも可能ではありますが、 (cadr ''foo) → foo はちょっと気持ち悪いですし、妥当かなと。 他には、...
g000001's user avatar
  • 1,296
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-...
Rio's user avatar
  • 115
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) ...
user14539's user avatar
1
0 回答
207 閲覧数

usocketのストリームから読み込むことができない

以下のソースコードは,echo関数でクライアントからのリクエストを読み込んでいます. HTTPのヘッダまでは読み込むことができるのですが,メッセージボディを読み込むことができません. # read-charで処理が止まっているようです. これは,私のソースコードを書き換えることで解決できる問題なのでしょうか? もしそうでしたら,理由を教えて頂けないでしょうか. よろしくお願いいたします. ...
mocchi's user avatar
  • 11
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読みだすことは出来たのですが,...
tamamu's user avatar
  • 149
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)を読み込んで文字列に格納すると,...
tamamu's user avatar
  • 149
6
1 回答
251 閲覧数

新たな行に移らずに標準入力から文字列を読み込むには?

Common Lispで標準入力から1行読みだす関数と言えばread-lineですが, (progn (format t "Your answer:") (format t "~A~%" (read-line))) ↑のようにすると, <入力部分> Your answer:<入力部分> このように出力部分が新たな行に移り,入力部分と別になってしまいます....
tamamu's user avatar
  • 149
1
0 回答
89 閲覧数

array-total-size-limit より大きなテキストファイルでパターマッチをしたい

common lisp の文字列は文字の配列なので、array-total-size-limitまでしか扱えないですが、これより大きいテキストファイルで複数行にわたるパターンマッチをしたいとき、どのようにするといいでしょうか?いい方法はないでしょうか?今考えているのは次の方法です。 ファイルを文字のリストにして、文字のリストに対するパターンマッチ ...
fu7mu4's user avatar
  • 91
2
1 回答
3,424 閲覧数

common lisp で MacとWindowsで共通してつかえる、GUIといえばなんでしょうか?

common lispでツールを作成しようとしているのですが、オススメのGUIのライブラリにはどのようなものがあるでしょうか? ltk(tcl/tk)や、commonqt(qt)、cl-gtk(GTK)などたくさんあって困っております。ただし、MacOSX と Windows7 で利用できるものでお願いします。また、一長一短あると思いますので、それもお願いいたします。
fu7mu4's user avatar
  • 91
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)) を実行するとタイトルバーが真っ白で正しく表示されません。 ...
user9517's user avatar
6
3 回答
957 閲覧数

型変換はどう書くの?

数値を16bitにキャストして正負判断するコードを考えています。 (short) n lispではどのように書くのでしょうか?
user9493's user avatar
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 (...
Shion  Yamaguchi's user avatar
4
1 回答
517 閲覧数

Common lisp で 文字コードがわからない場合に推定してファイルを開きたい

Common lisp で 文字コードがわからない場合に推定してファイルを開きたいのです。 みなさんは文字コードのわからないファイルをどのようにして開いているのでしょうか? 私は fileをunsigned-byte 8のvectorにしてから、guessというライブラリを使おうとしています。文字コードは推定してくれますが、改行文字は推定してくれません。 guessは libguess を ...
fu7mu4's user avatar
  • 91
3
1 回答
315 閲覧数

ある文字(Character)がアルファベットかどうかを判定したい

Common Lispで文字、つまりcharacterを表現するためには、#\aといったような表現ができると思います。 そこで、これらの文字がアルファベットかどうかを判定しようとするさい、どのような関数が利用できるでしょうか? あるいは、どのようなコードを書くといいのでしょうか? 想定される使い道は下のようなものを考えています: ? (alphabet? #\f) T ? (alphabet?...
esehara's user avatar
  • 1,383
2
2 回答
698 閲覧数

ラムダ式を利用したクロージャを利用するときの挙動について

SchemeとCommon Lispの挙動を比べた時、クロージャを返す関数を利用するさいの違いについて、よくわからないところがあります。 例えば、Schemeの場合ですと、クロージャを作成する関数を定義し、そのクロージャを評価する場合、下のように書くことが出来ると思います: (define (closure-test x) (lambda () (print x))) ((closure-...
esehara's user avatar
  • 1,383
2
1 回答
373 閲覧数

CLOSを利用した場合に、defmethodで定義したメソッドが組み込み関数と被るときの対処法

CommonLispの勉強のため、CLOS(Common Lisp Object System)を利用してスタック構造を実装しているところです。 スタック構造なので、メソッド名にpopとpushというのを定義したいのですが、CLOSの仕様上、そのまま定義しようとすると、既にCommon Lispの組み込み関数として定義されているpopとpushと被ってしまいます。このとき、...
esehara's user avatar
  • 1,383
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 ...
ironsand's user avatar
  • 3,567
3
3 回答
1,097 閲覧数

sbclでscriptオプションを利用したさいにquicklispが利用できなくなってしまう

Common Lispの練習のため、sbcl(Steel Bank Common Lisp)で、簡単なスクリプトを書いてるのですが、sbcl --script foobar.lispを実行した際に、quicklispがロード出来ないというエラーが出てしまいます。このときに、quicklispを利用するためには、いったいどうすればいいのでしょうか? 詳細のエラーメッセージは以下の通りです: ...
esehara's user avatar
  • 1,383
3
1 回答
134 閲覧数

ASDFで元のシステムのソースは変更せずに壊れたソースコードを修正済のものに差し替えたい

Aというsystemがあったとして、 このsystem中のfoo.lispが壊れていて、(load-system :a)とするとビルドができないとします。 この場合、A systemのfoo.lispを直接書き換えてしまえば修正は可能ですが、 Quicklisp等のパッケージマネージャーを利用していて、パッケージマネージャーから供給されるソースは一切変更したくなくないもの、とします。 ...
g000001's user avatar
  • 1,296
3
1 回答
306 閲覧数

usocketおよび、force-outputに関する質問

usocketおよび、force-outputについて質問させてください。 usocketの勉強のために簡単なEchoサーバを作りました。 echo1とecho2です。 echo1に対してtelnetでの接続を試みたところ、正常に動作いたしました。 しかしecho2に対してtelnet接続を試みたところ、文字列をサーバに送信したにも関わらず、サーバからレスポンスが戻ってきませんでした。 (...
Rio's user avatar
  • 115
7
4 回答
585 閲覧数

common lisp で OCaml 風の書き方をしたい。

common lisp初心者なのですが、誰か教えていただけないでしょうか。 CLISPで、Ocamlのように再帰関数を同一の関数名でラップしたい場合、どのようにするべきでしょうか。 たとえば、以下のreverseのような例です。 let rec reverse xs ys = match xs with | [] -> ys | x::xs -> ...
rio's user avatar
  • 71
4
1 回答
224 閲覧数

アナフォリック・マクロを提供するライブラリのitの競合を回避したい

※注: シンボルが競合しないようなアナフォリック・マクロの作り方の質問ではありません。 アナフォリック・マクロを提供するライブラリには、anaphora、arnesi、kmrcl等々がありますが、これらを混ぜて使うとitが競合します。 また、競合しないようにするとなると、 (kl:aif foo kl:it (anaphora:aand kl:it anaphora:it)) ...
g000001's user avatar
  • 1,296
1
1 回答
545 閲覧数

浮動小数点数のバイナリファイルを作りたい

double-floatの値をIEEE 754に変換して、1byteずつwrite-byteするしかないでしょうか。
g000001's user avatar
  • 1,296
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 . :...
g000001's user avatar
  • 1,296
2
1 回答
739 閲覧数

UNIXのパイプ処理のようにストリームを扱いたい

AとBという2つのストリームがあった場合、Aのストリームを読み込み、処理を加え、Bのストリームに結果を受け流すような処理はどのように書くのでしょうか。 一旦Aのストリームの内容を書き出して処理を加え、その結果でBのストリームを作る、というような方法しかないのでしょうか。
g000001's user avatar
  • 1,296
-1
2 回答
487 閲覧数

文字列からキーワードを作りたい

:foo という、キーワードを作りたいのですが、 (intern ":FOO") としても、|:FOO|というシンボルができるようです。 どうすれば、:fooが作れますか。
g000001's user avatar
  • 1,296
0
1 回答
282 閲覧数

MIMEのパース・作成をするおすすめのCommon Lispライブラリは?

Common LispでMIMEのパース・作成をするライブラリでおすすめのものは何ですか?
g000001's user avatar
  • 1,296
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) ;...
g000001's user avatar
  • 1,296