hoze 님의 블로그에서 주어진 글자들을 조합하여 낱말 만들기라는 글을 읽었습니다. ( http://hoze.tistory.com/1693 )

예전에 이 비슷한 것을 본 기억이 나서 검색을 하였습니다. 이 글에 첨부되어 있는 tstmlt.pdf라는 문서였습니다. forloop 패키지에 대한 글이었는데요. forloop를 반복적으로 사용하면 할 수 있다는 것이었는데 expl3를 쓰지 않던 시절이었으니까요. 그것과 별도로 문서 자체는 제법 재미있습니다.

아무튼 이제 expl3가 있으니까 hoze 님 글에 소개된 재미있어 보이는 알고리즘을 어떻게 해볼 수 없을까 생각해보았습니다. 두 가지가 문제가 되었는데,

(1) 만약 문자열을 tl로 받아들인다면 (seq이나 clist라도 마찬가지입니다만) tl의 i번째 item과 j번째 item을 교환하는 명령을 정의해야 합니다.

(2) hoze님의 permute()는 자신을 재귀호출 한 이후에 교환했던 a[i]와 a[j]를 되돌려놓도록 하고 있습니다. 그런데 이것은 재귀호출 후의 코드라서 이 방식 그대로 expl3로 하는 것이 좋아 보이지 않았습니다. 재귀호출이 "마지막"에 오도록 하고 싶었기 때문이지요.

이를 피하기 위하여 원래의 tl에 대하여 item(i)와 item(j)가 교환된 결과를 별도의 사본 tl에 옮겨놓는 방식으로 해결하였습니다. 원래의 tl을 건드리지 않았기 때문에 되돌릴 필요가 없고 사본 tl은 교환이 이루어진 형태로 작성할 수 있기 때문입니다. 이 tl은 local로 사용되어서 재귀적으로 다시 할당되니까 원하는 결과가 나오리라고 예상했습니다.

좋은 공부가 되었습니다. 더 좋은 해결책을 가르쳐주시는 것을 환영합니다.

소스를 첨부하였습니다.

* SRC (zip): testpermute.zip