Find the missing permutation: Difference between revisions
Content added Content deleted
m (→{{header|J}}) |
m (J: do not take up so much screen space) |
||
Line 235: | Line 235: | ||
<lang j>missingPerms =: -.~ (A.~ i.@!@#) @ {.</lang> |
<lang j>missingPerms =: -.~ (A.~ i.@!@#) @ {.</lang> |
||
Use: |
Use: |
||
<pre>data=:>;: 'ABCD CABD ACDB DACB BCDA ACBD ADCB CDAB DABC BCAD CADB CDBA' |
|||
<pre>deficientPermsList=: ] ;. _2, 0 : 0 |
|||
data=:data,>;: 'CBAD ABDC ADBC BDCA DCBA BACD BADC BDAC CBDA DBCA DCAB' |
|||
ABCD |
|||
⚫ | |||
CABD |
|||
ACDB |
|||
DACB |
|||
BCDA |
|||
ACBD |
|||
ADCB |
|||
CDAB |
|||
DABC |
|||
BCAD |
|||
CADB |
|||
CDBA |
|||
CBAD |
|||
ABDC |
|||
ADBC |
|||
BDCA |
|||
DCBA |
|||
BACD |
|||
BADC |
|||
BDAC |
|||
CBDA |
|||
DBCA |
|||
DCAB |
|||
) |
|||
⚫ | |||
DBAC</pre> |
DBAC</pre> |
||