まだまだだ。 乱数は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) (-…

1.7からのArray#fetchが未チェックだったことが判明。 （ありがとうございます>id:winebarrel さん）ということで、書き直す。 #!/usr/bin/ruby class Array def [](i) self.fetch(i) end end a=Array[1,2,3] puts a[0] # =>1 puts a[2] # =>3 puts a[3] # =…