沖縄読書会

今日も宜野湾マクドにて実施。

問題2.41

このエントリの解は unique-pairs の定義が微妙だった模様。
最初は以下。

(define (unique-pairs n)
  (flatmap
    (lambda (i)
      (flatmap
        (lambda (k)
          (map (lambda (j) (list j k i))
               (enumerate-interval 1 k)))
        (enumerate-interval 1 i)))
    (enumerate-interval 1 n)))

修正版が以下。

(define (unique-pairs n)
  (flatmap
    (lambda (i)
      (flatmap
        (lambda (k)
          (map (lambda (j) (list j k i))
               (enumerate-interval 1 k)))
        (enumerate-interval 1 (- i 1))))
    (enumerate-interval 1 n)))

で、sw@mac の中の人はさらに早い実装を云々との事。定義が微妙との事で宿題らしい。

来週からは

図形言語に突入。そろそろ予習をきちんとヤりつつ練習問題だけではなくて本体もきっちり読んでいく必要あり。