Anonymous user
Talk:First perfect square in base n with n unique digits: Difference between revisions
Talk:First perfect square in base n with n unique digits (view source)
Revision as of 04:14, 7 June 2019
, 5 years ago→Minimum start for Pascal version: thanks
(pointed out correction for pascal version) |
m (→Minimum start for Pascal version: thanks) |
||
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 )
|