Tüfek sayılar oldukça basit tanımı ancak bazı ilginç yapısıyla bir dizi vardır. Doğal sayılarla başla:

1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, ...

Şimdi tüm sayıları 2'ye bölünebilen endekslerde al , onları çiftler halinde gruplandır ve sayıları her çiftte değiştir:

1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, ...
   ^     ^     ^     ^      ^       ^       ^  
    <--->       <--->        <----->         <----
1, 4, 3, 2, 5, 8, 7, 6, 9, 12, 11, 10, 13, 16, ...

Şimdi aynısını 3 ile bölünebilen endekslerle yapın :

1, 4, 3, 2, 5, 8, 7, 6, 9, 12, 11, 10, 13, 16, ...
      ^        ^        ^           ^          
       <------>          <--------->           
1, 4, 8, 2, 5, 3, 7, 6, 10, 12, 11, 9, 13, 16, ...

Ve sonra 4 , 5 , 6 vb. İçin:

1, 4, 8, 2, 5, 3, 7, 6, 10, 12, 11, 9, 13, 16, ...
1, 4, 8, 6, 5, 3, 7, 2, 10, 12, 11, 14, 13, 16, ...
1, 4, 8, 6, 12, 3, 7, 2, 10, 5, 11, 14, 13, 16, ...
1, 4, 8, 6, 12, 14, 7, 2, 10, 5, 11, 3, 13, 16, ...
...

Sonra k tür adımlar, ilk k + 1 numaraları düzeltilecektir. Böylece, Shotgun sayılarının sonsuz sırasını, k'nın sonsuzluğa gitmesine izin verme sınırı olarak tanımlayabiliriz . İlk 66 sayı:

1, 4, 8, 6, 12, 14, 16, 9, 18, 20, 24, 26, 28, 22, 39, 15, 36, 35, 40, 38, 57, 34, 48, 49, 51, 44,
46, 33, 60, 77, 64, 32, 75, 56, 81, 68, 76, 58, 100, 55, 84, 111, 88, 62, 125, 70, 96, 91, 98, 95,
134, 72, 108, 82, 141, 80, 140, 92, 120, 156, 124, 94, 121, 52, 152, 145, ...

Eğlenceli gerçek: Sadece doğal sayılara izin verilerek elde edilmesine rağmen, bu dizi hiçbir asal içermez.

Meydan okuma

Bir tamsayı verildiğinde n > 0, nth Shotgun numarasını bulun . STDIN (veya en yakın alternatif), komut satırı argümanı veya işlev argümanı yoluyla giriş alarak bir program veya işlev yazabilir ve çıktısını geri döndürebilir veya STDOUT'a (veya en yakın alternatife) yazdırabilirsiniz.

Bu kod golf, yani en kısa gönderme (bayt cinsinden) kazanır.

Liderler

Bu düşündüğümden daha fazla cevap alıyor, aynı dilde rekabet eden birkaç insan. Yani burada hem düzenli bir lider tablosu hem de kazananların dile göre bir genel bakışını oluşturmak için bir Stack Snippet.

Cevabınızın göründüğünden emin olmak için, lütfen aşağıdaki Markdown şablonunu kullanarak cevabınızı bir başlık ile başlatın:

# Language Name, N bytes

Gönderinizin Nbüyüklüğü nerede ? Puanınızı artırmak varsa, olabilir onları içinden vurarak, başlığa eski hesapları tutmak. Örneğin:

# Ruby, <s>104</s> <s>101</s> 96 bytes

