I think you mean "digits which are not 1 and are not alike"? The
problem required that 1s be repeated.
It's simple enough to restrict the non-one digits, as you have shown.
--
Raul
On Thu, Jun 21, 2012 at 11:16 PM, Linda Alvord <lindaalv...@verizon.net> wrote:
> Don't you have to remove the occurrences of two digits that are alike?
>
> $ALL
> 3645 10
> OTHER2=:((0{"1 OTHER)~:1{"1 OTHER)#OTHER
> ALL2=:,/MASK ([ + -.@[ #inv ])"1/ OTHER2
> $ALL2
> 3240 10
>
> That is how I interpreted the original problem.
>
> Linda
>
> -----Original Message-----
> From: programming-boun...@jsoftware.com
> [mailto:programming-boun...@jsoftware.com] On Behalf Of Raul Miller
> Sent: Thursday, June 21, 2012 11:02 AM
> To: Programming forum
> Subject: Re: [Jprogramming] "Limited" Permutations
>
> Here's one approach:
>
> OTHER=: >,{;~1 -.~i.10
> MASK=: (#~ 8=+/"1) #:i.2^10
>
> ,/MASK ([ + -.@[ #inv ])"1/ OTHER
>
> --
> Raul
>
> On Thu, Jun 21, 2012 at 10:51 AM, David Vaughan <purpleblue...@gmail.com>
> wrote:
>> Hi, I'm trying to generate all permutations of length 10 with eight 1s and
> two other digits (not 1s).
>> For example,
>> 1 1 1 1 3 1 4 1 1 1
>> 5 1 1 1 1 9 1 1 1 1
>> ...
>>
>> Could anyone point me in the right direction?
>>
>> Many thanks.
>> ----------------------------------------------------------------------
>> For information about J forums see http://www.jsoftware.com/forums.htm
> ----------------------------------------------------------------------
> For information about J forums see http://www.jsoftware.com/forums.htm
>
> ----------------------------------------------------------------------
> For information about J forums see http://www.jsoftware.com/forums.htm
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
