3 5 6 9 10 12 17 18 20 24こんな問題がいきなり出たらドン引き間違い無しですね。
;;; combination.scm (define (getbits n int) (let loop((index 0) (bits '())) (if (= index n) (map (lambda (b) (if b 1 0)) bits) (loop (+ index 1) (cons (logbit? index int) bits))))) (define (next-combination current) (let ((sb (lambda (x) (…
引用をストックしました
引用するにはまずログインしてください
引用をストックできませんでした。再度お試しください
限定公開記事のため引用できません。