4 lines
298 B
Text
4 lines
298 B
Text
v=["ABCD","CABD","ACDB","DACB","BCDA","ACBD","ADCB","CDAB","DABC","BCAD","CADB","CDBA","CBAD","ABDC","ADBC","BDCA","DCBA","BACD","BADC","BDAC","CBDA","DBCA","DCAB"];
|
|
v=apply(u->permtonum(apply(n->n-64,Vec(Vecsmall(u)))),v);
|
|
t=numtoperm(4, binomial(4!,2)-sum(i=1,#v,v[i]));
|
|
Strchr(apply(n->n+64,t))
|