RE: Binary System Problem
- To: mathgroup at smc.vnet.net
- Subject: [mg18654] RE: [mg18621] Binary System Problem
- From: "Ersek, Ted R" <ErsekTR at navair.navy.mil>
- Date: Thu, 15 Jul 1999 01:45:45 -0400
- Sender: owner-wri-mathgroup at wolfram.com
Frieder Schweigert wrote:
--------------------------
does anybody know an algorithm or generating system for
those binary numbers with a fix amount of '1's,
for example (four times '1'):
1111
10111
11011
11101
11110
------------------
Try this,
BaseForm[FromDigits[#, 2], 2] & /@ Permutations[{1, 1, 1, 0, 0}]
Regards,
Ted Ersek