Lisperの後輩にそそのかされて薦められてPractical Common Lispを読んでいたら，count-if関数があることに気がつく．昨日のブラックジャックの問題を解くときに使った1の枚数を数える部分はこうやって書ける． (defun number-of-1 (lis) (count-if #'(lambda…

そういえば計算結果に分数が出て，どうやって小数にするんだろと思っていた．解決．分数から小数への変換はcoerce関数を用いる．1/3のような循環小数は適当なところで丸められてしまう． (coerce 3/5 'float) => 0.6 (coerce 1/3 'float) => 0.3333333 小数…