2008-04-05から1日間の記事一覧
下から上がっていった方が楽。 (define (f seq) (define (iter result rest) (match rest ((a b . _) (iter (cons (cons a b) result) (cdr rest))) (_ (reverse result)))) (iter '() seq)) (f '(1 2 3)) ;;=> ((1 . 2) (2 . 3)) (define (g seq1 seq2) (le…
下から上がっていった方が楽。 (define (f seq) (define (iter result rest) (match rest ((a b . _) (iter (cons (cons a b) result) (cdr rest))) (_ (reverse result)))) (iter '() seq)) (f '(1 2 3)) ;;=> ((1 . 2) (2 . 3)) (define (g seq1 seq2) (le…