【入門】Common Lisp その10【質問よろず】at TECH【入門】Common Lisp その10【質問よろず】 - 暇つぶし2ch■コピペモード□スレを通常表示□オプションモード□このｽﾚｯﾄﾞのURL■項目テキスト820:移転前ログ 1/6 14/05/23 23:34:12.06 VIeF9Nr2 818 ： 815[sage] 投稿日：2014/05/23(金) 02:13:12.85 ID:Dj6yziyp >>817 なるほど 120.00001 になるんだったら120にならないのは当然ですね 近似値になるって事を考えて試行錯誤し 2.6 を 2.6001にすると言う適当な事で対処しました・・・ 819 ： デフォルトの名無しさん[sage] 投稿日：2014/05/23(金) 08:31:19.17 ID:S9ZhBRpZ じゃなくて、四捨五入にしないと危ないだろそれ。 820 ： デフォルトの名無しさん[sage] 投稿日：2014/05/23(金) 08:41:53.80 ID:UMGtPnEJ ラウンドやな 821 ： デフォルトの名無しさん[sage] 投稿日：2014/05/23(金) 08:58:33.93 ID:UMGtPnEJ リスプ勉強始めました。まだリスプらしい発想ができず知識もないのですが、Ｃ言語でいう静的局所変数の実現方がわからず次のようにしてみました。 もっと、まともな方法有るでしょうか？ ;;;隠れ引数cntを利用して静的局所変数を実現する ;;; ;;;目的のatomが与えられたlistの何番目にあるか？ ;;;なければゼロを返す ;;;(member* 'c '(a b c d )) -> 3 ;;;(member* 'x '(a b c d )) -> 0 (defun member* (x lst &rest cnt) (if (null cnt) (setq cnt '(1))) (cond ((null lst) 0) ((eq (car lst) x) (car cnt)) (t (member* x (cdr lst) (+ (car cnt) 1))))) 次ページ最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch