Giả sử tôi chọn tất cả 3 từ char từ điển Mathematica: all3 = Characters /@ Select[DictionaryLookup[], StringLength[#] == 3 &];
và tôi muốn hình thành đầy đủ bộ gải giống như, như: A B E
R A Y
E R
Trước khi tôi viết một cái gì đó về vấn đề này, tôi cần phải cho bạn biết: Vấn đề này là bài tập về nhà của tôi (tôi đã có khoảng 1 tuần để trở lại chương trình làm việc) Tôi đã làm việc về vấn đề này