Fifty Shades of J/Chapter 33

From J Wiki
Jump to: navigation, search

Table of Contents ... Glossary ... Previous Chapter ... Next Chapter

Perming and Combing

Principal Topics

No, not an accidentally misdirected submission to “The Hair Stylist”, but rather an extension of one of Gene McDonnell's token reduction examples (see Vector vol. 22 no.3) which involves generating systematic lists of permutations, where a permutation of order n is to be understood as a list of integers i.n in some order, for example 3 0 2 1 4 .

Permutation lists

A permutation list is a list of lists in which all of the !n possible permutations occur once and once only. The most interesting lists of this kind are those in which the ordering is in some way systematic, the most obvious being the lexical order which Gene discusses, and which is readily obtainable using A.(anagram index) as shown below. This ordering is also the result of Lehmer's algorithm, so Llist can be taken to denote either lexical or Lehmer.

   Llist=: i.@! A. i.           NB. Lehmer/lexical listing
   |:Llist 4
0 0 0 0 0 0 1 1 1 1 1 1 2 2 2 2 2 2 3 3 3 3 3 3
1 1 2 2 3 3 0 0 2 2 3 3 0 0 1 1 3 3 0 0 1 1 2 2
2 3 1 3 1 2 2 3 0 3 0 2 1 3 0 3 0 1 1 2 0 2 0 1
3 2 3 1 2 1 3 2 3 0 2 0 3 1 3 0 1 0 2 1 2 0 1 0

(Note : In many of the illustrations which follow, transposition appears as the leftmost verb in the J line for the purpose of compactness of display. In these cases individual permutations should thus be read as columns reading from top to bottom.)

Factorial Digit bases

Gene defines a factorial digit base (that is, number base in the J sense) as :

   fdb=.}:@(>:@i.@-)    NB. factorial digit base
   fdb 4
4 3 2

Each digit from 0 to n-1 has a unique representation in this base, as shown by :

   fact=.fdb#:i.@!
   |:fact 4         NB. 0 to 23 as factorial digits
0 0 0 0 0 0 1 1 1 1 1 1 2 2 2 2 2 2 3 3 3 3 3 3
0 0 1 1 2 2 0 0 1 1 2 2 0 0 1 1 2 2 0 0 1 1 2 2
0 1 0 1 0 1 0 1 0 1 0 1 0 1 0 1 0 1 0 1 0 1 0 1

A permutation can be transformed to corresponding factorial digits by taking its items from the left and, for all but the last, recording the number of smaller digits which appear to its right:

   nld=.+/@:({. > }.)               NB. number of lesser digits
   ptof 3 0 2 1
3 0 1
   |:ptof every <"1 Llist 4
0 0 0 0 0 0 1 1 1 1 1 1 2 2 2 2 2 2 3 3 3 3 3 3
0 0 1 1 2 2 0 0 1 1 2 2 0 0 1 1 2 2 0 0 1 1 2 2
0 1 0 1 0 1 0 1 0 1 0 1 0 1 0 1 0 1 0 1 0 1 0 1

The inverse of ptof is also obtainable recursively, this time by joining each factorial digit to the immediately prior permutation list, copying any lesser digits and adding one to the others. To those who know J, this is probably described more clearly in J than in English!

   incgte=.] + <:    NB. increment if gtr or eq, else copy
   |:ftop every <"1 fact 4
0 0 0 0 0 0 1 1 1 1 1 1 2 2 2 2 2 2 3 3 3 3 3 3
1 1 2 2 3 3 0 0 2 2 3 3 0 0 1 1 3 3 0 0 1 1 2 2
2 3 1 3 1 2 2 3 0 3 0 2 1 3 0 3 0 1 1 2 0 2 0 1
3 2 3 1 2 1 3 2 3 0 2 0 3 1 3 0 1 0 2 1 2 0 1 0

The above array demonstrates that ordering by factorial digits is equivalent to lexical ordering.

Factorial digits used with ftop resemble the left arguments of b. in as much as each digit in the appropriate range represents a function. For example, a factorial digit of integers descending to 1 such as 3 2 1 represents rotate (|.), a string of all 1s represents 1-shift, a string of 2s followed by a 0 represents 2-shift, a string of 3s followed by two 0s represents 3-shift, and so on.

Other systematic orderings of permutations

Another systematic ordering for permutation lists involves using a recursive method to generate what is known as the Tompkins-Paige ordering, first published in 1960 :

   TPlist=.monad : 0
if.y>1 do.
  r=.,/(i.y)|."1 every<(TPlist<:y),.<:y
else. r=.1 $0 end.
)
  |:TPlist 4
0 1 1 0 2 2 1 0 2 2 0 1 2 2 0 1 1 0 3 3 3 3 3 3
1 0 2 2 0 1 2 2 0 1 1 0 3 3 3 3 3 3 0 1 1 0 2 2
2 2 0 1 1 0 3 3 3 3 3 3 0 1 1 0 2 2 1 0 2 2 0 1
3 3 3 3 3 3 0 1 1 0 2 2 1 0 2 2 0 1 2 2 0 1 1 0

In the above array, focussing on how the 3s are blended with repetitions of the next lower order permutations list is the easiest way to see how the Tompkins-Paige ordering is formed. In time efficiency terms TPlist and Llist are broadly similar.

There are obvious ways in which orderings such as Llist and TPlist can be used to generate further systematic orderings, for example

   |:3 - TPlist 4
3 2 2 3 1 1 2 3 1 1 3 2 1 1 3 2 2 3 0 0 0 0 0 0
2 3 1 1 3 2 1 1 3 2 2 3 0 0 0 0 0 0 3 2 2 3 1 1
1 1 3 2 2 3 0 0 0 0 0 0 3 2 2 3 1 1 2 3 1 1 3 2
0 0 0 0 0 0 3 2 2 3 1 1 2 3 1 1 3 2 1 1 3 2 2 3

