«前の日記(2008年06月06日) 最新 次の日記(2008年06月09日)» 編集

ema log


2008年06月07日 [長年日記]

_ [Gauche][Event]読書メモ

ネットワークつながらず → okkez さん thanks!!

DHCP サーバの返す DNS サーバの情報がおかしかったようです

'('(1 2 3) '(4 5 6))

データとしてのプログラムのリスト

() の代わりに [] が使える p.55-56

末尾再帰版length書き下し

(define (mylength lis)
  (define (mylength-helper n rest)
    (if (null? rest)
      n
      (mylength-helper (+ n 1) (cdr rest))))
   (mylength-helper 0 lis))

末尾再帰版reverse

(define (reverse lis)
  (define (reverse-helper memo rest)
    (if (null? rest)
      memo
      (reverse-helper (cons (car rest) memo) (cdr rest))))
  (reverse-helper '() lis))