辞書順に増加する数は、その数字が厳密に増加する順序の整数です。10000未満の辞書式に増加する数値をすべて印刷します。

予想される出力の行は次のとおりです。

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

これはコードゴルフチャレンジです！最短回答が勝ちます！

（Pythonソリューションを探しているPS）

Python 2、56バイト

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

オンラインでお試しください！

各数値124を式に変換し1<2<4、評価して数字がソートされているかどうかを確認します。

しゃっくりは、1桁の数字に対して発生し、その数字そのものである式を与えます。これにより0、印刷する必要がある場合でもFalsey値に評価されます。これはやってのOutgolferエリックによって提案されたトリックによって固定されている**ntruthy値を与える、0**0ためn=0、それ以外の真理値には影響を与えません。

Python 2、55バイト

i=0
exec"print i\ni+=1\nif eval('<'.join(`i`)):1;"*7000

オンラインでお試しください！

Haskell、50バイト

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

オンラインでお試しください！

複数行の文字列を出力します。を使用して、数字の最大数と次の数字を取得する前に各数字をインクリメントすることで厳密なソートを保証する通常のソート済みチェックのバリアントをs使用して、数値が増加することをチェックします。s==scanl1(max.succ)ss==scanl1 max s

Ourous 6^5は、4桁の数字の代わりに上限として使用することにより、バイトを節約しました。

ゼリー、7バイト

9ŒPḌḣ⁹Y

オンラインでお試しください！

使い方

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.

Japt -R、12 11 8バイト

L²Ç¶ìüÃð

試して

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

*または、より良い説明を提供する：üメソッドは、配列をソートし、同じ要素（例えば、に分割し[8,4,8,4].ü() -> [[4,4],[8,8]]、うまくいけば奇妙な癖はなくバグであると思われるもので、当時）とìメソッドに配列背中を変換するとき数値は、最初に配列を平坦化するのではなく、入れ子になった各配列の最初の要素を取ります[[4,4],[8,8]].ì() -> 48。

R、62 49バイト

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

オンラインでお試しください！

combn入力を指定された順序で繰り返し処理するため、辞書式に増加する整数をすべて簡単に作成し、順番に出力します。幅の行でwrite各i桁の数字を印刷しi、改行の要件もきちんと満たします。

Perl 6、25バイト

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

nwellnhofのおかげで-1バイト

オンラインでお試しください！

.comb各数値の数字のリストを作成し、そのリストに対して[<]以下の縮小を行います。これは、digit1 < digit2 <... < digitNに相当します。

Haskell、56 55バイト

編集：@Ourousのおかげで-1バイト

mapM print$filter(and.(zipWith(<)<*>tail).show)[0..6^5]

オンラインでお試しください！

PowerShell、42 40バイト

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

オンラインでお試しください！

から（0へ1e4）ループし10000ます。これらのオブジェクトを引き出し|?{...}た文字列として数が$_ある-eq数キャストにUALをtoCharArra yし、その後sortでエド-u niqueフラグ。言い換えると、並べ替えられて重複排除された文字列と同じ番号のみです。これらはそれぞれパイプラインに残り、出力は暗黙的です。

Pyth、10バイト

jiRThc2yS9

オンラインでお試しください！

使い方

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.

J、26バイト

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

オンラインでお試しください！

説明

,. (#~ (-: /:~@~.)@":"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

Common Lisp、74 72バイト

(dotimes(i 7e3)(format(apply'char<(coerce(format()"~d"i)'list))"~d~%"i))

オンラインでお試しください！

-2バイト、@ Shaggyに感謝！

05AB1E（レガシー）、8バイト

4°ÝD€êû

オンラインでお試しください！

05AB1Eの新しいバージョンでも動作しますが、何らかの理由で非常に遅いです。

どうやって？

4°ÝD€êû–完全なプログラム。
4°Ý– [0 ... 10000]を押します。
   D€ê– [0 ... 10000]の各整数をソートおよび重複排除と同時にプッシュします。
      ×–そして、改行で2つのリストの交差点に参加します。

