Solve the no connection puzzle: Difference between revisions

Content added Content deleted
(Added 11l)
Line 2,548: Line 2,548:
</pre >
</pre >


=={{header|Mathematica}}==
=={{header|Mathematica}}/{{header|Wolfram Language}}==
This one simply takes all permutations of the pegs and filters out invalid solutions.
This one simply takes all permutations of the pegs and filters out invalid solutions.
<lang Mathematica>sol = Fold[
<lang Mathematica>sol = Fold[