задачка

[ocehb]

"что-то типа футбольной жеребьевки, когда из списка предложенных команд, скрипт будет рандомом генерить пары..."

# perl -le '@a=sort{int(rand 3)-1}@ARGV; while (@a) { printf "%s :: %s\n",splice@a,0,2; }' 1 2 3 4 5 6 7 8 9 10
1 :: 7
2 :: 8
3 :: 4
5 :: 6
9 :: 10
#