Skip to content
Permalink
Branch: master
Find file Copy path
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
19 lines (15 sloc) 472 Bytes
main ()
{
array Amts^3 <2 3 8>;
array Ams^3 <2 3 4>;
const array RAMY^3 <2 3 4>=<1 2 3 4 5 6 7 8 9 10 11 12 1 2 3 4 5 6 7 8 9 10
11 12>;
const array AMY^3 <2 3 4>=<9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9>;
const array Y^3 <2 3 4>=<8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8>;
const array V^1 <2>=<1 1>;
array A^1 <8>;
Ams=RAMY + AMY;
Amts=Y cat omega <1 1> (Ams + RAMY);
A=V psi Amts ;
Amts=<2> take (<2> drop (RAMY cat AMY));
}
You can’t perform that action at this time.