[VA] My 2024's very first little teaser

[PeterP]

Here is another version thanks to J-F's hint, though it still needs 4 lines and is almost 200 bytes and is inelegant as it is ugly. There must be an elegant and more compact way to generate the permutations....

10 Option Base 1 @ Dim A(9), B(3,3), C(6), D(6) @ Mat B=ZER @ Mat D=CON @ Mat Input A

20 C(1)=FNA(1,5,9) @ C(2)=FNA(1,6,8) @ C(3)=FNA(2,4,9) @ C(4)=FNA(2,6,7) @ C(5)=FNA(3,5,7)

30 C(6)=FNA(3,4,8)

40 Disp DOT(C,D) @ Def FNA(X,Y,Z) @ B(1,1)=A(X) @ B(2,2)=A(Y) @ B(3,3)=A(Z) @ FNA=DET(B) @ END DEF