2008-07-18から1日間の記事一覧
こんなんでいいのかな? 3文字版とほとんど同じだけど (use srfi-1) (use util.combinations) ; Gauche (define (k-letters lst k) (define (ok? lst) (if (null? (cdr lst)) #t (if (equal? (take (cdr (car lst)) (- k 1)) (take (cadr lst) (- k 1))) (ok…
こんなんでいいのかな? 3文字版とほとんど同じだけど (use srfi-1) (use util.combinations) ; Gauche (define (k-letters lst k) (define (ok? lst) (if (null? (cdr lst)) #t (if (equal? (take (cdr (car lst)) (- k 1)) (take (cadr lst) (- k 1))) (ok…