guyon https://blog.hatena.ne.jp/guyon/ Guyon Diary https://guyon.hatenablog.jp/ scheme max-numをリファクリングの例があったので、要点をメモ。 ;; リストから最大値を表示する手続き (define (max-num lis) ;; 大きい数値を返す手続き (define (pick-greater a b) (if (> a b) a b)) (fold pick-greater -inf.0 lis)) (print (max-num '(4 3 5 2))) この手続きの特徴は、負の無限大「-inf.0」を初期値としてリストと比較して実現している。 リファクタリングは負の無限大ではなくcarとcdrだけで実現してみようというもの。まずはコードから ;; リストから最大… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fguyon.hatenablog.jp%2Fentry%2F20080526%2F1211804216" title="max-num手続きのリファクタリング - Guyon Diary" class="embed-card embed-blogcard" scrolling="no" frameborder="0" style="display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;"></iframe> Hatena Blog https://hatena.blog 2008-05-26 21:16:56 rich https://guyon.hatenablog.jp/entry/20080526/1211804216 1.0 100%