Lisp@UNIX版 (585ﾚｽ)

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

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

---

ﾘﾛｰﾄﾞ規制です｡10分ほどで解除するので､他のﾌﾞﾗｳｻﾞへ避難してください｡

---

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

---

ﾒﾓ帳

(0/65535文字)

---

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

---

ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

Google検索

Wikipedia

---

ぬこの手 ぬこTOP 0.021s