Все возможные перестановки слов в разных файлах попарно
Вы можете использовать теги сервера , чтобы выбрать сервер, на котором вы хотите присоединиться к каналу.
Команда / SERVER покажет вам серверы, к которым вы подключены:
16:42 -!- atw-inter: irc.atw-inter.net:6667 ()
16:42 -!- servercentral: servercentral.il.us.quakenet.org:6667 ()
В моем случае это теги atw-inter и servercentral .
Теперь, чтобы присоединиться к каналу на определенном сервере, используйте команду / JOIN со связанным тегом сервера. Итак, чтобы присоединиться к каналу #xyz на servercentral.il.us.quakenet.org:6667 , используйте:
/JOIN -servercentral #xyz
Команда / HELP дает больше информации о команды и параметры.
TXR Lisp:
Разминка: сначала получаем структуру данных:
$ txr -p '(comb (get-lines (open-files *args*)) 2)' file1 file2 file3
(("one" "two") ("one" "three") ("one" "four") ("one" "five") ("one" "six")
("two" "three") ("two" "four") ("two" "five") ("two" "six") ("three" "four")
("three" "five") ("three" "six") ("four" "five") ("four" "six")
("five" "six"))
Теперь осталось получить правильный формат вывода. Если мы соберем пары вместе и затем используем tprint (неявно через опцию -t), то мы на месте.
Сначала катенация через отображение через cat-str:
$ txr -p '[mapcar cat-str (comb (get-lines (open-files *args*)) 2)]' file1 file2 file3
("onetwo" "onethree" "onefour" "onefive" "onesix" "twothree" "twofour"
"twofive" "twosix" "threefour" "threefive" "threesix" "fourfive"
"foursix" "fivesix")
Хорошо, у нас есть нужные данные. Теперь просто используем функцию tprint (-t) вместо prinl (-p):
$ txr -t '[mapcar cat-str (comb (get-lines (open-files *args*)) 2)]' file1 file2 file3
onetwo
onethree
onefour
onefive
onesix
twothree
twofour
twofive
twosix
threefour
threefive
threesix
fourfive
foursix
fivesix
Наконец, читаем вопрос снова и делаем перестановки вместо комбинаций с perm, а не comb, как требуется:
$ txr -t '[mapcar cat-str (perm (get-lines (open-files *args*)) 2)]' file1 file2 file3
onetwo
onethree
onefour
onefive
onesix
twoone
twothree
twofour
twofive
twosix
threeone
threetwo
threefour
threefive
threesix
fourone
fourtwo
fourthree
fourfive
foursix
fiveone
fivetwo
fivethree
fivefour
fivesix
sixone
sixtwo
sixthree
sixfour
sixfive