Lisp@UNIX版 (585ﾚｽ)
Lisp@UNIX版 http://mevius.5ch.net/test/read.cgi/unix/1019926525/
上
下
前
次
1-
新
通常表示
512ﾊﾞｲﾄ分割
ﾚｽ栞
309: 名無しさん＠お腹いっぱい。 [] 03/03/26 10:26 >>286 2ch-Schemeとか2ch-CLでも作れば? http://mevius.5ch.net/test/read.cgi/unix/1019926525/309
310: あぼーん [あぼーん] あぼーん http://mevius.5ch.net/test/read.cgi/unix/1019926525/310
311: 名無しさん＠お腹いっぱい。 [] 03/03/26 23:23 >>309 単にシンボル名を置き換えるだけで出来ちゃうっぽいよ。 car => ｷﾎﾞﾝﾇ cdr => ﾌﾟ nil => ﾇﾙﾎﾟ cons => ﾏﾀｰﾘ eval => ｼﾞｻｸｼﾞｴﾝ apply => ﾔﾗﾅｲｶ (ﾌﾟ '(香具師)) =>ﾇﾙﾎﾟ (ｷﾎﾞﾝﾇ '(神)) =>神 (ﾏﾀｰﾘ 'ｺﾞﾙｧ ﾇﾙﾎﾟ) =>(ｺﾞﾙｧ) http://mevius.5ch.net/test/read.cgi/unix/1019926525/311
312: 名無しさん＠お腹いっぱい。 [] 03/03/26 23:34 t => ｶﾞｯ null? => ﾇﾙﾎﾟ? (ﾇﾙﾎﾟ? ﾇﾙﾎﾟ) =>ｶﾞｯ http://mevius.5ch.net/test/read.cgi/unix/1019926525/312
313: Ｃａｔ’ｓ Ｈａｎｄ [cats_hand2002@msn.com] 03/03/27 00:12 違法サイト潰しから復讐、縁談破壊等々 何でもやらります！できないことはありません！！ 悩んでいるアナタ！是非お電話ください。 必ず、お力になりますよ。 お電話ください！ 全てお任せください！ やってみせます！！ 便利屋Ｃａｔ’ｓ Ｈａｎｄ http://www.cats-hand.sytes.net/ ０７０−５４５９−７０８３ http://mevius.5ch.net/test/read.cgi/unix/1019926525/313
314: 名無しさん＠お腹いっぱい。 [sage] 03/03/27 03:20 >>311,312 笑えるな。 もっと面白く意味があるようにできないかな。 http://mevius.5ch.net/test/read.cgi/unix/1019926525/314
315: 名無しさん＠お腹いっぱい。 [sage] 03/03/27 05:58 結婚 夫 妻 独身 戸籍調査 http://mevius.5ch.net/test/read.cgi/unix/1019926525/315
316: 名無しさん＠お腹いっぱい。 [sage] 03/03/30 14:46 （ホシュ） http://mevius.5ch.net/test/read.cgi/unix/1019926525/316
317: 名無しさん＠お腹いっぱい。 [] 03/04/05 01:56 cmucl 18e 記念アゲ http://mevius.5ch.net/test/read.cgi/unix/1019926525/317
318: 山崎渉 [（＾＾）] 03/04/17 12:01 （＾＾） http://mevius.5ch.net/test/read.cgi/unix/1019926525/318
319: 名無しさん＠お腹いっぱい。 [sage] 03/04/17 23:50 >>318 おまいさんも Lisper だったのか。 http://mevius.5ch.net/test/read.cgi/unix/1019926525/319
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) (te
st1 (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
ﾒﾓ帳
(0/65535文字)
上
下
前
次
1-
新
書
関
写
板
覧
索
設
栞
歴
あと 252 ﾚｽあります
ｽﾚ情報
赤ﾚｽ抽出
画像ﾚｽ抽出
歴の未読ｽﾚ
AAｻﾑﾈｲﾙ
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.030s