İki tamsayı verildiğinde, iki tamsayıyı ve ardından aralarındaki aralığı (ikisi hariç) verin.

Aralığın sırası giriş ile aynı olmalıdır.

Örnekler:

 Input        Output
 0,  5   ->   [0, 5, 1, 2, 3, 4]
-3,  8   ->   [-3, 8, -2, -1, 0, 1, 2, 3, 4, 5, 6, 7]
 4,  4   ->   [4, 4]
 4,  5   ->   [4, 5]
 8,  2   ->   [8, 2, 7, 6, 5, 4, 3]
-2, -7   ->   [-2, -7, -3, -4, -5, -6]

R , 39 33 30 bayt

c(a<-scan(),setdiff(a:a[2],a))

Çevrimiçi deneyin!

User2390246 ve J.Doe'ya kaydedilen bayt için teşekkürler.

05AB1E , 4 bayt

Ÿ¦¨«

Çevrimiçi deneyin!

açıklama

    Ÿ      # inclusive range [a ... b]
     ¦¨    # remove the first and last element
       «   # append to input

Python 3 , 52 48 47 42 41 bayt

lambda a,b:[a,b,*range(a,b,-(a>b)|1)[1:]]

Çevrimiçi deneyin!

Eski uygulamaları birleştirin.

Python 2 (Cython) , 36 35 bayt

lambda x:x+range(*x,-cmp(*x)|1)[1:]

1 byte kapalı golf için @nwellnhof için teşekkürler!

Çevrimiçi deneyin!

Python 2 , 37 bayt

lambda x:x+range(*x+[-cmp(*x)|1])[1:]

Port CPython için @JonasAusevicius için teşekkürler!

Çevrimiçi deneyin!

Perl 6 , 26 22 bayt

{|@_,|[...^](@_).skip}

Çevrimiçi deneyin!

açıklama

{                    }
 |@_,   # Slip args a,b into result
      [...^](@_)  # Reduce args a,b with ...^ operator, same as a...^b
                .skip  # Skip first element
     |  # Slip into result

Python 2,40 bayt

lambda x,y:[x,y]+range(x,y,-(y<x)|1)[1:]

Çevrimiçi deneyin!

Python 3, 64 62 51 bayt

lambda a,b:[a,b]+[*range(a+1,b)]+[*range(a-1,b,-1)]

Çevrimiçi deneyin!

Python 2, 58 45 bayt

lambda a,b:[a,b]+range(a+1,b)+range(a-1,b,-1)

Çevrimiçi deneyin!

Japt, 8 bayt

cUr!õ kU

Burada dene

             :Implicit input of array U
c            :Concatenate
 Ur          :  Reduce U by
   !õ        :   Inclusive range
      kU     :  Remove all elements in original U

JavaScript (ES6), 51 bayt

Girişi olarak alır (a)(b).

a=>g=(b,c=b)=>(b+=b<a|-(b>a))-a?[...g(b,c),b]:[a,c]

Çevrimiçi deneyin!

Yorumlananlar

a =>                // main function, taking a
  g = (             // g = recursive function
    b,              //     taking b
    c = b           // we save a backup of the original value of b into c
  ) =>              //
    (b +=           // add to b:
      b < a |       //   +1 if b is less than a
      -(b > a)      //   -1 if b is greater than a
    )               //   (or 0 if b = a)
    - a ?           // if the updated value of b is not equal to a:
      [             //   generate a new array:
        ...g(b, c), //     prepend all values generated by a recursive call
        b           //     append the current value of b
      ]             //
    :               // else:
      [a, c]        //   stop recursion and return the first 2 values: a and c

Python 2 , 47 41 40 bayt

lambda a,b:[a,b]+range(a,b,a<b or-1)[1:]

Çevrimiçi deneyin!

İşte benim, şimdi birçok Python cevabı gönderildi.

_{-6 bayt, GB sayesinde}

Java 10, 109 108 104 102 93 62 bayt

Boşluk içeren bir Dize kullanma:

b->a->{var r=a+" "+b;for(;a<b?++a<b:--a>b;)r+=" "+a;return r;}

Çevrimiçi deneyin.

Liste Kullanımı:

b->a->{var r=new java.util.Stack();for(r.add(a),r.add(b);a<b?++a<b:--a>b;)r.add(a);return r;}

