http://www.mapleprimes.com/maplesoftblog/128796-Car-Talk-Puzzler en-us 2026 Maplesoft, A Division of Waterloo Maple Inc. Maplesoft Document System Sun, 14 Jun 2026 02:37:24 GMT Sun, 14 Jun 2026 02:37:24 GMT The latest comments added to the Blog Entry, Car Talk Puzzler http://www.mapleprimes.com/images/mapleprimeswhite.jpg http://www.mapleprimes.com/maplesoftblog/128796-Car-Talk-Puzzler http://www.mapleprimes.com/maplesoftblog/128796-Car-Talk-Puzzler?ref=Feed:MaplePrimes:Car Talk Puzzler:Comments#comment128804 <p>Just for fun,</p> <pre>restart: with(StringTools): #T:=select(IsPalindrome,Generate(6,"0123456789")): # slower T:=[seq(cat(t,Reverse(t)), t in Generate(3,"0123456789"))]: T:=map(parse,T): T:=select(t-&gt;t&gt;=100000,T): # comment out, to allow leading zeros T:=sort(T): G:=infinity: for i from 2 to nops(T) do Y := abs(T[i]-T[i-1]); if G&gt;Y then G,P := Y,[T[i],T[i-1]]; end if; end do: G,P; 11, [200002, 199991] </pre> The latest comments added to the Blog Entry, Car Talk Puzzler 128804 Thu, 15 Dec 2011 02:53:29 Z pagan pagan