--- title: 『プログラミングGauche』のP56練習問題 author: kazu634 date: 2008-09-06 url: /2008/09/06/_1097/ wordtwit_post_info: - 'O:8:"stdClass":13:{s:6:"manual";b:0;s:11:"tweet_times";i:1;s:5:"delay";i:0;s:7:"enabled";i:1;s:10:"separation";s:2:"60";s:7:"version";s:3:"3.7";s:14:"tweet_template";b:0;s:6:"status";i:2;s:6:"result";a:0:{}s:13:"tweet_counter";i:2;s:13:"tweet_log_ids";a:1:{i:0;i:4261;}s:9:"hash_tags";a:0:{}s:8:"accounts";a:1:{i:0;s:7:"kazu634";}}' categories: - gauche - Lisp ---

リストの長さを計算するlengthを直接(foldを使わずに)定義してみる

やっぱり再帰的な考え方ができていないかもしれない…というかこんなのありかという感じになるというのが正解かな。自分の発想としては

  1. 受け取ったリストがnullならば→とりあえずなんかするんだろう
  2. nullでなければ→適当な変数をインクリメントして、自分自身を(cdr lis)して呼び出す

みたいな発想しかない。で、「とりあえずなんとかするんだろう」という部分と「適当な変数をインクリメントして」の部分がよくわからなくなるパターンだ。それが模範解答ではこうなる:

(define (length lis)
(if (null? lis)

(+ 1 (length (cdr lis)))))

oを返して、手続きの戻り値に1を足していけばいいわけですか。。。たしかにそうですね。。。「nullになったら0を戻して、とにかく手続きが呼び出された回数分インクリメントしちゃえばいいじゃん」的な発想なわけですね。。。それは思いつかないです。はい。

プログラミングGauche

プログラミングGauche