1. 60ページのtokensについて、:testと:startを引数としてとる(デフォルトはそれぞれ#'constituent, 0)形に定義せよ。 (defun tokens (str test start) (let ((p1 (position-if test str :start start))) (if p1 (let ((p2 (position-if #'(lambda (c) (not …

3. 任意の数の引数をとり、その引数の個数を返す関数を定義せよ。 Haskellで可変長引数って一応できるらしいけど、なんか難しそう。 Text.Printfモジュールのソース読めっていう乱暴な(?)エントリ見つけたのでリンクしときます。 http://ja.doukaku.org/comm…