2019-09-07から1日間の記事一覧
ネットを徘徊してどこぞから拾ってきたお題です。 (define nil '()) ;; '(1 3 4 5 6 12 13 15) ;; => '(1 (3 . 6) (12 . 13) 15) (define (compact-number-list sorted-number-list) (define (iter lis prev start end result) (if (null? lis) (append resu…
ネットを徘徊してどこぞから拾ってきたお題です。 (define nil '()) ;; '(1 3 4 5 6 12 13 15) ;; => '(1 (3 . 6) (12 . 13) 15) (define (compact-number-list sorted-number-list) (define (iter lis prev start end result) (if (null? lis) (append resu…
