GÖREV

n 12 <= n <= 123456789nolu baskı tamsayıları ve n'deki tüm ardışık basamak çiftleri aralarında aynı pozitif farka sahiptir (örneğin 2468, ancak 2469 değil).

GİRİŞ YOK.

Çıktı:

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
135
147
159
234
246
258
345
357
369
456
468
567
579
678
789
1234
1357
2345
2468
3456
3579
4567
5678
6789
12345
13579
23456
34567
45678
56789
123456
234567
345678
456789
1234567
2345678
3456789
12345678
23456789
123456789

kurallar

1. Standart boşluklar geçerlidir.
2. giriş yok

en kısa kod kazanır.

Kredi anarşi golf

Jöle , 12 11 bayt

9œcḊẎIE$ÐfY

Çevrimiçi deneyin!

Nasıl çalışır

9œcḊẎIE$ÐfY  Main link. No arguments.

9            Set the argument and return value to 9.
   Ḋ         Dequeue; yield [2, ..., 9].
 œc          Take all k-combinations of [1, ..., 9], for each k in [2, ..., 9].
    Ẏ        Concatenate the arrays of k-combinations.
        Ðf   Filter the result by the link to the left.
     IE$         Compute the increments (I) of the combination / digit list and
                 tests if all are equal (E).
          Y  Join the results, separating by linefeeds.

Python 2 , 81 bayt

k=71
exec"k+=1;r=range(k/8%9+1,10,k%8+1)\nif r[k/72:]:print`r`[1:k/24+2:3]\n"*576

Çevrimiçi deneyin!

Anarşi golfünden çözümüm . Fikir, sıralı çıktılar veren tüm uzunluk, başlangıç ​​değeri ve adım üçlülerini yinelemektir. Üçlü bir değer olarak kodlanan rgelen 72için 647ve bileşenleri ekstre edilmektedir k/72, k/8%9ve k%8. kYeterince yüksek başlatmak , tek basamaklı sayıların çıkmasını önler.

xsot , yerine sabit kodlu bir sayı dizesi koyarak iki bayt kaydetti .range'123456789'

Bu, iki saniyelik bir çalışma zamanı sınırlaması altında yazılmıştır. Bunları üretmek yerine sayıları filtreleyen daha yavaş bir strateji daha kısa olabilir.

C, 166152 Bayt

p,l,d,i=11;main(){for(char s[10];i<=1e9;){sprintf(s,"%d",++i);p=0;for(l=strlen(s);--l>0;){d=s[l]-s[l-1];if(!p)p=d;if(p^d|d<1)break;p=d;}if(!l)puts(s);}}

@KevinCruijssen sayesinde 6 byte tasarruf!

@JonathanFrech sayesinde 8 byte tasarruf!

Çevrimiçi deneyin

Yukarıdaki kodun tam biçimlendirilmiş sürümü aşağıda görülebilir.

#include <string.h>
#include <stdio.h>

int main( void )
{
int prev_diff, diff, len;
int num = 11;
char str[10];

while(num<123456789)
    {
    prev_diff = 0;
    sprintf(str,"%d",++num);
    len = strlen(str)-1;
    for( ; len > 0; len-- )
        {
        diff = str[len] - str[len-1];
        if( prev_diff == 0 )
            {
            prev_diff = diff;
            }
        if( prev_diff != diff || diff < 1 )
            {
            break;
            }
        prev_diff = diff;
        }
    if ( len == 0 )
        {
        puts(str);
        }
    }
}

Jöle , 14 , 13 bayt

DIµEȧ>0Ȧ
Ç77#

Çevrimiçi deneyin!

@MrXcoder sayesinde bir bayt kurtarıldı!

Bu son derece verimsizdir, bu yüzden TIO'da zaman aşımına uğrar, ancak bitirirse doğru çıktıyı üretecektir. Burada daha küçük sayılarla deneyebilirsiniz: Çevrimiçi deneyin!

Açıklama:

            # Helper link:
            #
