erlang Áбí½âÎö£¬±äλ´Ê½âÎö¹ý³Ì

perms("abc").

perms([]) ->[[]];

perms(L) -> [[H|T] || H<-L,T <-perms(L--[H])].

a,perms("bc").

b,perms("c").

c.perms("") "abc"

c,perms("b").

b,perms("") "acb"

b,perms("ac").

a,perms("c")

c,perms("") bac

c,perms("a")

a,perms("") "bca"

c,perms("ab"),

a,perms("b")

b,perms("") cab

b,perms("a")

a,perms("") "cba"

["abc","acb","bac","bca","cab","cba"]