如何实现前置检验？

FreddyMusic

我想写一段代码，功能是生成满足条件的列表。

现有的代码是先生成一个列表，然后判断是否符合，如果不符合再生成一个列表，直达判断符合要求为止。

1. 
   
2. gameInitial [m_, n_] :=
   
3. Module[{random = Partition[RandomSample[numberRange [m, n]], n]},
   
4.   While[Signature[Flatten@random] =!= 1,
   
5.    random = Partition[RandomSample[numberRange [m, n]], n]];
   
6.   random]
   
7. 
   
8. gameInitial [4, 4]
   

复制代码

这样的代码太啰嗦。有没有漂亮的方法。

检测+ 生成, Patten 模式？

ggggwhw

重新写一遍