2008-06-08から1日間の記事一覧
「'(a b c) '(x y z)」の順序を保ったままの組み合わせ。(20個ある) (define (my-remove item seq) (filter (lambda (x) (not (eq? item x))) seq)) (define (orderd-perm . args) (define (each-car-with-nil seqs) (fold (lambda (x init) (if (null? x) i…
「'(a b c) '(x y z)」の順序を保ったままの組み合わせ。(20個ある) (define (my-remove item seq) (filter (lambda (x) (not (eq? item x))) seq)) (define (orderd-perm . args) (define (each-car-with-nil seqs) (fold (lambda (x init) (if (null? x) i…