RosettaCodeData/Task/Amb/Mathematica/amb-3.math
2023-07-01 13:44:08 -04:00

1 line
91 B
Text

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