function answersUrl(e){return"http://api.stackexchange.com/2.2/questions/"+QUESTION_ID+"/answers?page="+e+"&pagesize=100&order=desc&sort=creation&site=codegolf&filter="+ANSWER_FILTER}function getAnswers(){$.ajax({url:answersUrl(page++),method:"get",dataType:"jsonp",crossDomain:true,success:function(e){answers.push.apply(answers,e.items);if(e.has_more)getAnswers();else process()}})}function shouldHaveHeading(e){var t=false;var n=e.body_markdown.split("\n");try{t|=/^#/.test(e.body_markdown);t|=["-","="].indexOf(n[1][0])>-1;t&=LANGUAGE_REG.test(e.body_markdown)}catch(r){}return t}function shouldHaveScore(e){var t=false;try{t|=SIZE_REG.test(e.body_markdown.split("\n")[0])}catch(n){}return t}function getAuthorName(e){return e.owner.display_name}function process(){answers=answers.filter(shouldHaveScore).filter(shouldHaveHeading);answers.sort(function(e,t){var n=+(e.body_markdown.split("\n")[0].match(SIZE_REG)||[Infinity])[0],r=+(t.body_markdown.split("\n")[0].match(SIZE_REG)||[Infinity])[0];return n-r});var e={};var t=0,c=0,p=-1;answers.forEach(function(n){var r=n.body_markdown.split("\n")[0];var i=$("#answer-template").html();var s=r.match(NUMBER_REG)[0];var o=(r.match(SIZE_REG)||[0])[0];var u=r.match(LANGUAGE_REG)[1];var a=getAuthorName(n);t++;c=p==o?c:t;i=i.replace("{{PLACE}}",c+".").replace("{{NAME}}",a).replace("{{LANGUAGE}}",u).replace("{{SIZE}}",o).replace("{{LINK}}",n.share_link);i=$(i);p=o;$("#answers").append(i);e[u]=e[u]||{lang:u,user:a,size:o,link:n.share_link}});var n=[];for(var r in e)if(e.hasOwnProperty(r))n.push(e[r]);n.sort(function(e,t){if(e.lang>t.lang)return 1;if(e.lang<t.lang)return-1;return 0});for(var i=0;i<n.length;++i){var s=$("#language-template").html();var r=n[i];s=s.replace("{{LANGUAGE}}",r.lang).replace("{{NAME}}",r.user).replace("{{SIZE}}",r.size).replace("{{LINK}}",r.link);s=$(s);$("#languages").append(s)}}var QUESTION_ID=47338;var ANSWER_FILTER="!t)IWYnsLAZle2tQ3KqrVveCRJfxcRLe";var answers=[],page=1;getAnswers();var SIZE_REG=/\d+(?=[^\d&]*(?:&lt;(?:s&gt;[^&]*&lt;\/s&gt;|[^&]+&gt;)[^\d&]*)*$)/;var NUMBER_REG=/\d+/;var LANGUAGE_REG=/^#*\s*([^,]+)/

body{text-align:left!important}#answer-list,#language-list{padding:10px;width:290px;float:left}table thead{font-weight:700}table td{padding:5px}

<script src=https://ajax.googleapis.com/ajax/libs/jquery/2.1.1/jquery.min.js></script><link rel=stylesheet type=text/css href="//cdn.sstatic.net/codegolf/all.css?v=83c949450c8b"><div id=answer-list><h2>Leaderboard</h2><table class=answer-list><thead><tr><td></td><td>Author<td>Language<td>Size<tbody id=answers></table></div><div id=language-list><h2>Winners by Language</h2><table class=language-list><thead><tr><td>Language<td>User<td>Score<tbody id=languages></table></div><table style=display:none><tbody id=answer-template><tr><td>{{PLACE}}</td><td>{{NAME}}<td>{{LANGUAGE}}<td>{{SIZE}}<td><a href={{LINK}}>Link</a></table><table style=display:none><tbody id=language-template><tr><td>{{LANGUAGE}}<td>{{NAME}}<td>{{SIZE}}<td><a href={{LINK}}>Link</a></table>

Pyth, 19 22

u-G*H^_!%GH/GHrhQ2Q

@ PeterTaylor'un golf senaryosunun cevabının oldukça saf bir uygulaması .

Burada çevrimiçi deneyin

Bu, bir süre döngüsünü, aşağıdaki diğer Pyth programının yaptığı gibi bir katlamaya dönüştürmek için aynı hileleri kullanır.

u+G**H!%GHty%/GH2rhQ2Q

@ Sp3000'in algoritmasının saf bir kopyası Pyth'a çevrilmiş.

Burada çevrimiçi deneyebilirsiniz

While döngüsü öykünmek için azaltma (python'un adı). Üzerinde O sıralar range(input, 2)Pyth hangi dışarı çalışır range(2, input)[::-1]. Pyth ile ilgili diğer golf sahaları, sayısal argümanların değerini iki katına çıkarmak için gizli modunu kullanmak notyerine kullanmak <2ve kullanmaktan ibarettir y.

> <>, 52 45 bayt

> <> İçin ösolangs sayfası

i:&&:&1-?vn;
2*1-*+20.>:&:&%1(&:&*{:}&:1-&,2%

İhtiyaç duyulan çeşitli modülo ve çarpma işlemleri sayesinde etrafta birçok kopyalama ve taşıma elemanı vardır. Mantık Python çözümümle tamamen aynı .

Alır bir kod noktası aracılığıyla girdi örn STDIN'den gelen "!" = 33 -> 75.

Python 2, 58 bayt

i=n=input()
while~-i:n+=(n%i<1)*i*(n/i%2*2-1);i-=1
print n

Diğer cevapların çoğu gibi, fikir de geriye doğru çalışmaktır.

Şimdi adım k+1adım diyelim i, böylece adım adım ikatları ideğiştirilir. İki basit gözleme ihtiyacımız var:

• Pozisyon ndizide sadece adımında takas edilir ieğer nbölünemeyen i,
• Takasta daha düşük veya daha yüksek sayı olup olmadığını söylemek için, bakın n/i mod 2. Eğer bu 1 ise, en düşük sayı sizsinizdir (ve değişecektir), aksi takdirde en yüksek sayı sizsiniz demektir (ve aşağıya doğru kaybedersiniz).

Bu bize geriye doğru çalışmak için bir algoritma veriyor. Son adımdan başlayarak 6 ile deneyelim i = 6:

Step 6: Position 6 swaps with position 12 (6 is divisible by 6, 6/6 = 1 == 1 mod 2)

Şimdi sayının 12 konumundan geldiğini biliyoruz. Sonra:

Step 5: No swap (12 not divisible by 5)
Step 4: Position 12 swaps with position 16 (12 is divisible by 4, 12/4 = 3 == 1 mod 2)

Şimdi bunun 16'dan önce geldiğini biliyoruz. En sonunda:

Step 3: No swap (16 not divisible by 3)
Step 2: Position 16 swaps with position 14 (16 divisible by 2, 16/2 = 8 == 0 mod 2)

Bu ilk adım olduğu için (hatırlayın k+1) bittik ve 6. pozisyonda biten sayı başlangıçta 14 konumundan geliyor, yani 6. av tüfeği sayısı 14.

Şimdi Python açıklaması için:

i=n=input()             Read input, and store into i (step) and n (position)
while~-i:               while i-1 != 0:, or since we're descending with i this is just while i>1:
  n+=                   Add to the current position...
    (n%i<1)*            1* whatever's next if n is divisible by i, otherwise 0* (i.e. nothing)
    i*                  How many positions n might go up/down
    (n/i%2*2-1)         n/i%2 tell us higher/lower, *2-1 maps 0 or 1 to -1 (down) or +1 (up)
  i-=1                  Decrement the step number
print n                 Output

Haskell, 68 bayt

n#k|mod k(2*n)<1=k-n|mod k n<1=k+n|k>0=k
s n=foldr((.).(#))id[2..n]n

Muhtemelen daha da golf oynayabilir, özellikle de ilk sırada. Bu , th tüfeği numarasını salan nve döndüren bir işlevi tanımlar n.

map s [1..66]
[1,4,8,6,12,14,16,9,18,20,24,26,28,22,39,15,36,35,40,38,57,34,48,49,51,44,46,33,60,77,64,32,75,56,81,68,76,58,100,55,84,111,88,62,125,70,96,91,98,95,134,72,108,82,141,80,140,92,120,156,124,94,121,52,152,145]

açıklama

Yardımcı işlev #iki sayı alır nve her bir sayıya çift ​​değiştirme işlemi uygulanarak tanımlanan listede bu sayıyı kdöndürür . Örneğin, bunu ilk 20 sayıya uygulayarak şunu verir:knn = 4

map (4#) [1..20]
[1,2,3,8,5,6,7,4,9,10,11,16,13,14,15,12,17,18,19,24]

Bunun sonucu s n, listeyi bir sayı ve bir işlev (başlangıçta kimlik işlevi ) alan ve alan ve döndüren bir işlevi döndüren [2..n]ikinci dereceden işlev ile küçültmek ("katlamak") ile elde edilir . Örneğin , liste alan ve dönen bir işleve indirgenir . Yalnızca temel durum için gerekli olan listesi boş. Son olarak, bu fonksiyona thgungun sayısını elde ederek girdi verdik .(.).(#)mfidkf (m # k)n = 4[2,3,4]kid (4 # (3 # (2 # k)))idn = 1k = nn

CJam, 32 bayt

Sadece noktaya spec izliyor. Daha büyük bir sette talimatları Koşu n etkilemez şekilde ^inci numarayı.

ri:N)2#,:)N{))/2/{:)~\@}%:+}/N(=

Burada çevrimiçi deneyin

Ruby, 92 bayt

def s(d,n)
d==1?n:s(d-1,n%d==0?n+(n%(d*2)==0?-d :d):n)
end
n=ARGV[0].to_i
print s(n,n).to_s

İlk kod golf çabam. Başka hiçbir cevaba göre değil.

Şimdi diğerlerinden bazılarına baktığımda, girdi kabul eden ve çıktı üreten tam bir program değil, sadece bir işlev tanımladığının farkındayım. OP, giriş ve çıkış ile komple bir program istedi. Bu tür gereksinimleri görmezden gelmek geleneksel mi?

84 Bayt

n=ARGV[0].to_i
d=n
while d>1
n+=(n%d==0?(n%(d*2)==0?-d :d):0)
d-=1
end
print n.to_s

Diğer cevaplara bakıp yinelemeli bir çözümün mümkün olduğunu fark ettikten sonra.

Python 2, 97 79 karakter

g=lambda n,k:n>1and g(n-1,k-(k%n<1)*n*(-1)**(k/n%2))or k
n=input()
print g(n,n)

Her indeks için doğru değeri tekrar tekrar takip ederek doğru değeri belirler. Algoritma bağımsız keşfedildi.

düzenleme: Şimdi nilk numara yerine sadece th sayısını yazdırır n. Elbette yinelemeli bir yaklaşım daha kısa olacaktır, ancak Sp3000'in kodunu kopyalamak istemiyorum.

Haskell, 79 bayt

1#i=i
s#i|i`mod`(2*s)==0=(s-1)#(i-s)|i`mod`s==0=(s-1)#(i+s)|1<2=(s-1)#i
p n=n#n

Kullanım: p 66hangi çıktılar145

Açıklamak için çok fazla şey yok: İşlev #, tüfek sayısını iadım konumunda tekrarlı olarak hesaplar s. adımdaki p nsayıyı döndürür .nn

k, 41 bayt

{{x+$[y!x;0;$[2!_x%y;y;-y]]}/[x;|2+!x-1]}

 / apply to an int
 {{x+$[y!x;0;$[2!_x%y;y;-y]]}/[x;|2+!x-1]} 42
111
 / apply to 1 through 66
 {{x+$[y!x;0;$[2!_x%y;y;-y]]}/[x;|2+!x-1]}'1+!66
1 4 8 6 12 14 16 9 18 20 24 26 28 22 39 15 36 35 40 38 57 34 48 49 51 44 46 33 60 77 64 32 75 56 81 68 76 58 100 55 84 111 88 62 125 70 96 91 98 95 134 72 108 82 141 80 140 92 120 156 124 94 121 52 152 145

• {...} lambda, x ve y, örtük 1. ve 2. argümandır
• $[b;t;f] üçlü operatör, sırasıyla b ve ardından t / f değerini değerlendirir.
• b!a bir modulo b
• _ zemin, bölmenin sonucunu bir int a çevirir
• % bölünme
• {...}/[x;y] prime {...}, x ile y listesi üzerine uygulanır, f [f [.. f [f [x; y0]; y1]; .. yn-1]; yn] 'ye eşdeğerdir
• | ters
• ! iota işlevi, 0 ile n-1 arası bir liste oluşturur

Common Lisp, 113 91

(yinelemeli: 91)

(defun s(n)(do((r n(1- r)))((= r 1)n)(if(= 0(mod n r))(incf n(* r(if(oddp(/ n r))1 -1))))))

(orijinal, özyineli: 113)

(defun s(n &optional(r n))(cond((= r 1)n)((= 0(mod n r))(s(+ n(* r(if(oddp(/ n r))1 -1)))(1- r)))(t(s n(1- r)))))

Örnek

Özyinelemeli versiyonu ile:

(trace s)
(s 10)

  0: (S 10)
    1: (S 20 9)
      2: (S 20 8)
        3: (S 20 7)
          4: (S 20 6)
            5: (S 20 5)
              6: (S 15 4)
                7: (S 15 3)
                  8: (S 18 2)
                    9: (S 20 1)
                    9: S returned 20
         ...
    1: S returned 20
  0: S returned 20

Testler

Yinelemeli sürüm için kontroller ve önlemler:

(let ((list '(1 4 8 6 12 14 16 9 18 20 24 26 28 22 39 15 36 35 40 38 57 34 48 49 51 44
              46 33 60 77 64 32 75 56 81 68 76 58 100 55 84 111 88 62 125 70 96 91 98 95
              134 72 108 82 141 80 140 92 120 156 124 94 121 52 152 145)))
  (time
   (loop for r in list
         for n from 1
         always (= r (s n)))))

 => T

Evaluation took:
  0.000 seconds of real time
  0.000000 seconds of total run time (0.000000 user, 0.000000 system)
  100.00% CPU
  807,160 processor cycles
  32,768 bytes consed

Mathematica, 53 49 bayt

(For[i=n=#,n>1,--n,If[n∣i,i+=Mod[i,2n]2-n]];i)&

Referans uygulamamı golf yapmaya karar verdim. ∣3 bayt için "böler", ve sayıları için Unicode sembolüdür. Aksi takdirde, bu herkesle aynı algoritmayı kullanır.

nTek bir parametre olarak alan ve nth Shotgun numarasını döndüren adlandırılmamış bir işlev tanımlar .

GolfScript, 27 karakter

~.,(~%{):i\.@%!~)1$i/?i*-}/

açıklama

Eğer f(i, n)pozisyonda değerdir nsonra i-1dönüşümler, elimizdeki

f(1, n) = n
f(i, n) = f(i - 1, n % i == 0 ? (((n / i - 1) ^ 1) + 1) * i : n)  for i > 1

burada ^bitsel xor; Girilen nveriyi hesaplamak istiyoruz f(n, n).

Özyinelemeli bir işlevden bir döngüye dönüşüm ilginçtir; ilginç olan, hangi şekilde olduğu

n % i == 0 ? (((n / i - 1) ^ 1) + 1) * i : n

yeniden yazılabilir. Daha açık bir yaklaşım olması gerektiğini söylemek

n + (n % i == 0 ? i : 0) * g(n / i)

bazıları için g. Açıkçası garasında değişir 1ve -1pozisyonları dönüşümlü yukarı ve aşağı takas olarak; o zamandan beri g(1) = 1( 1takas 2ettiğimiz için ),

n + (n % i == 0 ? i : 0) * -1**(1 + n / i)

üstelleştirmeyi **ifade eder. Son tasarruf, bu şekilde yeniden yazmaktan geliyor

n - i * (n % i == 0 ? -1 : 0)**(n / i)

teşrih

~             # Evaluate input to get n
.,(~%{        # For n-1 downto 1...
  ):i         #   Let i be that value + 1, so for i = n downto 2...
  \.@%!       #   Find n % i == 0 ? 1 : 0
  ~)          #   Negate
  1$i/?       #   Raise to the power of n/i
  i*-         #   Multiply by i and subtract
}/

CJam, 24 bayt

l~__(,f-{_Imd!~)\#I*-}fI

Çevrimiçi demo

Bu benim GolfScript cevabımın bir limanı, Martin CJam'in cevabından bir döngü ödünç alıyor ve CJam'ın divmodoperatörünü kullanıyor. ( Yararlı olacağını söyledim !).

Julia, 61 57 bayt

n->(i=n;while~-i!=0 n+=(n%i<1)*i*(n÷i%2*2-1);i-=1;end;n)

Bu, tek bir argüman alan nve nth shotgun sayısını döndüren adsız bir işlev yaratır . Aramak için bir isim verin, örneğin f=n->(...).

Örnekler:

julia> for i = 1:10 println(f(i)) end
1
4
8
6
12
14
16
9
18
20

Şu anda bu @ Sp3000'in harika Python cevabına dayanmaktadır . Bunu en kısa zamanda tekrar ziyaret edeceğim çünkü bunu Julia'da yapmanın benim yaptığımdan daha kısa bir yolu olmalı. Her zaman olduğu gibi herhangi bir giriş açığız.

GML, 76 bayt

n=argument0;i=n;while~-1{n+=(n mod i<1)*i*(n/i mod 2*2-1)i--}show_message(n)

GML hakkında bilgi

CJam, 28 27 bayt

Yani bu biraz utanç verici ... bunu göndermeden önce, kendim golf oynamayı denedim ve CJam'da 30 bayta ulaştım. Mevcut cevapların hiçbiri henüz bunu geçmedi. Bu arada ben de üç bayt daha tıraş etmeyi başardım. Orada olan bir yorumda daha kısa Pyth çözümü, ancak daha kısa bir şey bu yüzden burada bir cevap gönderildi. Belki de APL / J insanlarına, kendi cevabımı kabul etmeden önce biraz daha fazla (ya da aslında Pyth çözümünü gönderen) denemeleri için ilham veriyor. ;)

l~__(,f-{_I_+%_+I-_zI=*+}fI

Burada test et.

açıklama

l~                          "Read input N and eval.";
  __(,                      "Duplicate twice, create range [0 1 2 ... N-2].";
      f-                    "Subtract each from N, giving [N N-1 N-2 ... 2].";
        {               }fI "For each element, storing the element in I.";
         _I_+%_+I-          "Compute 2(N % 2I)-I - the shuffling offset";
                  _zI=      "Check that this offset is ±I.";
                      *+    "Multiply the offset by this boolean and update to N.";

J, 3432 bayt

   (]+[*(1-~2*2|%~)*0=|)/@(_1}2+i.)

   ((]+[*(1-~2*2|%~)*0=|)/@(_1}2+i.)) every 1+i.20  NB. running with inputs 1..20
1 4 8 6 12 14 16 9 18 20 24 26 28 22 39 15 36 35 40 38

Biraz daha golf oynamaya çalışacağım ve daha sonra bir açıklama ekleyeceğim.

Burada çevrimiçi deneyin.

TI-Basic 83/84, 40 bayt

Input A:For(I,A,2,~1:A+(AfPart(I/2)-1)I(1>IfPart(A/I->A:End:A

TI-Basic Hakkında Bilgi

Ruby, 57 47 bayt

Bu aslında Sp3000'ün Python çözümüdür ( xnor'ın önerisiyle ) Ruby'ye çevrilmiştir. Muhtemelen birkaç yerde golf oynayabilirim.

->n{n.downto(2).map{|i|n+=i*(n/i%2-~-n/i%2)};n}