Lisp@UNIX版 (585ﾚｽ)
上下前次1-新
308: 名無しさん＠お腹いっぱい。 [sage] 03/03/26 01:53 AAS
そういえば add-hook って ad hoc にかけてるのかな。
309(1): 名無しさん＠お腹いっぱい。 [] 03/03/26 10:26 AAS
>>286286(1): 名無しさん＠お腹いっぱい。 [] 03/03/23 18:14 AAS
MIT-schemeやcmuclみたいに、大学の名前がそのまま使われた
処理系があると、そこに通ってる学生にとっては結構名誉な事だよね。
たぶん。
日本ではKCL（京大）ぐらい？
2ch-Schemeとか2ch-CLでも作れば?
310: あぼーん [あぼーん] AAS
あぼーん
311(1): 名無しさん＠お腹いっぱい。 [] 03/03/26 23:23 AAS
>>309
単にシンボル名を置き換えるだけで出来ちゃうっぽいよ。
car => ｷﾎﾞﾝﾇ
cdr => ﾌﾟ
nil => ﾇﾙﾎﾟ
cons => ﾏﾀｰﾘ
eval => ｼﾞｻｸｼﾞｴﾝ
apply => ﾔﾗﾅｲｶ
(ﾌﾟ '(香具師)) =>ﾇﾙﾎﾟ
(ｷﾎﾞﾝﾇ '(神)) =>神
(ﾏﾀｰﾘ 'ｺﾞﾙｧ ﾇﾙﾎﾟ) =>(ｺﾞﾙｧ)
312(1): 名無しさん＠お腹いっぱい。 [] 03/03/26 23:34 AAS
t => ｶﾞｯ
null? => ﾇﾙﾎﾟ?
(ﾇﾙﾎﾟ? ﾇﾙﾎﾟ)
=>ｶﾞｯ
313: Ｃａｔ’ｓ Ｈａｎｄ [cats_hand2002@msn.com] 03/03/27 00:12 AAS
違法サイト潰しから復讐、縁談破壊等々
何でもやらります！できないことはありません！！
悩んでいるアナタ！是非お電話ください。
必ず、お力になりますよ。 お電話ください！
全てお任せください！ やってみせます！！
便利屋Ｃａｔ’ｓ Ｈａｎｄ
外部ﾘﾝｸ:www.cats-hand.sytes.net
０７０−５４５９−７０８３
314: 名無しさん＠お腹いっぱい。 [sage] 03/03/27 03:20 AAS
>>311,312
笑えるな。
もっと面白く意味があるようにできないかな。
315: 名無しさん＠お腹いっぱい。 [sage] 03/03/27 05:58 AAS
結婚 夫 妻 独身 戸籍調査
316: 名無しさん＠お腹いっぱい。 [sage] 03/03/30 14:46 AAS
（ホシュ）
317: 名無しさん＠お腹いっぱい。 [] 03/04/05 01:56 AAS
cmucl 18e 記念アゲ
318(1): 山崎渉 [（＾＾）] 03/04/17 12:01 AAS
（＾＾）
319: 名無しさん＠お腹いっぱい。 [sage] 03/04/17 23:50 AAS
>>318
おまいさんも Lisper だったのか。
320: 名無しさん＠お腹いっぱい。 [] 03/04/17 23:57 AAS
嵐ｶｷｺﾐにﾚｽ付けるなよ
321: 名無しさん＠お腹いっぱい。 [sage] 03/04/18 10:35 AAS
>>291291(1): 名無しさん＠お腹いっぱい。 [sage] 03/03/23 22:59 AAS
>>289
元々gclはmaximaという数式処理システムのプラットホームとして
テキサス大学のBill William Schelterが開発していたわけだけど、
Billは一昨年の夏にロシアであぼーんしてしまったのね。
maximaはその後も開発が続いて、最近5.9.0が出たけど、
プラットホームはgclだけではなくなり、cmuclやclispの上でも動くようになった。
今だにCLtL1なgclには存在意義はなくなった……かも知れないけど、
Camm Maguire（Debianでmaximaのメインテナーしてる人）が引き取って
開発は続いている。
そういうわけで、Debianでmaximaを使うと、
$ maxima
GCL (GNU Common Lisp) (2.5.2) Thu Mar 20 10:36:35 EST 2003
Licensed under GNU Library General Public License
Dedicated to the memory of W. Schelter
Use (help) to get some basic information on how to use GCL.
Maxima 5.9.0 外部ﾘﾝｸ:maxima.sourceforge.net
Distributed under the GNU Public License. See the file COPYING.
Dedicated to the memory of William Schelter.
This is a development version of Maxima. The function bug_report()
provides bug reporting information.
Billとはメールのやり取りだけだったけど悲しい。
ゴマキ様お久しぶり
322: あぼーん [あぼーん] AAS
あぼーん
323: 名無しさん＠お腹いっぱい。 [age] 03/05/04 01:28 AAS
cmucl カレント追っかけてる人居ますか？なんか、新しくウプされたバイナリ
で clocc がビルドできないんすけど…。保守も兼ねてアゲ
324: 名無しさん＠お腹いっぱい。 [] 03/05/12 17:05 AAS
325: あぼーん [あぼーん] AAS
あぼーん
326: 名無しさん＠お腹いっぱい。 [sage] 03/05/25 07:12 AAS
ちんこ nul nul po
327: 名無しさん＠お腹いっぱい。 [] 03/05/26 22:12 AAS
わぁ
328: あぼーん [あぼーん] AAS
あぼーん
329: 名無しさん＠お腹いっぱい。 [] 03/06/30 15:21 AAS
age
330: おおブレネリ [sage] 03/07/01 00:19 AAS
静かなごはんの森の影から
起きてはいかが？と郭公が鳴く
郭公、郭公、郭公郭公郭公
331(1): 名無しさん＠お腹いっぱい。 [sage] 03/07/02 21:04 AAS
なんか、大分さがってるけど質問してみます。
↓この test って関数を append を使わないで再帰で書くにはどうしたらいいですか？
(defun test (list1 list2)
(let (list)
(while list1
(let ((list3 list2))
(while list3
(setq list (cons (concat (car list1) (car list3)) list))
(setq list3 (cdr list3))))
(setq list1 (cdr list1)))
(nreverse list)))
append を使えば↓な感じでいけるんですが。。。
(defun test1 (list1 list2)
(if list1
(append (test2 (car list1) list2)
(test1 (cdr list1) list2))))
(defun test2 (str list)
(if list
(cons (concat str (car list))
(test2 str (cdr list)))))
lisp 初心者に愛の手を。。。
332(1): 名無しさん＠お腹いっぱい。 [sage] 03/07/03 10:49 AAS
どうして append 使わないで再帰で書きたいのかも教えてほしいけど…
とりあえず、その条件だけならこんな感じでいけそう。
(defun test (list1 list2)
(test1 list1 list2 ()))
(defun test1 (l1 l2 lst)
(if (null l1) (nreverse lst)
(test1 (cdr l1) l2
(test2 (car l1) l2 lst))))
(defun test2 (s l r)
(if (null l) r
(test2 s (cdr l) (cons (concat s (car l)) r))))
上下前次1-新書関写板覧索設栞歴
あと 253 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 0.080s