Gaucheで「カブらない数字を4桁だすの」をやる
まだまだだ。
乱数はsrfi-27番。
(use srfi-1) (use srfi-27) (random-source-randomize! default-random-source) (display (let me ((i (iota 10 0)) (j 4)) (if (> j 0) (let ((k (random-integer (length i)))) (cons (list-ref i k) (me (delete k i) (- j 1)))) ())))