Timeline for Generate unseen numbers
Current License: CC BY-SA 3.0
7 events
| when toggle format | what | by | license | comment | |
|---|---|---|---|---|---|
| Aug 16, 2017 at 23:59 | history | edited | ZaMoC | CC BY-SA 3.0 | deleted 5 characters in body |
| Aug 16, 2017 at 23:54 | comment | added | user61980 | 3 more bytes by using Most: s={};Do[!SubsetQ[s,Most[t=Subsequences@IntegerDigits[i,2]]]&&(s=s~Join~t;Echo@i),{i,2,∞}] | |
| Aug 16, 2017 at 23:48 | history | edited | ZaMoC | CC BY-SA 3.0 | deleted 221 characters in body |
| Aug 16, 2017 at 23:32 | comment | added | user61980 | Good idea to keep track of the substrings that have appeared so far! I spy at least15 bytes that can go: SubsetQ is shorter than and equivalent to ContainsAll, you can use And instead of If, the Union is unnecessary, and Do is almost always shorter than For: s={};Do[!SubsetQ[s,(t=Subsequences@IntegerDigits[i,2])[[2;;-2]]]&&(s=s~Join~t;Echo@i),{i,∞}] | |
| Aug 16, 2017 at 22:28 | history | edited | ZaMoC | CC BY-SA 3.0 | added 243 characters in body |
| Aug 16, 2017 at 22:19 | history | edited | ZaMoC | CC BY-SA 3.0 | added 243 characters in body |
| Aug 16, 2017 at 22:00 | history | answered | ZaMoC | CC BY-SA 3.0 |