Lisp@UNIX版 (585ﾚｽ)

Lisp@UNIX版 http://mevius.5ch.net/test/read.cgi/unix/1019926525/

上下前次1-新
通常表示 512ﾊﾞｲﾄ分割 ﾚｽ栞

---

320: 名無しさん＠お腹いっぱい。 [] 03/04/17 23:57 嵐ｶｷｺﾐにﾚｽ付けるなよ http://mevius.5ch.net/test/read.cgi/unix/1019926525/320

321: 名無しさん＠お腹いっぱい。 [sage] 03/04/18 10:35 >>291 ゴマキ様お久しぶり http://mevius.5ch.net/test/read.cgi/unix/1019926525/321

322: あぼーん [あぼーん] あぼーん http://mevius.5ch.net/test/read.cgi/unix/1019926525/322

323: 名無しさん＠お腹いっぱい。 [age] 03/05/04 01:28 cmucl カレント追っかけてる人居ますか？なんか、新しくウプされたバイナリ で clocc がビルドできないんすけど…。保守も兼ねてアゲ http://mevius.5ch.net/test/read.cgi/unix/1019926525/323

324: 名無しさん＠お腹いっぱい。 [] 03/05/12 17:05 http://mevius.5ch.net/test/read.cgi/unix/1019926525/324

325: あぼーん [あぼーん] あぼーん http://mevius.5ch.net/test/read.cgi/unix/1019926525/325

326: 名無しさん＠お腹いっぱい。 [sage] 03/05/25 07:12 ちんこ nul nul po http://mevius.5ch.net/test/read.cgi/unix/1019926525/326

327: 名無しさん＠お腹いっぱい。 [] 03/05/26 22:12 わぁ http://mevius.5ch.net/test/read.cgi/unix/1019926525/327

328: あぼーん [あぼーん] あぼーん http://mevius.5ch.net/test/read.cgi/unix/1019926525/328

329: 名無しさん＠お腹いっぱい。 [] 03/06/30 15:21 age http://mevius.5ch.net/test/read.cgi/unix/1019926525/329

330: おおブレネリ [sage] 03/07/01 00:19 静かなごはんの森の影から 起きてはいかが？と郭公が鳴く 郭公、郭公、郭公郭公郭公 http://mevius.5ch.net/test/read.cgi/unix/1019926525/330

331: 名無しさん＠お腹いっぱい。 [sage] 03/07/02 21:04 なんか、大分さがってるけど質問してみます。 ↓この 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 初心者に愛の手を。。。 http://mevius.5ch.net/test/read.cgi/unix/1019926525/331

332: 名無しさん＠お腹いっぱい。 [sage] 03/07/03 10:49 どうして 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)))) http://mevius.5ch.net/test/read.cgi/unix/1019926525/332

333: 名無しさん＠お腹いっぱい。 [sage] 03/07/03 10:56 >>331 見た感じ elisp だな． (defun my-test2 (lst1 lst2) (my-test2-aux lst1 lst2 nil)) (defun my-test2-aux (lst1 lst2 acc) (if (null lst1) (nreverse acc) (my-test2-aux (cdr lst1) lst2 (my-test2-aux2 (car lst1) lst2 acc)))) (defun my-test2-aux2 (e lst acc) (if (null lst) acc (my-test2-aux2 e (cdr lst) (cons (concat e (car lst)) acc)))) ↓どう考えてもこっちのが効率的だとおもうが，なんで再帰でやりたいんだ？？ (defun my-test3 (lst1 lst2) (let (acc) (dolist (e1 lst1 (nreverse acc)) (dolist (e2 lst2) (push (concat e1 e2) acc))))) http://mevius.5ch.net/test/read.cgi/unix/1019926525/333

334: 333 [sage] 03/07/03 10:58 激しくかぶった…鬱だ http://mevius.5ch.net/test/read.cgi/unix/1019926525/334

