Golfscript - 13 bajtów, 1315 danych wyjściowych
991,{`.$2>>},
Powyższe wybiera liczby od 0-990, których pierwsza cyfra jest największą cyfrą liczby, tj. Ostatnia cyfra reprezentacji posortowanego łańcucha jest leksykograficznie mniejsza niż sam ciąg. Logika jest następująca:
W przypadku trzycyfrowej liczby abc , jeśli a nie jest największą cyfrą liczby, liczbę można pominąć, ponieważ zostanie ona później uwzględniona w jednym z dwóch przypadków:
b <c (np. 123 )
Ponieważ c jest największą cyfrą, numer kabiny nie zostanie pominięty. W tym przykładzie 312 nie zostanie pominięte, podobnie jak kolejna wartość 313 , która po konkatenacji ( 312 313 ) zawiera 123 .
b ≥ c (np. 132 )
Ponieważ b jest największą cyfrą, liczba bca nie zostanie pominięta. W tym przykładzie 321 nie zostanie pominięte, podobnie jak kolejna wartość 322 , która po konkatenacji ( 321 322 ) zawiera 132 . Jeśli b = c (np. 122 ), ten przypadek ma również zastosowanie. Wartość bca nie zostanie pominięta, jak poprzednio, a ponieważ a jest koniecznie mniejsza niż b , bc <a + 1> również nie zostanie pominięte. W tym przykładzie 221 222 zawiera 122 .
Ponieważ powyższy kod testuje trzecią cyfrę, a nie ostatnią, wszystkie wartości od 0 do 99 są uwzględnione w wyniku. Wartości od 1 do 99 można jednak pominąć, ponieważ jeśli występuje każda 3-cyfrowa sekwencja, wówczas każda 1-cyfrowa i 2-cyfrowa sekwencja musi być również obecna.
Wartości z 991-999 mogą być również pomijane, ponieważ są generowane przez ( 909 910 , 919 920 , ... 989 990 ).
Przy 1315 bajtach mocy wyjściowej jest to wygodnie poniżej specyfikacji problemu mniejszej niż 1500.
Wynik:
0123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101110111200201202210211212220221222300301302303310311312313320321322323330331332333400401402403404410411412413414420421422423424430431432433434440441442443444500501502503504505510511512513514515520521522523524525530531532533534535540541542543544545550551552553554555600601602603604605606610611612613614615616620621622623624625626630631632633634635636640641642643644645646650651652653654655656660661662663664665666700701702703704705706707710711712713714715716717720721722723724725726727730731732733734735736737740741742743744745746747750751752753754755756757760761762763764765766767770771772773774775776777800801802803804805806807808810811812813814815816817818820821822823824825826827828830831832833834835836837838840841842843844845846847848850851852853854855856857858860861862863864865866867868870871872873874875876877878880881882883884885886887888900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943944945946947948949950951952953954955956957958959960961962963964965966967968969970971972973974975976977978979980981982983984985986987988989990
Wariant nr 1
14 bajtów, wyjście 1233
991,{`.$-1>>},
Wybierając ściśle ostatnią cyfrę do porównania, a nie trzecią, eliminuje się wiele niepotrzebnych wartości mniejszych niż 100 , co skraca otrzymany ciąg.
101120212230313233404142434450515253545560616263646566707172737475767780818283848586878890919293949596979899100101110111200201202210211212220221222300301302303310311312313320321322323330331332333400401402403404410411412413414420421422423424430431432433434440441442443444500501502503504505510511512513514515520521522523524525530531532533534535540541542543544545550551552553554555600601602603604605606610611612613614615616620621622623624625626630631632633634635636640641642643644645646650651652653654655656660661662663664665666700701702703704705706707710711712713714715716717720721722723724725726727730731732733734735736737740741742743744745746747750751752753754755756757760761762763764765766767770771772773774775776777800801802803804805806807808810811812813814815816817818820821822823824825826827828830831832833834835836837838840841842843844845846847848850851852853854855856857858860861862863864865866867868870871872873874875876877878880881882883884885886887888900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943944945946947948949950951952953954955956957958959960961962963964965966967968969970971972973974975976977978979980981982983984985986987988989990
Wariant nr 2
16 bajtów, wyjście 1127
991,99>{`.$2>>},
Odrzucając wszystkie wartości mniejsze niż 99 , powstały ciąg można jeszcze bardziej skrócić.
99100101110111200201202210211212220221222300301302303310311312313320321322323330331332333400401402403404410411412413414420421422423424430431432433434440441442443444500501502503504505510511512513514515520521522523524525530531532533534535540541542543544545550551552553554555600601602603604605606610611612613614615616620621622623624625626630631632633634635636640641642643644645646650651652653654655656660661662663664665666700701702703704705706707710711712713714715716717720721722723724725726727730731732733734735736737740741742743744745746747750751752753754755756757760761762763764765766767770771772773774775776777800801802803804805806807808810811812813814815816817818820821822823824825826827828830831832833834835836837838840841842843844845846847848850851852853854855856857858860861862863864865866867868870871872873874875876877878880881882883884885886887888900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943944945946947948949950951952953954955956957958959960961962963964965966967968969970971972973974975976977978979980981982983984985986987988989990
Golfscript - 19 bajtów, wyjście 1016
910,99>{`.2$\?)>+}/
Powyższe liczy od 99 do 909 , dodając dowolną wartość, która jeszcze się nie pojawiła ( 909 normalnie byłaby ostatnią wartością dodaną w ten sposób). Przesunięcie 99 do przodu jest optymalizacją, aby uniknąć konieczności używania 910 z tyłu.
Wynik:
99100101102103104105106107108109111112113114115116117118119120122123124125126127128129130132133134135136137138139140142143144145146147148149150152153154155156157158159160162163164165166167168169170172173174175176177178179180182183184185186187188189190192193194195196197198199200202203204205206207208209222223224225226227228229230233234235236237238239240243244245246247248249250253254255256257258259260263264265266267268269270273274275276277278279280283284285286287288289290293294295296297298299300303304305306307308309333334335336337338339340344345346347348349350354355356357358359360364365366367368369370374375376377378379380384385386387388389390394395396397398399400404405406407408409444445446447448449450455456457458459460465466467468469470475476477478479480485486487488489490495496497498499500505506507508509555556557558559560566567568569570576577578579580586587588589590596597598599600606607608609666667668669670677678679680687688689690697698699700707708709777778779780788789790798799800808809888889890899900909
Golfscript 26 bajtów, wyjście 999
909.,99>{`..$.2><3$@?+>+}/
Zauważ, że ciąg znaków 1016 wytworzony przez poprzednie rozwiązanie jest prawie optymalny, z wyjątkiem dwóch dodatkowych cyfr dla każdej wielokrotności 111 (tj. 11111Zamiast 111, 22222zamiast 222, itp.). Rozwiązanie można zoptymalizować, usuwając te dodatkowe cyfry (wstawiając tylko jedną cyfrę dla każdej z tych wartości zamiast trzech) i obracając 909do przodu, eliminując a 9(różni się to od poprzednich wersji, które 9100zamiast tego przesunęły się do tyłu ).
Rozwinął i skomentował:
909.,99> # add 909 to the stack, and duplicate
# create an array from 0..908, and
# remove the first 99 elements (99..908)
{
`.. # stringify, duplicate twice
$.2>< # non-divisibility by 111 check
# true if the last char of the sorted
# string is greater than the first char
3$@? # first position of this number in
# the total string so far (-1 if not found)
+> # add the two previous results,
# and slice from that point
# (see explanation below)
+ # concat what remains to the total string
}/ # loop over the set
Logika wyboru, które znaki mają być dołączane, przebiega w trzech przypadkach:
- 111 ∤ n , n ⊄ s
Wartość z pierwszego sprawdzenia to 1 , a od drugiego -1 .
Wycinek rozpocznie się od indeksu 0 ; zwróci cały ciąg.
- 111 ∤ n , n ⊂ s
Wartość z pierwszego sprawdzenia wynosi 1 , a od drugiego coś ≥ 2 .
Plasterek zacznie się zaczynać od indeksu ≥ 3 ; zwróci pusty ciąg.
- 111 ∣ n , n ⊄ s
Wartość z pierwszego sprawdzenia to 0 , a od drugiego -1 .
Wycinek rozpocznie się od indeksu -1 ; zwróci tylko ostatnią postać.
Suma logiki jest taka, że każda wartość, która jeszcze się nie pojawiła, zostanie dodana w całości - chyba że jest wielokrotnością 111 , w którym to przypadku zostanie dodany tylko jeden znak. Wszystkie pozostałe wartości zostaną zignorowane.
Zauważ, że wyprodukowany ciąg znaków różni się od optymalnego wytworzonego przez odpowiedź Petera Taylora .
Historia:
899,{101+.111%{`.2$\?0<*}{3/9%}if+}/
899,{101+`.2$\?0<\.~111%2*)<*+}/0
899,{101+`.2$\?0<\..2>-!2*>*+}/0
899,{101+`...2>|,1|<2$@?0<*+}/0
999,{`..$.2>>2*>2$@?0<*+}/3>0
899,{101+`..$.2><3$@?+>+}/0
Wynik:
909910010110210310410510610710810911121131141151161171181191201221231241251261271281291301321331341351361371381391401421431441451461471481491501521531541551561571581591601621631641651661671681691701721731741751761771781791801821831841851861871881891901921931941951961971981992002022032042052062072082092223224225226227228229230233234235236237238239240243244245246247248249250253254255256257258259260263264265266267268269270273274275276277278279280283284285286287288289290293294295296297298299300303304305306307308309333433533633733833934034434534634734834935035435535635735835936036436536636736836937037437537637737837938038438538638738838939039439539639739839940040440540640740840944454464474484494504554564574584594604654664674684694704754764774784794804854864874884894904954964974984995005055065075085095556557558559560566567568569570576577578579580586587588589590596597598599600606607608609666766866967067767867968068768868969069769869970070770870977787797807887897907987998008088098889890899900