((3,3,4) ::> N) .ro. .deal. */N // [$14]

More about ((3,3,4) ::> N) .ro. .deal. */N // [$14]

(3,3,4) ::> N // This is the shape of the cube;
.mul./N // Multiply reduce the shape of the cube, giving 36, the number of cells making up the cube;
.deal. 36 // Deal 36 mutually exclusive random integers in 1...36;
N .ro. (.......) // Reshape the vector of random numbers to fit the rubik cube ;
This was an example of the ::SHE+ILA:: programming language, based on an ad-hoc mashup of FORTRAN, LISP, FORTH, ALGOL68, and APL :) Coming to a Pentium/Apple ][/Atari 800XL/74LS181 near you, on a randomly-chosen Pink Tuesday :)