RosettaCodeData/Task/Amb/Mathematica/amb-3.math

2 lines
91 B
Plaintext

CheckValid2[i_List] := StringFreeQ[StringJoin[Riffle[i, ","]], a_ ~~ "," ~~ b_ /; a =!= b]