2007-06-19から1日間の記事一覧
Gaucheの例。append-map による深さ優先探索。 (use srfi-1) (define (delete-elt x l) (let ([index (list-index (lambda (p) (eq? p x)) l)]) (and index (call-with-values (lambda () (split-at l index)) (lambda (x xs) (append x (cdr xs))))))) (def…
Gaucheの例。append-map による深さ優先探索。 (use srfi-1) (define (delete-elt x l) (let ([index (list-index (lambda (p) (eq? p x)) l)]) (and index (call-with-values (lambda () (split-at l index)) (lambda (x xs) (append x (cdr xs))))))) (def…