Sözlüksel olarak artan tüm sayıları 10000'ün altında yazdır

32

Sözlüksel olarak artan sayı, rakamları kesin olarak artan sırada olan bir tam sayıdır. Sözlüksel olarak artan tüm sayıları 10000'ün altında yazdır.

Beklenen çıktının satırları:

0
1
2
3
4
5
6
7
8
9
12
13
14
15
16
17
18
19
23
24
25
26
27
28
29
34
35
36
37
38
39
45
46
47
48
49
56
57
58
59
67
68
69
78
79
89
123
124
125
126
127
128
129
134
135
136
137
138
139
145
146
147
148
149
156
157
158
159
167
168
169
178
179
189
234
235
236
237
238
239
245
246
247
248
249
256
257
258
259
267
268
269
278
279
289
345
346
347
348
349
356
357
358
359
367
368
369
378
379
389
456
457
458
459
467
468
469
478
479
489
567
568
569
578
579
589
678
679
689
789
1234
1235
1236
1237
1238
1239
1245
1246
1247
1248
1249
1256
1257
1258
1259
1267
1268
1269
1278
1279
1289
1345
1346
1347
1348
1349
1356
1357
1358
1359
1367
1368
1369
1378
1379
1389
1456
1457
1458
1459
1467
1468
1469
1478
1479
1489
1567
1568
1569
1578
1579
1589
1678
1679
1689
1789
2345
2346
2347
2348
2349
2356
2357
2358
2359
2367
2368
2369
2378
2379
2389
2456
2457
2458
2459
2467
2468
2469
2478
2479
2489
2567
2568
2569
2578
2579
2589
2678
2679
2689
2789
3456
3457
3458
3459
3467
3468
3469
3478
3479
3489
3567
3568
3569
3578
3579
3589
3678
3679
3689
3789
4567
4568
4569
4578
4579
4589
4678
4679
4689
4789
5678
5679
5689
5789
6789

Bu bir kod golf mücadelesi! En kısa cevap kazanır!

(PS bir python çözümü arıyor)

code-golf  number  sequence  kolmogorov-complexity 
— Varun Patro
kaynak
3
bunları ayrı satırlara mı yazdırmamız gerekiyor yoksa boşlukla mı ayrılmış?
— Giuseppe
3
PPCG'ye Hoşgeldiniz! Güzel ilk meydan okuma. Gelecekteki zorluklar için, bir zorlamayı düzeltmek ve ana sayfaya göndermeden önce anlamlı geri bildirim almak için Sandbox'ı kullanmanızı önerebilirim .
— AdmBorkBork,
4
@ Giuseppe'nin sorusunu genişletmek için virgülle, boşluklarla, dizi biçiminde [0,1,...]vb. Ayırarak çıktı alabilir miyiz , yoksa her sayıyı ayrı bir satırda mı göstermeliyiz?
— ETHProductions,
10
Sayıların belirli bir sırada mı olması gerekiyor, yoksa hepsinin varlığına mı ihtiyaç duyuyor?
— Kamil Drakari
14
@VarunPatro, lütfen her bir numaranın ayrı bir satırda (bu gereksinime göre tavsiye etmeme rağmen) açıkça belirtilmesi zorluğunu güncelleyin ve mevcut olmayan çözümleri bildirdiğinizden emin olun.
— Shaggy,

Yanıtlar:

30

Python 2 , 56 bayt

for n in range(9999):
 if eval('<'.join(`n`))**n:print n

Çevrimiçi deneyin!

Her sayıyı 124bir ifadeye dönüştürür 1<2<4ve rakamların sıralanıp sıralanmadığını kontrol etmek için değerlendirir,

Tek basamaklı sayılar için, yalnızca sayının kendisi olan bir ifade veren bir hıçkırık oluşur. Bu, 0yazdırılması gerekse bile bir Falsey değerini değerlendirmeye neden olur . Bu, Outgolfer Erik'in önerdiği bir hile ile çözülür **n, bunun 0**0için gerçeğe uygun değer verir n=0ve doğruluk değerini etkilemez.

