November 2007 – Idfolles

Solution du solitaire à 45 alvéoles (45 peg-solitaire)

Pour résoudre le solitaire à 45 alvéoles j’utilise le langage prolog, et la distribution ciao-prolog. S = [deplacement(_,60,69,78),deplacement(_,67,68,69),deplacement(_,49,58,67), deplacement(_,76,67,58),deplacement(_,47,48,49),deplacement(_,29,38,47), deplacement(_,46,47,48),deplacement(_,49,48,47),deplacement(_,28,37,46), deplacement(_,46,47,48),deplacement(_,78,69,60),deplacement(_,51,60,69), deplacement(_,53,52,51),deplacement(_,35,44,53),deplacement(_,54,53,52), deplacement(_,36,45,54),deplacement(_,51,52,53),deplacement(_,33,42,51), deplacement(_,40,41,42),deplacement(_,54,53,52),deplacement(_,51,52,53), deplacement(_,42,43,44),deplacement(_,53,44,35),deplacement(_,22,31,40), deplacement(_,24,23,22),deplacement(_,6,15,24),deplacement(_,13,22,31), deplacement(_,31,30,29),deplacement(_,48,39,30),deplacement(_,29,30,31), deplacement(_,35,34,33),deplacement(_,4,5,6),deplacement(_,40,31,22), deplacement(_,24,33,42),deplacement(_,50,59,68),deplacement(_,77,68,59), deplacement(_,58,59,60),deplacement(_,69,60,51),deplacement(_,51,42,33), deplacement(_,33,32,31),deplacement(_,31,22,13),deplacement(_,13,14,15), deplacement(_,6,15,24)] % Solution of 45-peg solitaire 76 77 78 67 68 69 58 59 60 46 47 48 49 50 51 52 53 54 …