Lisp@UNIX版 (585ﾚｽ)
上下前次1-新
抽出解除 ﾚｽ栞

---

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 さんの後ろのやつと同じ感じになってました。

ありがとうございますです。

---

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

---

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

---

ぬこの手 ぬこTOP 1.178s*