Data commit

Task/Random-Latin-squares/REXX/random-latin-squares.rexx

@@ -0,0 +1,16 @@
+/*REXX program generates and displays a randomized Latin square.                        */
+parse arg N seed .                               /*obtain the optional argument from CL.*/
+if N=='' | N==","  then N= 5                     /*Not specified?  Then use the default.*/
+if datatype(seed, 'W')  then call random ,,seed  /*Seed numeric?   Then use it for seed.*/
+w= length(N - 1)                                 /*get the length of the largest number.*/
+$=                                               /*initialize  $  string to null.       */
+         do i=0  for N;    $= $ right(i, w, '_') /*build a string of numbers (from zero)*/
+         end   /*i*/                             /* [↑]  $ string is (so far)  in order.*/
+z=                                               /*Z:  will be the 1st row of the square*/
+         do N;             ?= random(1,words($)) /*gen a random number from the $ string*/
+         z= z word($, ?);  $= delword($, ?, 1)   /*add the number to string; del from $.*/
+         end   /*r*/
+zz= z||z                                         /*build a double-length string of  Z.  */
+         do j=1  for N                           /* [↓]  display rows of random Latin sq*/
+         say translate(subword(zz, j, N), , '_') /*translate leading underbar to blank. */
+         end   /*j*/                             /*stick a fork in it,  we're all done. */