推 acecc:推! 亞紅分我一點P幣 02/19 01:16
→ HeroNoah:這一篇文章值 4 銀 ..... XDDDDDD 02/19 08:00
推 yenyu0304:捕推!!胖C這禮拜要開始作值日生了喔!!別忘!!XDD 02/24 00:36
推 benyt:亞鴻我也要P幣 冏 04/08 00:27
我先給大家一個順序
曾怡靜、陳彥壯、許文德、陳明宏、盧亞鴻
1 2 3 4 5
謝裕弘、周冠伶、黃于庭、吳岳霖、謝秉宏
6 7 8 9 10
鍾孟倫、洪采襄、傅馨儀、曾瑞霖、何旻儒
11 12 13 14 15
張怡婷、陳瑋菱、陳建斌、洪啟豪、楊雅琰
16 17 18 19 20
黃銘義
21
(這部分我把本來22號的秉秉去取代雅芳)
接著利用程式跑結果
set.seed(20090223)##因為我們下禮拜一開始工作所以用這個SEED
a <- replicate(17,sample(1:21,2))
while(any(table(a)>2) | (length(table(a))!=21))
a <- replicate(17, sample(1:21,2))
以下是結果
[,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10] [,11] [,12]
[1,] 20 4 9 15 21 13 17 11 5 2 20 17
[2,] 4 19 3 10 6 15 10 1 9 1 6 16
[,13] [,14] [,15] [,16] [,17]
[1,] 2 12 16 5 8
[2,] 7 8 12 18 14
這學期還剩下17個禮拜,這次經過彥彥哥的的指導
程式有修改,所以每個人都有當到
就這樣~
GOODBYE
有問題請找亞鴻....
賺一下P幣好了
在一行
多一行
應該是多一列才對....
再多一列
掰掰
##kerker 小襄要做兩次囉!!XD####
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.116.52.203