Lisp Scheme Part17
at TECH
[
2ch
|
▼Menu
]
■コピペモード
□
スレを通常表示
□
オプションモード
□このｽﾚｯﾄﾞの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")
次ページ
最新レス表示
スレッドの検索
類似スレ一覧
話題のニュース
おまかせリスト
▼オプションを表示
レスジャンプ
mixiチェック！
Twitterに投稿
オプション
しおりを挟む
スレッドに書込
スレッドの一覧
暇つぶし2ch
5372日前に更新/220 KB
担当:undef