Çevrimiçi deneyin.

( a<b?++a<b:--a>bOlabilir ++a<b||(a-=2)>baynı bayt sayım için: dize için çevrimiçi deneyin ya Listesi için çevrimiçi deneyin .)

Eski ( 109 108 104 102 101 bayt) bir dizi kullanarak cevap:

a->b->{int s=a<b?1:-1,i=a!=b?(b-a)*s+1:2,r[]=new int[i];for(r[0]=a,r[1]=b;i>2;)r[--i]=b-=s;return r;}

@Nwellnhof sayesinde -7 bayt .

Çevrimiçi deneyin.

Açıklama:

a->b->{                // Method with 2 int parameters & int-array return-type
  int s=               //  Step integer, starting at:
        a<b?1          //   1 if the first input is smaller than the second
        :-1;           //   -1 otherwise
      i=               //  Array-index integer, starting at:
        a!=b?          //   If the inputs aren't equal:
         (b-a)*s+1     //    Set it to the absolute difference + 1
        :              //   Else:
         2,            //    Set it to 2
      r[]=new int[i];  //  Result-array of that size
  for(r[0]=a,          //  Fill the first value with the first input
      r[1]=b;          //  And the second value with the second input
      i>2;)            //  Loop `i` downwards in the range [`i`,2):
    r[--i]=            //   Decrease `i` by 1 first with `--i`
                       //   Set the `i`'th array-value to:
           b-=s;       //    If the step integer is 1: decrease `b` by 1
                       //    If the step integer is -1: increase `b` by 1
                       //    And set the array-value to this modified `b`
  return r;}           //  Return the result-array

APL (Dyalog Genişletilmiş) , 5 bayt

Anonim infix işlevi.

,,…~,

Çevrimiçi deneyin!

, ilk ve son (argümanların birleştirilmesini yaktı)

, ve (lit. birleştirilmiş)

… menzil

~ olmadan

, ilk ve son (argümanların birleştirilmesini yaktı)

Haskell, 34 bayt

a#b=a:b:[a+1..b-1]++[a-1,a-2..b+1]

Çevrimiçi deneyin!

Jöle , 4 bayt

,œ|r

Çevrimiçi deneyin!

Nasıl çalışır

,œ|r  Main link. Left argument: a. Right argument: b

,     Pair; yield [a, b].
   r  Range; yield [a, ..., b].
 œ|   Perform multiset union.

J , 26 bayt

,,[|.@]^:(>{.)<.+1}.i.@|@-

Çevrimiçi deneyin!

Açıklama:

İkili fiil (sol ve sağ argümanı alır)

                         -    subtracts the arguments
                       |@     and finds the absolute value
                    i.@       and makes a list 0..absolute difference
                 1}.          drops the fist element
                +             adds to the entire list
              <.              the smaller of the arguments
   |.@]                       reverses the list
       ^:                     only if
  [                           the left argument
         (>{.)                is greater than the first item of the list
 ,                            appends the list to
,                             the right argument appended to the left one

Oktav , 45 bayt

@(a,b)[a b linspace(a,b,(t=abs(a-b))+1)(2:t)]

Çevrimiçi deneyin!

J , 13 bayt

,,<.+i.@-~-.=

Çevrimiçi deneyin!

     i.@-~       range [0 .. |difference|-1], reverse if the difference is positive
          -.=    remove the zero (either "=" is 0 or there’s nothing to remove)
  <.+            to each element add the smaller of the args
,,               prepend args

Toplu iş, 107 bayt

@echo %1
@echo %2
@for %%s in (1 -1)do @for /l %%i in (%1,%%s,%2)do @if %1 neq %%i if %%i neq %2 echo %%i

Girdiyi komut satırı argümanları olarak alır. Açıklama:

@echo %1
@echo %2

İki tamsayının çıktısını alın.

@for %%s in (1 -1)do

Hem yükselen hem de azalan aralıkları deneyin.

@for /l %%i in (%1,%%s,%2)do

Kapsayıcı değer aralığında döngü.

@if %1 neq %%i if %%i neq %2

İki tam sayıyı hariç tutun.

echo %%i

Geçerli değerin çıktısını alın.

Pyth , 5 bayt

+QtrF

Giriş, iki elemanlı bir listedir [input 1, input 2]. Online Deneyin burada ya bir kerede tüm test durumları doğrulamak burada .

+QtrFQ   Implicit: Q=eval(input())
         Trailing Q inferred
   rFQ   Generate range [input 1 - input 2)
  t      Discard first element
+Q       Prepend Q

Kırmızı , 75 bayt

func[a b][s: sign? d: b - a prin[a b]loop absolute d - s[prin[""a: a + s]]]

Çevrimiçi deneyin!

Temiz , 49 bayt

import StdEnv
@a b=init[a,b:tl[a,a+sign(b-a)..b]]

Çevrimiçi deneyin!

Ruby , 33 40 bayt

->a,b{[a,b]+[*a..b,*a.downto(b)][1..-2]}

Çevrimiçi deneyin!

Geçici düzeltme, daha iyi bir fikir bulmaya çalışıyorum

Python 2 , 52 47 41 bayt

lambda i,j:[i,j]+range(i,j,(i<j)*2-1)[1:]

Çevrimiçi deneyin!

-5 @JoKing sayesinde

-6 Menzildeki ilk elementi dilimleyerek (fikir @TFeld'den çalındı ​​ve kredi ile çalındı)

Lambda dışı versiyon ...

Python 2 , 51 49 47 bayt

i,j=input();print[i,j]+range(i,j,(i<j)*2-1)[1:]

Çevrimiçi deneyin!

-2 @JoKing sayesinde

APL (Dyalog Klasik) , 29 bayt

{⍺,⍵,(⌽⍣(⍺>⍵))(⍺⌊⍵)+¯1↓⍳|⍺-⍵}

Çevrimiçi deneyin!

Benim Jçözümümün limanı

PHP (102 bayt)

function t($a,$b){count($r=range($a,$b))>1?array_splice($r,1,0,array_pop($r)):$r=[$a,$b];print_r($r);}

Kum havuzu

Ne yazık ki (golf için) PHP, uzunluğa çok katkıda bulunan ayrıntılı işlev adlarına sahiptir. Fakat temel fikir bir aralık oluşturmak, sonra son elemanı patlatmak ve ofset 1'de tekrar dikmek. 4,4Örnekte count($r=range($a,$b))>1?...:$r=[$a,$b];, biraz ekleyen ve maalesef eklemek zorunda kaldım.array_splice() bana birkaç tane daha vuracak olan referans olarak geldi. bayt ($r= and a ; ). Hepsi bu "kenar davası" yüzünden, lol.

Neyse tadını çıkar!

Clojure , 61 bayt

(fn[[a b]](def s(if(> a b)-1 1))(list* a b(range(+ a s)b s)))

Giriş olarak 2 vektörü alan ve bir liste döndüren adsız bir işlev.

Çevrimiçi deneyin!

açıklama

(fn [[a b]] ; An anonymous function that accepts a 2-vector as input, and destructures it to a and b
  (def s (if (> a b) -1 1)) ; If a > b assigns -1 to s and assigns 1 to s otherwise. This determines the order of the elements of the output list.
  (list* a b ; Creates a list with a and b as the first two elements. The remaining elements will be appended from the following range:
    (range (+ a s) b s))) ; A range starting at a+s and ending at b with step s

D , 85 bayt

T[]f(T)(T a,T b){T[]v=[a,b];T c=2*(b>a)-1;for(T i=a+c;a!=b&&b!=i;i+=c)v~=i;return v;}

Çevrimiçi deneyin!

@ HatsuPointerKun’un C ++ cevabının D.

TI-BASIC, 35 34 bayt

Misha Lavrov'dan -1 bayt

Prompt A,B
Disp A,B
cos(π(A>B
For(I,A+Ans,B-Ans,Ans
Disp I
End

Mangal kömürü , 15 bayt

ＩＥ²ＮＩ…⊕θηＩ⮌…⊕ηθ

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

ＩＥ²Ｎ

Girişleri ayrı satırlara yazdırın.

Ｉ…⊕θη

Varsa, artan aralığı yazdırın.

Ｉ⮌…⊕ηθ

Varsa, tersin artan ters aralığını yazdırın.

Dart , 85 84 bayt

f(a,b)=>[a,b]+((a-b).abs()>1?List.generate((a-b).abs()-1,(i)=>(a>b?-i-1:i+1)+a):[]);

Çevrimiçi deneyin!