[Jprogramming] "Limited" Permutations

[Raul Miller]

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 <lindaalvord at 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-bounces at jsoftware.com
> [mailto:programming-bounces at 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 <purpleblues13 at 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