Summarize and say sequence: Difference between revisions
Content added Content deleted
(Q solution) |
m (→{{header|Q}}) |
||
Line 3,167: | Line 3,167: | ||
<lang Q> |
<lang Q> |
||
ls:{raze(string 1_ deltas d,count x),'x d:where differ x} / look & say: ls"10" -> "1110" |
ls:{raze(string 1_ deltas d,count x),'x d:where differ x} / look & say: ls"10" -> "1110" |
||
sumsay:ls desc@ / summarize & say |
sumsay:ls desc@ / summarize & say |
||
us:distinct des:desc each seeds:string til 1000000 / unique seeds for integers to 1,000,000 |
us:distinct des:desc each seeds:string til 1000000 / unique seeds for integers to 1,000,000 |
||
Line 3,174: | Line 3,175: | ||
/ report results |
/ report results |
||
rpt["Seeds"]" "sv seeds where des in us top |
rpt["Seeds"]" "sv seeds where des in us top / list all forms of top seed |
||
rpt["Iterations"]string max |
rpt["Iterations"]string max cl |
||
rpt["Sequence"]"\n\n","\n"sv distinct it first top |
rpt["Sequence"]"\n\n","\n"sv distinct it first top |
||
</lang> |
</lang> |
||
Line 3,216: | Line 3,217: | ||
* [https://code.kx.com/q/ref/ Q Reference Card] |
* [https://code.kx.com/q/ref/ Q Reference Card] |
||
* [https://code.kx.com/q/ref/distinct/ reference for] <code>distinct</code> |
* [https://code.kx.com/q/ref/distinct/ reference for] <code>distinct</code> |
||
* [https://code.kx.com/q/ref/maps/#each reference for Each] |
|||
* [https://code.kx.com/q/ref/accumulators/#do reference for Do] |
|||
* [https://code.kx.com/q/wp/iterators/ White paper on iterators] |
* [https://code.kx.com/q/wp/iterators/ White paper on iterators] |
||