Perl 5、47バイト

map{$_&&s/.(?=(.))/$1-$&/gre=~/0|-/||say}0..1E4

オンラインでお試しください！

古い：

52バイト

Python 2、61バイト

for i in range(9999):
 if list(`i`)==sorted(set(`i`)):print i

オンラインでお試しください！

パイソン2、64の 61バイト

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

オンラインでお試しください！

整数の文字列表現の一意の文字を取得し、並べ替え、結果を元の数値と比較します。

V、41バイト

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

オンラインでお試しください！

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

炭、19バイト

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

オンラインでお試しください！リンクは、コードの詳細バージョンです。説明：

   χ                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

ゼリー、13 9 8バイト

@Dennisのおかげで5バイト節約

9œcⱮ4ẎŻY

オンラインでお試しください！

説明

数字[1 ... 9]を取得し、長さ≤4のすべての組み合わせを見つけることにより、10000未満の辞書式に増加するすべての数値を生成します。

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.

ゼリー、11 10 9バイト

@EriktheOutgolferのおかげで1バイト節約できた

ȷ4Ḷ<ƝẠ$ƇY

オンラインでお試しください！

説明

範囲をフィルター処理し、辞書式に増加する数値を保持します。

ȷ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.

C＃（Visual C＃Interactive Compiler）、102 101 ... 73バイト

-12 と -4ありがとう@Dennis！

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

オンラインでお試しください！

最初に文字列に変換することにより、0〜7kの各整数がテストされます。C＃が文字列を文字列挙型およびLINQとして処理するという事実を活用して、集計は文字列挙型ごとに次のように計算されます。

• 累積値を現在のキャラクターと比較します
• 現在の文字が累積よりも大きい場合、現在の文字を返します
• それ以外の場合:は、どちらが大きいかを返します9

この結果が未満の場合:、数値は辞書式に増加する数字になります。

Wolfram言語（Mathematica）、36バイト

これを書いた後、各番号は新しい行にある必要があることが明らかになったので、 Print/@。

この方法は、Subsets関数1）数字を複製せず、2）出力を設定サイズと設定内容でソートするという事実を利用しています。FromDigits数字の各リストを組み立てます。

@ Mr.Xcoderのおかげで-1バイト

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

オンラインでお試しください！

K（ngn / k） / K（oK）、32 30 26バイト

溶液：

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

オンラインでお試しください！

説明：

`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

JavaScript REPL、64バイト

おそらく最適とはほど遠いパブゴルフのビット。

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

オンラインで試す

はい、IIFEなしでそれを行うことは数バイト短くなりますが、呼び出されるとオーバーフローエラーがスローされます。これは通常、コードゴルフの目的のために無限のメモリを想定できるので問題ありませんが、 KCチャレンジの精神で。

C（gcc）、97 89 81バイト

-8バイトのceilingcatに感謝します。

デニスのおかげでさらに-8

g(n){n=!n||n/10%10<n%10&&g(n/10);}f(i){for(i=-1;++i<7e3;g(i)&&printf("%u\n",i));}

オンラインでお試しください！

Python 2 2、63バイト

for i in range(6790):
 if`i`=="".join(sorted(set(`i`))):print i

オンラインでお試しください！

スタックス、8 バイト

¬ ▬A♥¶N∙

実行してデバッグする

クリーン、90バイト

import StdEnv
Start=(0,[('
',n)\\n<-[1..6^5]|(\l=removeDup l==sort l)[c\\c<-:toString n]])

オンラインでお試しください！

赤、59バイト

repeat n 9999[if(d: n - 1)= do sort unique form d[print d]]

オンラインでお試しください！

ゼリー、7 バイト

<ƝẠ$⁹#Y

オンラインでお試しください！

どうやって？

<ƝẠ$⁹#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

MATLAB、52バイト

arrayfun(@(n)disp(n(all(diff(num2str(n))>0))),0:1e4)