335: 332 [sage] 03/07/03 11:15 >>332,333 普段はあまり再帰とか意識しないで作ってるんで再帰したらどうなるのかなーって思っ て。 んで、なんとなく append を使わないで書いてみたくなったんですが、うまい書き方が 思い浮かばなかったんで聞いてみました。 最初に作ったのは、>>333 さんの後ろのやつと同じ感じになってました。 ありがとうございますです。 http://mevius.5ch.net/test/read.cgi/unix/1019926525/335

336: あぼーん [あぼーん] あぼーん http://mevius.5ch.net/test/read.cgi/unix/1019926525/336

337: flatline ◆r6EONKKhcc [sage] 03/07/18 09:17 大物LisperのPaul Grahamが自分のサイトで配っている著書On Lispを邦訳して公開しています． ただしまだ1-7章のみです．しかも今は期末試験前半中なので作業再開は8月入ってからになります． ttp://user.ecc.u-tokyo.ac.jp/~g340299/onlisp_j.{dvi,pdf,tex}.bz2 こないだム板とマ板のLisp擦れに告知したら著作権関係をクリアにしろとのお叱りを頂いたので， しばらく取り止めていましたが， It's fine with me if you want to put a Japanese translation online.  I doubt the new publishers will issue a Japanese version.  --pg とのことなので，再開しました． 私はまだWizard Bookも読んだことのない廚ですので， 「ここ違ってるぞモルァ」とかあったら是非知らせて下さい． 非公式Texinfo版があるとも教わったので翻訳が終わったらTexinfo形式も考えます． # ここで3个所目のマルチポストですがご勘弁．今だけです． http://mevius.5ch.net/test/read.cgi/unix/1019926525/337

338: 名無しさん＠お腹いっぱい。 [sage] 03/07/18 10:10 >>337 おっ、ちゃんとメールしたんだ。おつかれです。期待してます。 http://mevius.5ch.net/test/read.cgi/unix/1019926525/338

339: 名無しさん＠お腹いっぱい。 [sage] 03/08/04 17:52 (automaton see0 (see0 (0 -> see1)) (see1 (1 -> see0))) ↑みるからに醜悪で，できそこないのクサレ構文 <automaton see0> <state name="see0"> <trn><from>0</from><to>see1</to></trn> </state> <state name="see1"> <trn><from>1</from><to>see0</to></trn> </state> </automaton> ↑最新良好のクールな新しい構文 XML ﾏﾝｾｰ http://mevius.5ch.net/test/read.cgi/unix/1019926525/339

340: 名無しさん＠お腹いっぱい。 [sage] 03/08/04 19:31 ﾜﾗﾀ http://mevius.5ch.net/test/read.cgi/unix/1019926525/340

341: 名無しさん＠お腹いっぱい。 [sage] 03/08/04 21:08 Lisp が流行るには (defun (x) (* x x)) の代わりに <defun><args><arg>x</arg></args><body><expression><fun>*</fun><args><arg>x</arg><arg>x</arg></args></expression></body></defun> みたいな構文を導入すればいいわけですか。 http://mevius.5ch.net/test/read.cgi/unix/1019926525/341

342: 犬厨 [sage] 03/08/14 01:16 古いからってナメてますた、正直すまんかった。 使ってみると楽しい上に便利だった。目から鱗だわ。 http://mevius.5ch.net/test/read.cgi/unix/1019926525/342

343: 名無しさん＠お腹いっぱい。 [age] 03/08/14 07:59 Xanalysのサイトからw3mでHyperSpecをダウンロードしようとしたら、 HyperSpec6.0.tar.gzとかいうファイルが示されたんですが、 その実態がただのディレクトリリストで、けっきょくダウンロードできませんでした。 しかたないのでCMUのサイトから落としました。 http://mevius.5ch.net/test/read.cgi/unix/1019926525/343

344: あぼーん [あぼーん] あぼーん http://mevius.5ch.net/test/read.cgi/unix/1019926525/344

---

ﾒﾓ帳

(0/65535文字)

---

上下前次1-新書関写板覧索設栞歴

---

あと 241 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

Google検索

Wikipedia

---

ぬこの手 ぬこTOP 0.012s