Talk:First perfect square in base n with n unique digits: Difference between revisions

m
(pointed out correction for pascal version)
Line 395:
<pre>423F82GA9 101246A89CGFB357ED</pre> rather than <pre>4261CBG65 102369EB54FD9G7CA8
</pre>Looking into the code, it seems that although it correctly identifies which bases need an extra digit, the current Pascal code always adds a zero to the end. That is, it multiplies the minimum start value by the base. What other implementations do is to identify what digit should be added, and the location in the minimum start value where that digit should be added. I've made a [https://tio.run/##3Vl7b9tGEv@fn2KQK2DSoR6UXLeVYgO2Zbe6JlIuVuPeBYFBkStpbYqUuUu7TpGvXnf2RXIl2XHuUKA4wbbI3ZnZef52dp1Nr0jEG6uQRWHSmK2ih4dVns3zcAn4LeaCvtNqndE0Br4gwJZhkhDGIS2WU5JDCjyDacgITH1gGdKEOLebAk2jpIgJA6RHATGdU84gm2liCK9DWIWpHA8T5/dvhmeD0zM4e3vy2QH4/Zs348EpDE5fv/1pqAbGK06Xy08hp1kK49FnZDkdDYZnn52CEYYk7J4VnCbMx@f5ctVvtYRuaFZUJCFH1XmYc7gNkwLJnShLGUfKaBHm54RDD8I8D@8/tJvN/c5HoaiYgYOddtDp7n27/933Pxwdn6CKP/40/OfPr9@Mxm//9e588sv7i1///Z9wGsVkNl/Qq@tkmWarm5zx4vbut/tPO33H4fcrgivxUbHk2bEw/wByEmV5jKNrn5RPL@O5rU63sScVmt5z0t/OEqXc3z6D7gaUdoGrbfCSVI7xwZy/yzJ@fpM/oRnEObt8TdlX6SaZtApPkZxnyTNITlLee4pkREjMxil5k@VkIBILJWZZQsJ0k0Pa7tyGOebR0evhjyPodkSiYZCEJ9lN3jkWDzFJeKgH5bPQswplf41duFI6UlBVfl0nm7T9SdCDyQATc0KXKMbBcotIXOQExoWQ78oMFXXWq5bz@lJlAIryR1gLt2SY8r5zTOY0xeE7yheCBeIM38wowFmWC5YD6LYbOl8aARLdpVgibUUtPnc55cTdgR2vb/N9mUkX0gedwR/ox49SiE6yumTl@1mRRrKY50R66nGjezVLt5o//YL5OWFFwoUd7TW72gIjkKNZN1DbhRDmKk6/Mko7ppKonxCvXF1vjaAyXJlaxfYE4ahKC1eAYWXds6JbZpjUc1ra2GopOEU0BY2qkOMy4DJ0CKIw2BjswTKLQWqACjv1YkWrpjK3pRdmMI5jV7HgFpA6dtlqYpR@Cx05RxJGNonQ83JQEuP7sVy4r3UXMA13CxotQMCfVFzuNzdFiG5DncWb3nTuKFozRZxaki3RVBZVYTS4hcETNC7dpZ4IV83GVouRMI8WBU3nwmCWJYVITccGn0cTaH3J4cxa9aD0Q81/Kr8q4Z5RBddP0fpZVqg9N4UNXHMeRTyhUk1hrW@VilUmYqXdXhb0En1aT8NfKGZcQXvie3@vj/koIPErIMj2zILOF27F3NSF5BlfjXTpqeIqHWwXcpXkZkezMlSXbi066MKCglShcvjpr8OJnq6R5mRFQu5Yu6/WBEW8wRKpFgIxpCYGw/fWhIgl1SEsUmxDtAIbGtKn4tEZbQnGZgjkEOstV58u@d8vHM/0rtQeQePyBrPQZT7zpyq7HnOoYIiWK0UNbW/DvZverbn3XHR/70Xzd5KjSsRys8JeRCE5JaEmye5Em1u1qAZ8XgRt0RA2m02FYPACGWWbKZoGDi8DQB4ZToKvKaTkDos5X4a8qUPFbi@RVLYZtz3lCKH3dQ901Tll@LbsF54EUsFFU8pddiu9VHsXwm2iS0bwl@o5X@E/NshoywskG54pVD6EjimYau@8FsHqbAmnEL4sEhkPLdeWbyI5A/cag9XxpGOkDfgafKfezX7W3I5nFmI@d0lBF8bxNrprK8OurQy7Plzb@J6vG9UHm1eHaJhC7ecoq7JUKSyyBykNVRnV0hAff4JyGEXX5PoyDRy59ShF9rtGv6peLYzxRVers2d9SrW/NUXqikbYUefumpZm0NssvWEaoeBjOncFbqE5QR3LUr3VVEAmoMCP8Ixxvx3SpiIjhZimxp@@U0cdzWmga0ETbBwwt9vrXSGz5Chkeim5XyKD7BC0b4zEcR677PBgqn0mBbAGuA1FcTRCFj23JldSarSS/bTsl7T8CuuMm5XWSuqrr1L9r9B4Uz9EjJJcbGyv0P9lNVgzCpS3p8TWfJCKWT0xdrY5yclNQRmeIZhxi8zzes78V9nyt/b0/@7ooziuO9rHPx27mWu1xAS8Ula@FASbLheuZiA6cdmUh0siJAWHB4LcBbG@55exkBZ/ZUTsqrW7FrHI@gFt@nSESpa/NmKmHqjWoVRzPbVwv/t/q@EJ9kePHWDlTYk8MZUtjUiMK18wqeu2bedbeUcgRXalqpO2xMrsTrxs7eAkmbmjkcTFUgzpvC9vb8yDpNfoU04GlRR9ygt07alm5bALnnSzazUE@ox1KHrRjbZJ35nOaF5dlqrzbRTKKw9VSfWDpuyyMXA5Z@Z4L4dlGpXnyfptCcr1PgrYktMorOKqNJEHUmVxWhqrPtpLare3XGSxlY7qlHMmiWy3uaol9uTxaIuvzBH3ahc1qbjt0NWqvyOqv1ygtG09uGmp9JNhh1onYlOg9F3zUEff9TOy39ndoFcSvPodFxcnB4Lt/z3s@Jbcat@ptdJ47sCzPoeCkVhf0sjxslasW4crWdQiYs2nLuVqzOZx/A7cANgiqbELnLgyl1oCIzSxcdiZYZHFdmBEWW358bvTo59NaFPyGze3NirtnS9l2tageTZs4RFLqUNVIYLSqrMHDQi88qhvYkD9fwQKQlRnPwsT1dZXGSBqgdpRnwQ1uLkQgpLUdSdBg7fB2/1@f6/d7v3Q6/o7wNQFqb6pNaboV2lklRBJarBTYePEuvc1F2LplttMrcGOpNi43DcPytlu6kEVecwKpeGkZpHIHnP7Jiur863JlxLL62q7LjI2JsbyoK1MJ1gVsXaA@bfNxXA0GF@cf0ZgjtHe8l8zaHfz4eGPaJaEc/bQGHf/BA Try It Online! link ] with a kludgy fix. It is hard-coded to stop at base 25, as one only gets 60 seconds to execute there.--[[User:Enter your username|Enter your username]] ([[User talk:Enter your username|talk]]) 20:06, 6 June 2019 (UTC)
:thanks for the "fix"
<lang pascal> if DgtRtSqr.drs_NeedsOneMoreDigit then
if base <> 17 then mpz_mul_ui(sv_sqr, sv_sqr, base);</lang>
:I try to update the procedure StartValueCreate.
:I first had to change the TestSet .Even 64 bit-freepascal 1 shl x is done in 32 Bit, so i got no solution running 1e12 Tests for base=32 upwards.Nggggrrrrrr ( Rumpelstiltskin , i have to put me togehther )
Anonymous user