Another means of generating systematic orderings is to use TPlist n as an index to any one of its component permutations, for example :

   |:(TPlist 3){1 0 2
1 0 0 1 2 2
0 1 2 2 1 0
2 2 1 0 0 1

More generally, the component permutation can be randomised as in the following tacit verb train :

   rlist=.TPlist { ?@! { Llist   NB. list based on random perm
   |:rlist 4
2 3 3 2 0 0 3 2 0 0 2 3 0 0 2 3 3 2 1 1 1 1 1 1
3 2 0 0 2 3 0 0 2 3 3 2 1 1 1 1 1 1 2 3 3 2 0 0
0 0 2 3 3 2 1 1 1 1 1 1 2 3 3 2 0 0 3 2 0 0 2 3
1 1 1 1 1 1 2 3 3 2 0 0 3 2 0 0 2 3 0 0 2 3 3 2

Parity of permutations

A basic property of permutations is that of parity, which means the oddness or evenness of the number of switches required to bring the permutation back to i.n . This property is related to factorial digit representations in the following way :

   parity=.2&|@+/@ptof            NB. rem((sum of fact digs),2)
   parity every<"1 TPlist 3
0 1 0 1 0 1
   parity every<"1 TPlist 4
0 1 0 1 0 1 1 0 1 0 1 0 0 1 0 1 0 1 1 0 1 0 1 0

Parity can also be obtained by considering the cycle form of a permutation as given by C. which returns a list of boxed lists (cycles) whose lengths are given by #each C. :

   C.t=.6 4 2 7 1 3 0 5
┌─┬───┬───┬─────┐
│2│4 1│6 0│7 5 3│
└─┴───┴───┴─────┘

A cycle of even length has odd parity and a cycle of odd length has even parity so

   #every C.t       NB. cycle parities are E O O E
1 2 2 3

Parities combine according to the 'not-equals' rule, so in the above case the overall parity is

   par=.~:/@:-.@(2&|)@(#every@C.)    NB. by cycles
   par t
0

Minimising switches between adjacent permutations

For rlist 3, the permutation list parity pattern is either 0 1 0 1 0 1 or 1 0 1 0 1 0 which means that parity alternates between successive permutations. For rlist 4 the parity pattern is always one of

 0 1 0 1 0 1 1 0 1 0 1 0 0 1 0 1 0 1 1 0 1 0 1 0

or

 1 0 1 0 1 0 0 1 0 1 0 1 1 0 1 0 1 0 0 1 0 1 0 1

where in both cases, there are some consecutive permutations with the same parity. In programs which loop extensively through permutations computed in advance, the efficiency gained by minimising the changes between successive permutations can sometimes be worth considering. In 1963 S.M. Johnson of the RAND Corporation showed how to achieve such an ordering. A recursive technique is based on taking a single permutation at the next lower level, and creating n+1 further permutations by inserting n into all possible gaps starting either from the right or the left :

0 1 2 3        3 0 1 2
0 1 3 2        0 3 1 2
0 3 1 2        0 1 3 2
3 0 1 2        0 1 2 3

In array terms, the incoming value n is stitched to a skewed array of multiple copies of each of the next lower order permutations followed by a reverse skew which brings n onto the diagonal :

rskew=:i.@-@# |.&> <"1            NB. right skew
lskew=:i.@# |.&> <"1              NB. left skew
mcopy=:$~ (,~ >:)@#               NB. multiple copies
agr=:lskew@(rskew@mcopy@[ ,. ])   NB. start inserts from right
agl=:rskew@(lskew@mcopy@[ ,. ])   NB. start inserts from left

Now choose between right and left on the basis of parity :

   ag=.agr`agl@.(parity@[) NB. all gaps (right or left) 

and finally bring everything together in

   Jlist=:monad : 0
if.y~:2 do.
 r=.,/(<"1 Jlist <:y)ag every <:y
else. r=.0 1,:1 0 end.
)
   |:Jlist 4
0 0 0 3 3 0 0 0 2 2 2 3 3 2 2 2 1 1 1 3 3 1 1 1
1 1 3 0 0 3 2 2 0 0 3 2 2 3 1 1 2 2 3 1 1 3 0 0
2 3 1 1 2 2 3 1 1 3 0 0 1 1 3 0 0 3 2 2 0 0 3 2
3 2 2 2 1 1 1 3 3 1 1 1 0 0 0 3 3 0 0 0 2 2 2 3

This ordering not only involves just one switch between consecutive permutations, but additionally all such switches are between immediately neighbouring elements. However, the time to compute a Jlist is orders of magnitude greater than that required for a TPlist or an Llist , and so as, noted above, this method only pays off when there is a considerable amount of looping through pre-computed permutation lists.

Combinations and permutations of r from n

To find ordered permutations of the n!/(n-r)! permutations of r items from n, make every possible selection (that is combination) of r elements from i.n , and then transform each of these into a list of its !r possible permutations using any of the permutation list methods. Alternatively use the following :

   perms=.4 :'~.x{.&.|: Llist y'
   |:2 perms 5                       NB. permutations of 2 items from 5
0 0 0 0 1 1 1 1 2 2 2 2 3 3 3 3 4 4 4 4
1 2 3 4 0 2 3 4 0 1 3 4 0 1 2 4 0 1 2 3

Obtaining systematic combination lists is not quite as tidy a matter as finding permutation lists. One possible technique is to express i.n as binary numbers and select those whose digit sum is r :

   cnos=.i.@:(2&^)@]        NB. integers from 0 to 2^n -1
   bins=.#:@cnos            NB. binary nos from 0 to 2^n-1
   mark=.|.@((= +/"1@bins) # cnos) { bins  NB. marks for bins with dDigitsum = x
   combs=.mark #"1 i.@]     NB. transform to combns s
   |:2 combs 4
0 0 0 1 1 2
1 2 3 2 3 3

Starting with all combinations here is yet another way of obtaining a permutation list of r items from n :

   perm=.,/@(<@TPlist@[ {every<"1@combs)    NB. r from n
   |:2 perm 4
0 1 0 2 0 3 1 2 1 3 2 3
1 0 2 0 3 0 2 1 3 1 3 2

An alternative method of obtaining combinations of r from n

The following technique is another way of obtaining the defining binary array. mk is mark with its component binary number lists in a different order. The method is based on the fact that the combinations of r from n consist of all the combinations of r from n-1, together with n added to all the combinations of r-1 out of n-1. In binary number terms :

r mk n is (r mk (n-1) stitched with 0) joined to ( (r-1) mk (n-1) stitched with 1) .

For largish values the double recursion makes this method less appealing without adaptations which could obscure the fundamental principle. The double recursion also leads to the two stopping values embodied in the first two lines :

   mk=.dyad : 0
if. x=y do. r=.(1,y)$1 return. end.
if. x=1  do.r=.=i.y return. end.
r=.((x mk<:y),.0),((<:x)mk<:y),.1
)
   coms=.mk #"1 i.@]
   |:4 coms 6
0 0 0 0 1 0 0 0 1 0 0 1 0 1 2
1 1 1 2 2 1 1 2 2 1 2 2 3 3 3
2 2 3 3 3 2 3 3 3 4 4 4 4 4 4
3 4 4 4 4 5 5 5 5 5 5 5 5 5 5

… and finally a Bang !!

Anyone who has delved into such matters must know the phrase 'combinatorial explosion' which describes how soon space and time boundaries are exceeded for even quite modest values of the parameters. This article has outlined the basic arithmetic of permutations and combinations en masse for whose exposition J is particularly suitable. Skilful tinkering and use of parallel processing can extend these boundaries, usually at an understandable loss of some clarity – that's where programming ingenuity kicks in …

Code Summary

Llist=: i.@! A. i.                                  NB. Lehmer/lexical listing
fdb=: }:@(>:@i.@-)                                  NB. factorial digit base
fact=: fdb#:i.@!
ptof=: }.`(nld,ptof@}.)@.(1&<@#)                    NB. perm -> fact digits
nld=: +/@:({. > }.)                                 NB. number of lesser digits
ftop=: (, -.)`({. , {. incgte ftop@}.) @.(1&<@#)    NB. fact digits -> perm
incgte=: ] + <:                                     NB. increment if gtr or eq, else copy

TPlist=: monad : 0                                  NB. Tompkins-Paige ordering of perms
if.y>1 do.
  r=: ,/(i.y)|."1 every<(TPlist<:y),.<:y
else. r=: 1 $0 end.
)

rlist=: TPlist { ?@! { Llist                        NB. list based on random perm

combs=: mark #"1 i.@]                               NB. transform to combns s
mark=: |.@((= +/"1@bins) # cnos) { bins             NB. marks for bins with dDigitsum = x
bins=: #:@cnos                                      NB. binary nos from 0 to 2^n-1
cnos=: i.@:(2&^)@]                                  NB. integers from 0 to 2^n -1

parity=: 2&|@+/@ptof
par=: ~:/@:-.@(2&|)@(#every@C.)                     NB. by cycles

Jlist=: monad : 0                                   NB. Johnson ordering (minimizes switches)
if.y~:2 do.
  r=: ,/(<"1 Jlist <:y)ag every <:y
else. r=: 0 1,:1 0 end.
)

agr=: lskew@(rskew@mcopy@[ ,. ])                    NB. inserts from right
agl=: rskew@(lskew@mcopy@[ ,. ])                    NB. inserts from left
rskew=: i.@-@# |.&> <"1                             NB. right skew
lskew=: i.@# |.&> <"1                               NB. left skew
mcopy=: $~ (,~ >:)@#                                NB. multiple copies
perms=: 4 :'~.x{.&.|: Llist y'                      NB. permuttions of r from n
coms=: mk #"1 i.@]                                  NB. combinations of r from n

mk=: dyad : 0
if. x=y do. r=: (1,y)$1 return. end.
if. x=1 do.r=: =i.y return. end.
r=: ((x mk<:y),.0),((<:x)mk<:y),.1
)

Script

File:Fsojc33.ijs