— XNOR
kaynak
Ne `işe yarıyor `n`?
— BruceWayne
1
@BruceWayne Dize gösterimini alır. Bu Python 3'te kaldırıldı.
— xnor
5
@BruceWayne repr()Fonksiyonun değil fonksiyonun aynı olduğuna dikkat edin str(). Onlar her zaman aynı değildir. İşte bir örnek.
— mbomb007
1
@ mbomb007 bu yorum için teşekkürler! str()Eşdeğer olduğunu düşünürdüm .
— BruceWayne
2
0 olayı biraz hile ile halledebiliriz .
— xsot
11

Haskell , 50 bayt

unlines[s|s<-show<$>[0..6^5],s==scanl1(max.succ)s]

Çevrimiçi deneyin!

Çok satırlı bir dizge çıktılar. Biz numara olmadığını kontrol skullanarak artan s==scanl1(max.succ)s, her zamanki sortedness çek bir varyantını s==scanl1 max sbunun maksimum ve sonraki basamağı almadan önce her basamak karakteri artırarak sıkı sortedness sağlamaktadır.

Ourous 6^5, 4 basamaklı bir sayı yerine üst sınır olarak kullanarak bir bayt kurtardı .

— XNOR
kaynak
8

Jöle , 7 bayt

9ŒPḌḣ⁹Y

Çevrimiçi deneyin!

Nasıl çalışır

9ŒPḌḣ⁹Y  Main link. No arguments.

9        Set the return value to 9.
 ŒP      Powerset; promote 9 to [1, ..., 9] and generate all subsets.
   Ḍ     Undecimal; map the subsets of digits to the integers they represent.
     ⁹   Yield 256.
    ḣ    Dyadic head; take the first 256 elements of the integer list.
      Y  Separate the result by linefeeds.
— Dennis
kaynak
2
Buraya nasıl 0girileceğini anlamaya çalışıyorum ama Jelly'i tanımıyorum. Jelly’in güç ünitesinin, 0“daha ​​az” olduğunda değiştirilen boş diziyi içermesi doğru mudur?
— Shaggy
1
Evet, aynen böyle olur.
— Dennis,
8

Japt -R, 12 11 8 bayt

L²Ç¶ìüÃð

Dene

L            :100
 ²           :Squared
  Ç          :Map the range [0,L²)
    ì        :  Split to a digit array
     ü       :  For the sake of simplicity*, let's say: Sort & deduplicate
             :  Implicitly rejoin to an integer
   ¶         :  Test for equality with original number
      Ã      :End map
       ð     :Get 0-based indices of truthy elements
             :Implicitly join with newlines and output

* Veya, daha iyi bir açıklama sunmak için: üyöntem bir diziyi sıralar ve eşit öğelere ayırır (örn. [8,4,8,4].ü() -> [[4,4],[8,8]]) Ve sonra garip bir tuhaflık gibi görünen ve umarım bir hata değil ì, diziyi geri dönüştürürken yöntem bir sayı, ilk önce diziyi düzleştirmek yerine her iç içe dizinin ilk öğesini alır; bu numarayı denediğimde beklediğim gibi [[4,4],[8,8]].ì() -> 48.

— kaba tüylü
kaynak
1
Güzel. Sahip olduklarımla benzer:L²Ç¥ì ü ¬Ãð
— Oliver
2
üSöylemeliyim ki, kullandığınız numara dahi ... :-) @Oliver
— ETHproductions
1
@Oliver, güncellemekte olduğum gibi haberi yayınlamış olmalısınız; harika beyinler ... :)
— Shaggy
@ETProductions, çoğu şey gibi, işe yaramaz bir hevesle denedim.
— Shaggy,
6

R , 62 49 bayt

`[`=write;0[1];for(i in 1:4)combn(1:9,i)[1,i,,""]

Çevrimiçi deneyin!

Çünkü combnverilen sırayla onun girişi üzerinden dolaşır, bu sırada bunların baskısının, tüm sözlük sırasında artan tamsayılar oluşturmak kolaydır. writeher isatır numaralarını geniş satırlarda yazdırır ive yeni satır gereksinimini de tam olarak karşılar.

— Giuseppe
kaynak
müthiş bir fikir combn!
— digEmAll
Son derece akıllı takma ad!
— J.Doe
6

Perl 6 , 25 bayt

[<](.comb)&&.say for ^1e4

Nwellnhof sayesinde -1 bayt

Çevrimiçi deneyin!

.combher sayının basamağının bir listesini oluşturur ve [<]bu listede aşağıdakinden daha az bir azalma yapar, eşdeğer: digit1 < digit2 <... < digitN .

— Sean
kaynak
2
[<](.comb)&&.saybir bayt kaydeder.
— nwellnhof
Bu şaşırtıcı bir şekilde okunabilir. (Ben zaten biraz Perl 6 biliyorum, ama yine de ...)
— JL
5

PowerShell , 42 40 bayt

0..1e4|?{-join("$_"|% t*y|sort -u)-eq$_}

Çevrimiçi deneyin!

Loop 0için 1e4(diğer bir deyişle, 10000). |?{...}Bir dizge $_olarak -eqsayının toCharArra ile aynı sayıya eşit olduğu yve ardından nique bayrağı sortile -uişaretlenmiş olan nesneleri çıkarın . Başka bir deyişle, yalnızca sıralanmış ve tekilleştirilmiş dizelerle aynı sayılar. Bunların her biri boru hattında bırakılır ve çıktılar örtüktür.

— AdmBorkBork
kaynak
4

Pyth , 10 bayt

jiRThc2yS9

Çevrimiçi deneyin!

Nasıl çalışır

jiRThc2yS9
        S9  Yield [1, 2, 3, 4, 5, 6, 7, 8, 9].
       y    Take all 512 subsets.
     c2     Split the array of subsets into 2 pieces (256 subsets each).
    h       Head; take the first piece.
 iRT        Convert each subset from base 10 to integer.
j           Separate by newlines.
— Dennis
kaynak
3

J, 26 bayt

,.(#~(-:/:~@~.)@":"0)i.1e4

Çevrimiçi deneyin!

açıklama

,. (#~ (-: /:~@~.)@":"0) i.1e4
                         i.1e4  NB. list 0 to 9999
                     "0         NB. for each number in the input list
                  @":"0         NB. convert it to a string and
   (#~ (         )              NB. remove any not passing this test:
        -:                      NB. the string of digits matches
              @~.               NB. the nub of the digits (dups removed)
           /:~                  NB. sorted
,.                              NB. ravel items: take the result of all that
                                NB. and turn it into a big column
— Jonah
kaynak
3

05AB1E (eski) , 8 bayt

4°ÝD€êû

Çevrimiçi deneyin!

05AB1E'nin yeni sürümünde de çalışıyor ancak bazı nedenlerden dolayı acı verici bir şekilde yavaşlıyor.

Nasıl?

4 ° €D € êà »- Tam program.
4 ° Ý - [0 ... 10000] düğmesine basın.
   - Her bir tam sayıyı [0 ... 10000] sıralı ve aynı anda tekilleştirilmiş olarak itin.
      Ã »- Ve iki listenin birleştirilmesine yeni satırlarla katılın.
— Bay Xcoder
kaynak
Güzel cevap Sahip olduğum 9 bayttan daha iyi (ki bu sadece eskilerde çalışır).
— Kevin Cruijssen
2

Python 2, 64 61 bytes

lambda:[x for x in range(9999)if sorted(set(`x`))==list(`x`)]

Try it online!

Gets the unique characters of the integer's string representation, sorts them, and compares the result to the original number.

— Triggernometry
kaynak
Bir bayt kullanarak range(9999)veya 6790 ile 9999 arasındaki herhangi bir sayıyı kullanarak tasarruf edebilirsiniz . Çözümlerimiz neredeyse aynı
— BTW'dir
@DJMcMayhem Ama o zaman 10.000'in altındaki TÜM numaraları kontrol etmedi ....: P Teşekkürler! Bazen bu zorluklarla ilgili çok fazla anlam kazanıyorum.
— Triggernometry, 16:18
2

V , 41 bayt

7000ïÎaÛ
Îy$úúP
Ç^¨ä*©±$/d
ÎãlD
爱/d
HO0

Çevrimiçi deneyin!

HexDump:

00000000: 3730 3030 efce 61db 0ace 7924 fafa 500a  7000..a...y$..P.
00000010: c75e a8e4 2aa9 b124 2f64 0ace e36c 440a  .^..*..$/d...lD.
00000020: e788 b12f 640a 484f 30                   .../d.HO0
— DJMcMayhem
kaynak
2

Kömür , 19 bayt

ΦＥＸχ⁴Ｉι¬Φι∧쬋§ι⊖μλ

Çevrimiçi deneyin! Bağlantı, kodun ayrıntılı bir versiyonudur. Açıklama:

   χ                Predefined variable 10
  Ｘ                 To the power
    ⁴               Literal 4
 Ｅ                  Map over implicit range
      ι             Current value
     Ｉ              Cast to string
Φ                   Filter over strings where
         ι          Current string
        Φ           Filtered over characters
           μ        Character index (is nonzero)
          ∧         And
                 μ  Character index
                ⊖   Decremented
              §     Indexed into
               ι    Current string
            ¬       Is not
             ‹      Less than
                  λ Current character
       ¬            Results in an empty string
                    Implicitly print matches on separate lines
— Neil
kaynak
2

Jelly , 13 9 8 bayt

@Dennis sayesinde 5 bayt kaydedildi

9œcⱮ4ẎŻY

Çevrimiçi deneyin!

açıklama

Rakamları [1 ... 9] alarak ve uzunluktaki tüm kombinasyonları ≤ 4 bularak, sözlüksel olarak artan tüm sayıları 10000'ün altında oluşturur.

9œcⱮ4ẎŻY    Main link. Arguments: none
9           Yield 9.
   Ɱ4       For each n in [1...4]:
 œc           Yield the combinations of the range [1...9] of length n.
     Ẏ      Tighten; dump each of the 4 lists generated into the main list.
      Ż     Prepend a 0 to the list.
       Y    Join on newlines.

Jöle , 11 10 9 bayt

@EriktheOutgolfer sayesinde bir bayt kaydedildi

ȷ4Ḷ<ƝẠ$ƇY

Çevrimiçi deneyin!

açıklama

Sözlüksel olarak artan sayıları koruyarak aralık boyunca filtreler.

ȷ4Ḷ<ƝẠ$ƇY    Main link. Arguments: none
ȷ4           Yield 10^4 (10000).
  Ḷ          Generate the range [0...10000).
       Ƈ     Filter; yield only the numbers where this link return a truthy value.
      $        Run these two links and yield the result.
    Ɲ            For each pair of items (digits) in the number:
   <               Check whether the left digit is less than the right digit.
     Ạ           All; check that every comparison yielded true.
               This yields whether the digits are strictly increasing.
        Y    Join the filtered list on newlines.
— ETHproductions
kaynak
2

C # (Visual C # Etkileşimli Derleyici) , 102 101 ... 73 bayt

-12 ve -4 teşekkürler @Dennis!

for(var i=0;i<7e3;i++)if((i+"").Aggregate((a,b)=>a<b?b:':')<':')Print(i);

Çevrimiçi deneyin!

Her bir 0 - 7k arasındaki tamsayılar önce bir dizgeye dönüştürülerek test edilir. C # 'nin karakter karakterleri ve LINQ karakter dizileri gibi davranması gerçeğinden hareketle, her karakter için bir karakter dizisi aşağıdaki gibi hesaplanır:

  • birikmiş değeri mevcut karakterle karşılaştır
  • geçerli karakter birikimden büyükse, geçerli karakteri döndür
  • Aksi halde :, daha büyük olan9

If the result of this is less than :, then the number has lexicographically increasing digits.

— dana
kaynak
Doesn't the challenge state that all numbers from 0-10000 must be printed? I'm pretty sure this prints numbers 0-7000
— Embodiment of Ignorance
I believe the largest valid number is 6789? This is less than 7000, so you don't have to go any higher.
— dana
Oh, I see. Foolish me
— Embodiment of Ignorance
Not foolish at all :) I'm pretty sure I borrowed it from someone else's answer and I was scratching my head as to why they did it.
— dana
2

Wolfram Language (Mathematica), 36 bytes

After I wrote this, it was clarified that each number must be on a new line, so +7 bytes for the Print/@.

This method takes advantage of the fact that the Subsets function 1) doesn't replicate any digits and 2) sorts the output by set size and set contents. FromDigits assembles each list of digits.

-1 byte thanks to @Mr.Xcoder

Print/@FromDigits/@Range@9~Subsets~4

Try it online!

— Kelly Lowder
kaynak
1
Print/@FromDigits/@Range@9~Subsets~4 for 36 bytes.
— Mr. Xcoder
Funny, I thought of that and just didn't do it because I thought ~ had higher precedence than @
— Kelly Lowder
2

K (ngn/k) / K (oK), 32 30 26 bytes

Solution:

`0:$&&/'1_'>':'" ",'$!9999

Try it online!

Explanation:

`0:$&&/'1_'>':'" ",'$!9999 / the solution
                     !9999 / range 0..9998 (could use !6890)
                    $      / string
               " ",'       / prepend " " to each (lower than "0" in ascii)
            >:'            / greater-than each-previous?
         1_'               / drop first result from each
      &/'                  / max (&) over (/)
    &                      / indices where true
   $                       / convert to string
`0:                        / print to stdout
— streetster
kaynak
2

JavaScript REPL, 64 bytes

A bit of pub golf so probably far from optimal.

(f=n=>n&&f(n-1)+([...n+``].every(x=>y<(y=x),y=0)?`
`+n:``))(7e3)

Try it online

Yes, doing it without an IIFE would be a few bytes shorter but that throws an overflow error when called, which would normally be fine as we can assume infinite memory for the purposes of code golf but, to me, doesn't seem to be in the spirit of KC challenges.

— Shaggy
kaynak
I don't get an overflow error without an IIFE.
— Spitemaster
Is this a function submission or a full program? If not, you should either count the console.log or relabel your submission as JavaScript REPL.
— Dennis
1

Jelly, 7 bytes

<ƝẠ$⁹#Y

Try it online!

How?

<ƝẠ$⁹#Y - Main Link: no arguments (implicit z=0)
    ⁹   - literal 256
     #  - count up from n=z (0) finding the first 256 for which this is truthy:
   $    -   last two links as a monad:
 Ɲ      -     neighbours (implicitly gets digits of n):
<       -       less than?
  Ạ     -     all truthy? (N.B. yields 1 for an empty list)
      Y - join with newlines
— Jonathan Allan
kaynak
1

MATLAB, 52 bytes

arrayfun(@(n)disp(n(all(diff(num2str(n))>0))),0:1e4)
— Luis Mendo
kaynak
Sitemizi kullandığınızda şunları okuyup anladığınızı kabul etmiş olursunuz: Çerez Politikası ve Gizlilik Politikası.
Licensed under cc by-sa 3.0 with attribution required.