注目コメント算出アルゴリズムの一部にLINEヤフー株式会社の「建設的コメント順位付けモデルAPI」を使用しています
前のエントリーでやっていることを CLOS の「補助メソッド」で。しかし、こうもシンプルに書けてしまう... 前のエントリーでやっていることを CLOS の「補助メソッド」で。しかし、こうもシンプルに書けてしまうと、なんだか、f をありのまま定義して手つかずにすることへの脱力感が際だちますね(^_^;)。 (defmethod f ((n integer)) (cond ((= n 1) 1) ((evenp n) (f (/ n 2))) ((oddp n) (f (+ (* 3 n) 1))))) (defmethod f :before ((n integer)) (setq steps (1+ steps)) (setq upto (max upto n))) (defmethod g ((n integer)) (setq steps 0) (setq upto n) (f n) (list steps upto)) (defmethod h ((n integer)) (let ((r
2006/07/21 リンク