Lisp Scheme Part17at TECHLisp Scheme Part17 - 暇つぶし2ch■コピペモード□スレを通常表示□オプションモード□このｽﾚｯﾄﾞのURL■項目テキスト550:デフォルトの名無しさん 07/06/04 00:55:35 うまく人を逆撫でできる人は自分の話題に持ち込めるけど、 単なる阿呆、とだけ思われてオシマイだと、うち捨てられて終わりなんだよね。 551:デフォルトの名無しさん 07/06/04 03:29:47 >>542 君が欲しいのはこんな感じのものでは？ (defmacro test (x lst) `(setq ,lst (append ,lst (list ,x)))) でも>>546の言うとおり、pushしてnreverseのほうがたぶん速いよ。 552:デフォルトの名無しさん 07/06/04 04:08:00 多分 queue が使いたいんじゃないかなーと思った。 553:デフォルトの名無しさん 07/06/04 13:51:23 Common Lispらしいという意味ではfill pointer付きarrayという手もあるな。使ったことないけど。 554:デフォルトの名無しさん 07/06/04 21:13:09 >>553 コンシングを減らすために使ってみたことあるよ。 おれがヘボなせいかあんま高速化しなかったけどorz cl-user(5): (setq vec (make-array 10 :fill-pointer 0 :adjustable t)) #() cl-user(6): (vector-push "a" vec) 0 cl-user(7): (vector-push "b" vec) 1 cl-user(8): (vector-push "c" vec) 2 cl-user(9): vec #("a" "b" "c") cl-user(10): (concatenate 'list vec) ("a" "b" "c") 次ページ最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch