RosettaCodeData/Task/Amb/Mathematica/amb-3.math
2015-02-20 09:02:09 -05:00

1 line
91 B
Text

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