Summarize and say sequence: Difference between revisions
m
→{{header|Q}}
(Q solution) |
m (→{{header|Q}}) |
||
Line 3,167:
<lang Q>
ls:{raze(string 1_ deltas d,count x),'x d:where differ x} / look & say: ls"10" -> "1110"
sumsay:ls desc@ / summarize & say
us:distinct des:desc each seeds:string til 1000000 / unique seeds for integers to 1,000,000
Line 3,174 ⟶ 3,175:
/ report results
rpt["Seeds"]" "sv seeds where des in us top
rpt["Iterations"]string max
rpt["Sequence"]"\n\n","\n"sv distinct it first top
</lang>
Line 3,216 ⟶ 3,217:
* [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/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]
| |||