DouKaku?

整数nを渡すと1 ～ n までの整数を重複しないようランダムに出力する関数「bingo」を作ってください。

このお題はraynstardさんの投稿を元にしています。ご投稿ありがとうございました。 投稿の内容には表示のしかたも含まれていたのですが、 このお題では「重複しない1～nまでの乱数をどうやって作るか」という点に集中することにして、 結果の整形は続編としてこの後のお題で出すことにします。 サンプル入出力は下のようになります。

>>> bingo(10)
[10, 7, 8, 4, 5, 2, 3, 1, 6, 9]
>>> bingo(3)
[2, 3, 1]
>>> bingo(3)
[2, 3, 1]
>>> bingo(3)
[3, 1, 2]
>>> bingo(10)
[7, 3, 8, 6, 4, 10, 9, 2, 1, 5]

Schemeの解答がなかったので投稿

 1
 2
 3
 4
 5
 6
 7
 8
 9
10

(use srfi-1)
(use srfi-27)

(define (bingo n)
  (define (%bingo lst)
    (if (null? lst)
        '()
        (receive (head tail) (split-at lst (random-integer (length lst)))
          (cons (car tail) (%bingo (append head (cdr tail)))))))
  (%bingo (iota n 1)))