[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

(DTPtechNote:669) listのシャッフル



リストのシャッフルっていうか、randomize
こういうのって、ありそうでなかなかないのねぇ。。。
カードゲームとかには欠かせないと思うんだけど(^^;
かなり悩んでしまいました(笑)

set my_list to {1, 2, 3, 4, 5, 6, 7, 8, 9, 0}
--set my_list to {"あ", "い", "う", "え", "お"}
--set my_list to {true, true, false, false}
my list_Shuffle(my_list)

to list_Shuffle(my_list)
	repeat with i from 2 to length of my_list
		set rand_num to (random number from 1 to i)
		set temp_item to item i of my_list
		set item i of my_list to item rand_num of my_list
		set item rand_num of my_list to temp_item
	end repeat
	return my_list
end list_Shuffle