Nemo #6546(2008/06/21 21:09 GMT) [ PostScript ] Rating0/0=0.00
n 人中1人を抜き出し、更に残りから 1人を抜きだし、を繰り返しです。
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
%!PS /Kuji { % n m Kuji [numbers] [ 3 1 roll [ 1 1 5 -1 roll { } for dup 2 add -1 roll { counttomark dup rand exch mod roll counttomark 1 add 1 roll } repeat ] pop ] } bind def % ----- Test Code --------- 100 20 Kuji ==
Rating0/0=0.00-0+
[ reply ]
Nemo
#6546()
[
PostScript
]
Rating0/0=0.00
n 人中1人を抜き出し、更に残りから 1人を抜きだし、を繰り返しです。
%!PS /Kuji { % n m Kuji [numbers] [ 3 1 roll [ 1 1 5 -1 roll { } for dup 2 add -1 roll { counttomark dup rand exch mod roll counttomark 1 add 1 roll } repeat ] pop ] } bind def % ----- Test Code --------- 100 20 Kuji ==Rating0/0=0.00-0+
[ reply ]