コメント - Rmake

このコメントは、配列奮闘記へのコメントです。

コメントの内容

aoihikawa(投稿日：2017/02/19 12:02/19/17)

純粋にシャッフルして
上から引く、でも早くできそう

time1 = getLocalCurrentTimeMillisecond()

#下準備
deck = createArray()

i = 0; ilen = 53
while i < ilen
  deck[i] = i
  i = i + 1
end

#シャッフル
r = 0; n = 0

i = 0; ilen = 53
while i < ilen
  r = rand(ilen - i) + i
  n = deck[i]
  deck[i] = deck[r]
  deck[r] = n
  i = i + 1
end

#必要な枚数取り出す
deck_s = createArray()

i = 0; ilen = 5
while i < ilen
  deck_s[i] = deck[i]
  i = i + 1
end

#結果表示
time2 = getLocalCurrentTimeMillisecond()
time3 = time2 - time1

speak(deck_s[0] + ":" + deck_s[1] + ":"  + deck_s[2] + ":"  + deck_s[3] + ":"  + deck_s[4] + "\n time" + time3)

コメントの内容(一番最初の投稿)

aoihikawa(投稿日：2017/02/19 12:02/19/17)

純粋にシャッフルして
上から引く、でも早くできそう

time1 = getLocalCurrentTimeMillisecond()

#下準備
deck = createArray()

i = 0; ilen = 53
while i < ilen
  deck[i

= i
i = i + 1
end

#シャッフル
r = 0; n = 0

i = 0; ilen = 53
while i < ilen
r = rand(ilen - i) + i
n = deck[i]
deck[i] = deck[r]
deck[r] = n
i = i + 1
end

#必要な枚数取り出す
deck_s = createArray()

i = 0; ilen = 5
while i < ilen
deck_s[i] = deck[i]
i = i + 1
end

#結果表示
time2 = getLocalCurrentTimeMillisecond()
time3 = time2 - time1

speak(deck_s[0] + ":" + deck_s[1] + ":" + deck_s[2] + ":" + deck_s[3] + ":" + deck_s[4] + "\n time" + time3)
]