Lisp@UNIX版 (585ﾚｽ)
上下前次1-新
302(1): 03/03/24 22:47 AAS
>>293
炊き上ったら、そのままスイッチを
切るモードを追加したいんじゃ。
数時間の保温って再び飯炊くのと
同じぐらいの電気を消費するらしいから。
303: 03/03/24 23:23 AAS
そういう炊飯器を買え！
うちのはそうだ。
304: 03/03/24 23:29 AAS
なんだ、そういう炊飯器あるのか。
305: 03/03/24 23:33 AAS
家電板行け
306: 03/03/25 00:00 AAS
Lisp 組み込み彼女ｷﾎﾞﾝﾇ
307: 03/03/25 00:53 AAS
>>302
add-hook
308: 03/03/26 01:53 AAS
そういえば add-hook って ad hoc にかけてるのかな。
309(1): 03/03/26 10:26 AAS
>>286
2ch-Schemeとか2ch-CLでも作れば?
310: あぼーん [あぼーん] AAS
あぼーん
311(1): 03/03/26 23:23 AAS
>>309
単にシンボル名を置き換えるだけで出来ちゃうっぽいよ。
car => ｷﾎﾞﾝﾇ
cdr => ﾌﾟ
nil => ﾇﾙﾎﾟ
cons => ﾏﾀｰﾘ
eval => ｼﾞｻｸｼﾞｴﾝ
apply => ﾔﾗﾅｲｶ
(ﾌﾟ '(香具師)) =>ﾇﾙﾎﾟ
(ｷﾎﾞﾝﾇ '(神)) =>神
(ﾏﾀｰﾘ 'ｺﾞﾙｧ ﾇﾙﾎﾟ) =>(ｺﾞﾙｧ)
312(1): 03/03/26 23:34 AAS
t => ｶﾞｯ
null? => ﾇﾙﾎﾟ?
(ﾇﾙﾎﾟ? ﾇﾙﾎﾟ)
=>ｶﾞｯ
313: Ｃａｔ’ｓ Ｈａｎｄ [cats_hand2002@msn.com] 03/03/27 00:12 AAS
違法サイト潰しから復讐、縁談破壊等々
何でもやらります！できないことはありません！！
悩んでいるアナタ！是非お電話ください。
必ず、お力になりますよ。 お電話ください！
全てお任せください！ やってみせます！！
便利屋Ｃａｔ’ｓ Ｈａｎｄ
外部ﾘﾝｸ:www.cats-hand.sytes.net
０７０−５４５９−７０８３
314: 03/03/27 03:20 AAS
>>311,312
笑えるな。
もっと面白く意味があるようにできないかな。
315: 03/03/27 05:58 AAS
結婚 夫 妻 独身 戸籍調査
316: 03/03/30 14:46 AAS
（ホシュ）
317: 03/04/05 01:56 AAS
cmucl 18e 記念アゲ
318(1): 山崎渉 [（＾＾）] 03/04/17 12:01 AAS
（＾＾）
319: 03/04/17 23:50 AAS
>>318
おまいさんも Lisper だったのか。
320: 03/04/17 23:57 AAS
嵐ｶｷｺﾐにﾚｽ付けるなよ
321: 03/04/18 10:35 AAS
>>291 ゴマキ様お久しぶり
322: あぼーん [あぼーん] AAS
あぼーん
323: [age] 03/05/04 01:28 AAS
cmucl カレント追っかけてる人居ますか？なんか、新しくウプされたバイナリ
で clocc がビルドできないんすけど…。保守も兼ねてアゲ
324: 03/05/12 17:05 AAS
325: あぼーん [あぼーん] AAS
あぼーん
326: 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: おおブレネリ 03/07/01 00:19 AAS
静かなごはんの森の影から
起きてはいかが？と郭公が鳴く
郭公、郭公、郭公郭公郭公
331(1): 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 初心者に愛の手を。。。
上下前次1-新書関写板覧索設栞歴
あと 254 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ
ぬこの手 ぬこTOP 0.018s