r = 0                                    #whileで繰り返す(repetitionの頭文字)のに使用
deck = createArray()            #deckという変数に配列を用意する魔法の言葉、createArray()
 while r < 53
  deck[r] = r
  r = r + 1
 end

(r,r_s共に0を代入しておく)
rand(53)を使って0～52の数字をランダムに変数a(仮)にセット
↓
while
┃deck[r]の中身がaと同じかどうか検証
┃↓
┃・同じならdeck[r]の中身を-1(0～52ではない数字)に変更、deck_s[r_s]にrを代入、r_sを+1
┃・違うなら特に何も
┃↓
┗rを+1

r = 0
deck = createArray()
 while r < 53
  deck[r] = r
  r = r + 1
 end

#-------------------------↓追加↓----------------------------
r_s = 0                            #deck_sに使う配列の変数
a = 0                                        #rand関数で出たものを入れる変数
deck_s = createArray()                    #シャッフル後のデッキの配列 

while r_s < 53                     #deck_sの配列が52を越える、それは[0]～[52]が入った証
r = 0                                          #また繰り返しに使う変数
a = rand(53)

    while r < 53
       if deck[r] == a               #もしランダムに取り出した数aがdeck[0](初回)に入っている0だった場合
         deck[r] = -1                 #deck[0]の中身を-1にして今後検知されないようにする
         deck_s[r_s] = a         #deck_s[0]にランダムに取り出した数a(=0)を代入する
         r_s = r_s + 1           #deck_sの配列の数字が次の段階へ
         r = 53                    #めんどくさいのでもうaの数字探すループ抜けようぜ
      end
     r = r + 1                    #見つかろうか見つからなかろうがとりあえず+1はしようや
    end

end

speak("上から順番に",deck_s[0],"、",deck_s[1],"、",deck_s[2],"、",deck_s[3],"、",deck_s[4],"でした")

speak("はじめるよ")                  #---------------追加--------------
time1 = getLocalCurrentTimeMillisecond()                      #---------------追加--------------
r = 0
deck = createArray()
 while r < 53
  deck[r] = r
  r = r + 1
 end

r_s = 0
a = 0
deck_s = createArray()

while r_s < 53
r = 0
a = rand(53)

    while r < 53
       if deck[r] == a
         deck[r] = -1
         deck_s[r_s] = a
         r_s = r_s + 1
         a = -1
         r = 53
      end
     r = r + 1
    end

end

time2 = getLocalCurrentTimeMillisecond()   #---------------追加--------------
time3 = time2 - time1                  #---------------追加--------------
speak("上から順番に",deck_s[0],"、",deck_s[1],"、",deck_s[2],"、",deck_s[3],"、",deck_s[4],"でした\nこの処理にかかった時間は",time3,"ミリ秒でした")#---------------変更--------------

speak("はじめるよ")
time1 = getLocalCurrentTimeMillisecond()
r = 0
deck = createArray()
 while r < 53
  deck[r] = r
  r = r + 1
 end

#-------------------------↓変更↓----------------------------
r = 0
a = 0
deck_s = createArray()

while r < 53
a = rand(53)
   if deck[a] == a            #もしdeck[a]がa(要約するとまだ選ばれていない)なら
      deck[a] = -1            #deck[a]を-1(言わば使用済み)にする
      deck_s[r] = a         #そしてdeck_s[(初回なら0)]にaを代入する
      r = r + 1           #そしてdeck_sの配列は次のステージへ・・・
   end
end

time2 = getLocalCurrentTimeMillisecond()
time3 = time2 - time1
speak("上から順番に",deck_s[0],"、",deck_s[1],"、",deck_s[2],"、",deck_s[3],"、",deck_s[4],"でした\nこの処理にかかった時間は",time3,"ミリ秒でした")

speak("はじめるよ")
time1 = getLocalCurrentTimeMillisecond()
r = 0
deck = createArray()
 while r < 53
  deck[r] = r
  r = r + 1
 end
r = 0
a = 0
deck_s = createArray()
while r < 53
a = rand(53)
   if deck[a] == a
      deck[a] = -1
      deck_s[r] = a
      r = r + 1
   end
end
time2 = getLocalCurrentTimeMillisecond()
time3 = time2 - time1
speak("上から順番に",deck_s[0],"、",deck_s[1],"、",deck_s[2],"、",deck_s[3],"、",deck_s[4],"でした\nこの処理にかかった時間は",time3,"ミリ秒でした")