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