なんとそのものズバリの関数があった。 $a=range(0,9); shuffle($a);ランダムにn個取り出す場合はarray_randが使える。 array_rand(range(0,9),4)

ついでにgauche版のguessも作ろうとしたがこちらは未完成。 (define (guess ans . arg) (map (lambda (mod) (hash-table-fold (module-table mod) (lambda (k v r) (if (with-error-handler (lambda (e) #f) (lambda () (eq? (apply v arg) ans))) (cons k r…