NB. group theory NB. written by Y.Nakano NB. 05/dec/2009 dwperm=: 3 : 0 : x0=. }:x j =. {: x NB. x simperm (jx, j { i. # y) tran y jx =. j{x0 i=.0 im=. # y while. i < im do. wr 'i= ', ":i iy=. i { y if. jx=iy do. goto_1.end. jxiy=. (jx, iy) jxiyt=. jxiy tran y wr ans=. x0 simperm jxiyt label_1. i=.i+1 end. ' ' ) alldwperm=: 3 : 0 : x0=. x jm =. # x0 j =. 0 NB. x simperm (jx, j { i. # y) tran y while. j < jm do. wr ' j = ', ": j jx =. j{x0 i=.0 im=. # y while. i < im do. wr 'i= ', ":i iy=. i { y if. jx=iy do. goto_1.end. wr jxiy=. (jx, iy) jxiyt=. jxiy tran y wr ans=. x0 simperm jxiyt label_1. i=.i+1 end. j=.j+1 end. ' ' )