D           # The Digits of 'n'
 I          # The increments (deltas, differences) between digits
  µ         # Give that array as an argument to the rest of this link:
   E        # Are all elements equal?
    ȧ       #   AND
     >0     # Are all elements greater then 0?
       Ȧ    # And is there at least one element?
            # (in the differences, so that numbers < 10 are false)
            #
            # Main link:
            #
 77#        # Return the first 77 'n's for which
Ç           #   The helper link is truthy

05AB1E , 23 bayt

•7=›ζ•FNS¥DËs0›PN11›&&–

Çevrimiçi deneyin!

•7=›ζ•TIO'da bitirmek için 7000 ile değiştirin veya zaman aşımına uğramadan önce "sonlandır" düğmesine basın, böylece o noktaya kadar yazdırılan sayılar elde edin.

Mathematica, 79 bayt

Select[Range@123456789,Min[s=Union@Differences@IntegerDigits@#]>0&&Tr[1^s]==1&]

Çevrimiçi deneyin! daha düşük bir sayı ile çok yavaş olduğu için

1sec içindeki tüm sayıları oluşturan başka bir yaklaşım

Mathematica, 123 bayt

Union[FromDigits/@(F=Flatten)[Table[Partition[#,i,1],{i,2,9}]&/@Select[F[Table[Range[j,9,k],{j,9},{k,9}],1],Tr[1^#]>1&],2]]   

Çevrimiçi deneyin! bir saniyedeki tüm sayılar

Kabuk , 14 13 bayt

ÖifȯεuẊ≠Ṗ…"19

Yeni satırla ayrılmış sayıları STDOUT'a yazdırır. Çevrimiçi deneyin!

H.PWiz'den esinlenerek -1 bayt.

açıklama

ÖifȯεuẊ≠Ṗ…"19
         …"19  The string "19" rangified: "123456789"
        Ṗ      Powerset: ["","1","2","12","3",...,"123456789"]
  fȯ           Filter by function: (input is sublist, say "2469")
      Ẋ≠        Consecutive codepoint differences: [2,2,3]
     u          Remove duplicates: [2,3]
    ε           Is it a one-element list? No, so "2469" is dropped.
Öi             Sort the result by integer value, implicitly print separated by newlines.

Wolfram Dili (Mathematica) , 76 bayt

Differences@IntegerDigits@#~MatchQ~{a_?Positive..}&&Print@#&~Array~123456789

Çevrimiçi deneyin!

APL (Dyalog) , 37 28 bayt

⍪x/⍨{1=≢∪2-/⍎¨⍕⍵}¨x←11+⍳1E9

Çevrimiçi deneyin! (zaman aşımı nedeniyle daha kısa menzilli)

Nasıl?

x←11+⍳123456789- 11, 12... 1e9içinex

¨ - her biri için

    ⍎¨⍕⍵ - rakamlara girmek

    2-/ - farklar listesi al

    ∪ - benzersiz öğeler edinin

    1=≢ - uzunluk == 1?

x/⍨ - oluşturulan aralıkta maske olarak kullanın

⍪ - ve sütunlara ayır

Kabuk , 14 bayt

ÖifoEẊ≠ftṖ…"19

Çevrimiçi deneyin!

Toplu, 210200 bayt

Hiçbir optimizasyon, bu yüzden çok yavaş - 12345'e kadar yaklaşık 25 saniye sürer, bu nedenle tam çıktı için yaklaşık 3 gün beklemeniz gerekir.

@set z=@set/a
%z%c=12
:a
@echo %c%
:c
%z%c+=1&if %c%==123456790 exit/b
%z%n=c
%z%d=n%%10-n/10%%10
@if %d% leq 0 goto c
:d
%z%n=n/10
@if %n% leq 9 goto a
%z%e=n%%10-n/10%%10
@if %e%==%d% goto d
@goto c

Java 8, 169 168 145 bayt

v->{byte[]a;for(int i=9,d,l;++i<1e9;System.out.print(l<1?i+"\n":""))for(a=(i+"").getBytes(),d=0,l=a.length;--l>0&&d*(d^(d=a[l]-a[l-1]))<1&d>0;);}

Limanı @Jacobinski C cevap (biraz golfed sonra). @Nevay
sayesinde -23 bayt.

Açıklama:

Burada deneyin. (Sonuna doğru biraz fazla yavaş, bu yüzden son sayıyı TIO'ya yazdırmıyor. Son sayıyı yaklaşık 20 saniye içinde yerel olarak yazdırıyor.)

v->{                         // Method with empty unused parameter and no return-type
  byte[]a;                   //  Byte-array
  for(int i=9,               //  Index integer, starting at 9
          d,                 //  Difference-integer
          l;                 //  Length integer
      ++i<1e9;               //  Loop (1) from 10 to 1,000,000,000 (exclusive)
      System.out.print(      //    After every iteration: print:
        l<1?                 //     If `l` is 0:
         i+"\n"              //      The current integer + a new-line
        :                    //     Else:
         ""))                //      Nothing
    for(a=(i+"").getBytes(), //   Convert the current item as String to a byte-array
        d=0,                 //   Reset the previous integer to 0
        l=a.length;          //   Set `l` to the length of the byte-array
        --l>0                //   Inner loop (2) from `l-1` down to 0 (exclusive)
        &&d*(d^(d=a[l]-a[l-1]))<1
                             //    As long as the previous difference is either 0
                             //    or the current diff is not equal to the previous diff
        &d>0;                //    and the current diff is larger than 0
    );                       //   End of inner loop (2)
                             //  End of loop (1) (implicit / single-line body)
}                            // End of method

05AB1E , 14 bayt

TžhŸʒS¥D0›PsË&

Çevrimiçi deneyin!

Python 2 , 103 97 95 bayt

@JonathanFrech sayesinde -2 bayt

n=11
while n<1e9:
 n+=1;Q=`n`[1:]
 if`n`<Q>1==len({int(a)-int(b)for a,b in zip(`n`,Q)}):print n

Çevrimiçi deneyin!

Python 2 , 76 75 bayt

n=9
while n<2e8:
 n+=1
 if`n`in`range(n%10,0,~n%100%11-11)`[-2::-3]:print n

Yerel olarak yaklaşık 3 dakika sürer.

Çevrimiçi deneyin! (sonuncusu hariç tüm sayıları yazdırmak için değiştirildi)

JavaScript (Firefox 30-57), 105 bayt

document.write(`<pre>`+(

_=>[for(x of s=`123456789`)for(y of s)for(z of s)if(x*z<10-y)s.replace(/./g,c=>c<y|(c-y)%z|c-y>x*z?``:c)]

)().join`\n`+`</pre>`);

2'den 10'a kadar uzunluklar üzerinde döngüler (x, son karakterin indeksidir ve bu nedenle uzunluktan 1 daha azdır), 1'den 9'a kadar olan basamaklardan başlayıp 1'den 9'a kadar olan basamaklar, daha sonra son basamaktaki filtreler 10'dan küçükse ve böylece rakamları rakam dizesinden filtreleyerek sonuç üretir.

Pyth , 21 bayt

Dennis Limanı'nın akıllı yaklaşımı .

jjLkf!t{.+Tsm.cS9dtS9

Burada deneyin!

Pyth , 23 bayt

j.f&!tl{K.+jZT*F>R0K77T

Bu, çevrimiçi yorumlayıcıda zaman aşımına uğrar, ancak yeterli zaman ve bellek verilirse çalışır.

Daha düşük bir sayı ile çevrimiçi deneyin .

MATL , 17 16 bayt

1e9:"@Vdu0>TX=?@

Çevrimiçi deneyin! ile1e9değiştirilir,1e3böylece çevrimiçi derleyicide zaman aşımı olmaz.

JavaScript (ES6), 121 bayt

Neredeyse Neil'in cevabı kadar kısa değil , ama yine de göndermeye değer olduğunu düşündüm.

Eşleşmeyen '123456789'tüm girişlerin kesildiği ve ön eklendiği bir güç kümesi oluşturarak 0, sonuçları sayısal sırada sıralayarak ve yalnızca 77 ilgili girişi tutarak çalışır.

_=>[...'123456789'].reduce((a,x)=>[...a,...a.map(y=>y[1]-y[0]+(y.slice(-1)-x)?'0':y+x)],['']).sort((a,b)=>a-b).slice(-77)

gösteri

let f =

_=>[...'123456789'].reduce((a,x)=>[...a,...a.map(y=>y[1]-y[0]+(y.slice(-1)-x)?'0':y+x)],['']).sort((a,b)=>a-b).slice(-77)

console.log(f().join` `)

C (gcc) , 106 bayt

main(i,j,k,l){for(i=1;i<9;i++)for(j=8;j;j--)for(k=0;k<j/i;puts(""))for(l=0*k++;l<=i;)putchar(57-j+k*l++);}

Çevrimiçi deneyin!

Yassız (önceden hazırlanmış) versiyon:

int main() {
  int length, start_with, max_step, step, nth;
  for (length = 2; length <= 9; length++) {
    for (start_with = 1; start_with < 9; start_with++) {
      max_step = (9 - start_with) / (length - 1);
      for (step = 1; step <= max_step; step++) {
        for (nth = 0; nth < length; nth++) {
          putchar('0' + start_with + step * nth);
        }
        puts("");
      }
    }
  }
  return 0;
}

JavaScript (ES6), 109 104 bayt

Mümkün olan tüm sayıları üreterek çalışır: 8'den 1'e kadar her artışta döngüler (değişken i), 8'den 1'e kadar her başlangıç ​​basamağında jdöngüler (değişken ), jve 10-i(değişken k) arasındaki her basamakta döngüler ve akıma tekleyerek bir dize oluşturur . Her adımda çıkış dizisine eklenir.ktt

(o=[],i=9)=>{while(--i){j=9;while(k=--j){t=""+k;while(k<10-i)o.push(t+=k+=i)}}return o.sort((a,b)=>a-b)}

Çevrimiçi deneyin!

f=

(o=[],i=9)=>{while(--i){j=9;while(k=--j){t=""+k;while(k<10-i)o.push(t+=k+=i)}}return o.sort((a,b)=>a-b)}

;
console.log(f().join("\n"))

Wolfram Dili (Mathematica) , 71 bayt

Flatten@Array[If[(x=#2+#3 #)<10,FromDigits@Range[#2,x,#3],{}]&,{8,8,8}]

Çevrimiçi deneyin!

Çıktıyı seçmek yerine yapı nedeniyle hızlı yıldırım.

Java (OpenJDK 8) , 228 174 170 163 bayt

o->{int i=11,x,y,z,l;for(;i++<1e9;){char[]w=(""+i).toCharArray();for(x=w[1]-w[0],y=1,z=0;y<w.length;z+=l>0&l==x?0:1)l=w[y]-w[y++-1];if(z<1)System.out.println(i);}}

Çevrimiçi deneyin!

JavaScript (ES6), 145 bayt

Biraz büyü ile sade bir yaklaşım.

Array(123456790).fill().map((x,i)=>(''+i).split('')).map((a,i,d) => {d=a[1]-a[0];d>0&a.every((n,j)=>j<1||n-a[j-1]==d)?console.log(a.join('')):0})

Parçacığı çalıştırmak çok fazla bellek tüketir ...

PHP, 85 84 bayt

for(;++$d<9||++$a<9*$d=1;sort($r))for($x=$y=$a+1;10>$y+=$d;)$r[]=$x.=$y;print_r($r);

çevrimiçi deneyin .

sıralama maliyeti 17 byte. Bu sürüm, farklı şekilde sıralanan sonuçları yazdırır:

while(++$d<9||++$a<9*$d=1)for($x=$y=$a+1;10>$y+=$d;)echo"
",$x.=$y;