Lisp@UNIX版 (585レス)
上下前次1-新
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))))
333(2): 名無しさん@お腹いっぱい。 [sage] 03/07/03 10:56 AAS
>>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)))))
334: 333 [sage] 03/07/03 10:58 AAS
激しくかぶった…鬱だ
335: 332 [sage] 03/07/03 11:15 AAS
>>332,333
普段はあまり再帰とか意識しないで作ってるんで再帰したらどうなるのかなーって思っ
て。
んで、なんとなく append を使わないで書いてみたくなったんですが、うまい書き方が
思い浮かばなかったんで聞いてみました。
最初に作ったのは、>>333 さんの後ろのやつと同じ感じになってました。
ありがとうございますです。
336: あぼーん [あぼーん] AAS
あぼーん
337(1): flatline ◆r6EONKKhcc [sage] 03/07/18 09:17 AAS
大物LisperのPaul Grahamが自分のサイトで配っている著書On Lispを邦訳して公開しています.
ただしまだ1-7章のみです.しかも今は期末試験前半中なので作業再開は8月入ってからになります.
外部リンク[bz2]:user.ecc.u-tokyo.ac.jp
こないだム板とマ板の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个所目のマルチポストですがご勘弁.今だけです.
338: 名無しさん@お腹いっぱい。 [sage] 03/07/18 10:10 AAS
>>337 おっ、ちゃんとメールしたんだ。おつかれです。期待してます。
339(1): 名無しさん@お腹いっぱい。 [sage] 03/08/04 17:52 AAS
(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>11(1): 名無しさん@お腹いっぱい。 [] 02/04/28 01:55 AAS
なんだかんだ言って,ホントはみんなLispが好きなんだろ?(藁)
というわけで,語ろうや.
プログラム技術板のLisp Schemeスレ
2chスレ:tech
</from><to>see0</to></trn>
</state>
</automaton>
↑最新良好のクールな新しい構文
XML マンセー
340: 名無しさん@お腹いっぱい。 [sage] 03/08/04 19:31 AAS
ワラタ
341: 名無しさん@お腹いっぱい。 [sage] 03/08/04 21:08 AAS
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>
みたいな構文を導入すればいいわけですか。
342(1): 犬厨 [sage] 03/08/14 01:16 AAS
古いからってナメてますた、正直すまんかった。
使ってみると楽しい上に便利だった。目から鱗だわ。
343(1): 名無しさん@お腹いっぱい。 [age] 03/08/14 07:59 AAS
Xanalysのサイトからw3mでHyperSpecをダウンロードしようとしたら、
HyperSpec6.0.tar.gzとかいうファイルが示されたんですが、
その実態がただのディレクトリリストで、けっきょくダウンロードできませんでした。
しかたないのでCMUのサイトから落としました。
344: あぼーん [あぼーん] AAS
あぼーん
345: 名無しさん@お腹いっぱい。 [sage] 03/08/14 13:44 AAS
>>342
わかればよろしい
346: 名無しさん@お腹いっぱい。 [sage] 03/08/14 17:23 AAS
>>343 もう遅いけど 外部リンク[gz]:ftp.xanalys.com だよな?
今ためしたらちゃんのダウンロードできたけど.あとは ILISP と組み合わせて快適生活を送ってください.
347: 名無しさん@お腹いっぱい。 [sage] 03/08/14 22:16 AAS
こんなとこにもLISPスレが
348: 名無しさん@お腹いっぱい。 [sage] 03/08/15 00:48 AAS
こんなところにもといわれるほど沢山ないと思うが。
上下前次1-新書関写板覧索設栞歴
あと 237 レスあります
スレ情報 赤レス抽出 画像レス抽出 歴の未読スレ AAサムネイル
ぬこの手 ぬこTOP 0.009s