Re: Set construction with condition

*To*: mathgroup at smc.vnet.net*Subject*: [mg61575] Re: Set construction with condition*From*: "Valeri Astanoff" <astanoff at yahoo.fr>*Date*: Sat, 22 Oct 2005 05:11:20 -0400 (EDT)*References*: <dj71qk$cmn$1@smc.vnet.net>*Sender*: owner-wri-mathgroup at wolfram.com

My solution : myStringJoin[a_,b_,c_,d_]/;Count[{a,b,c,d},"1"]>2:=Sequence[]; myStringJoin[a_,b_,c_,d_]:=StringJoin[a,b,c,d]; Flatten[Outer[myStringJoin, {"1","X","2"},{"1","X","2"},{"1","X","2"},{"1","X","2"}]] v.a.