Find the missing permutation: Difference between revisions

Content added Content deleted

Inline

@@ Line 230: / Line 230: @@
 =={{header|J}}==
-<lang J>deficientPermsList=: }: ] ;. _1  LF, 0 : 0
+<lang J>permutations=: A.~ i.@!@#
+missingPerms =:-.~ permutations @ {.</lang>
+Or putting things together:
+<lang j>missingPerms =: -.~ (A.~ i.@!@#) @ {.</lang>
+Use:
+<pre>deficientPermsList=: }: ] ;. _1  LF, 0 : 0
 ABCD
 CABD
@@ Line 255: / Line 260: @@
 DCAB
 )
+   missingPerms deficientPermsList
-permutations=: A.~ i.@!@#
-missingPerms =:-.~ permutations @ {.</lang>
-Or putting things together:
-<lang j>missingPerms =: -.~ (A.~ i.@!@#) @ {.</lang>
-Use:
-<pre>   missingPerms deficientPermsList
 DBAC</pre>