Sonsuz zaman ve hafıza verildiğinde tüm tamsayıları kesin olarak basacak bir program veya işlev yazın .

Olası çıktılar şunlar olabilir:

0, 1, -1, 2, -2, 3, -3, 4, -4, …

0, 1, 2, 3, 4, 5, 6, 7, 8, 9, -1, -2, -3, -4, -5, -6, -7, -8, -9, 10, 11, …

Bu, hiçbir zaman negatif sayıları saymayacağından geçerli bir çıktı değildir:

0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11,…

• Diliniz ondalık tamsayıyı desteklemediği sürece, çıktının ondalık olması gerekir (bu durumda dilinizin kullandığı tamsayıların doğal gösterimini kullanın).

• Programınız, dilinizin standart tamsayı tipinin en büyük büyüklüğüne sahip sayıları bulmalıdır.

• Her tamsayı bir dilden veya dilinizin negatif işareti olmayan herhangi bir ayırıcı (boşluk, virgül, satır sonu vb.) Kullanılarak ayrılmalıdır.

• Ayırıcı herhangi bir noktada değişmemelidir.

• Ayırıcı, hiçbiri bir rakam veya negatif bir işaret olmadıkça (örneğin , , sadece olduğu kadar geçerlidir ,) birden çok karakterden oluşabilir .

• Desteklenen herhangi bir tamsayı sonunda belirli bir süre sonra yazdırılmalıdır.

puanlama

Bu kod golf , yani bayt cinsinden en kısa cevap kazanır.

Liderler Sıralaması

var QUESTION_ID=93441,OVERRIDE_USER=41723;function answersUrl(e){return"https://api.stackexchange.com/2.2/questions/"+QUESTION_ID+"/answers?page="+e+"&pagesize=100&order=desc&sort=creation&site=codegolf&filter="+ANSWER_FILTER}function commentUrl(e,s){return"https://api.stackexchange.com/2.2/answers/"+s.join(";")+"/comments?page="+e+"&pagesize=100&order=desc&sort=creation&site=codegolf&filter="+COMMENT_FILTER}function getAnswers(){jQuery.ajax({url:answersUrl(answer_page++),method:"get",dataType:"jsonp",crossDomain:!0,success:function(e){answers.push.apply(answers,e.items),answers_hash=[],answer_ids=[],e.items.forEach(function(e){e.comments=[];var s=+e.share_link.match(/\d+/);answer_ids.push(s),answers_hash[s]=e}),e.has_more||(more_answers=!1),comment_page=1,getComments()}})}function getComments(){jQuery.ajax({url:commentUrl(comment_page++,answer_ids),method:"get",dataType:"jsonp",crossDomain:!0,success:function(e){e.items.forEach(function(e){e.owner.user_id===OVERRIDE_USER&&answers_hash[e.post_id].comments.push(e)}),e.has_more?getComments():more_answers?getAnswers():process()}})}function getAuthorName(e){return e.owner.display_name}function process(){var e=[];answers.forEach(function(s){var r=s.body;s.comments.forEach(function(e){OVERRIDE_REG.test(e.body)&&(r="<h1>"+e.body.replace(OVERRIDE_REG,"")+"</h1>")});var a=r.match(SCORE_REG);a&&e.push({user:getAuthorName(s),size:+a[2],language:a[1],link:s.share_link})}),e.sort(function(e,s){var r=e.size,a=s.size;return r-a});var s={},r=1,a=null,n=1;e.forEach(function(e){e.size!=a&&(n=r),a=e.size,++r;var t=jQuery("#answer-template").html();t=t.replace("{{PLACE}}",n+".").replace("{{NAME}}",e.user).replace("{{LANGUAGE}}",e.language).replace("{{SIZE}}",e.size).replace("{{LINK}}",e.link),t=jQuery(t),jQuery("#answers").append(t);var o=e.language;/<a/.test(o)&&(o=jQuery(o).text()),s[o]=s[o]||{lang:e.language,user:e.user,size:e.size,link:e.link}});var t=[];for(var o in s)s.hasOwnProperty(o)&&t.push(s[o]);t.sort(function(e,s){return e.lang>s.lang?1:e.lang<s.lang?-1:0});for(var c=0;c<t.length;++c){var i=jQuery("#language-template").html(),o=t[c];i=i.replace("{{LANGUAGE}}",o.lang).replace("{{NAME}}",o.user).replace("{{SIZE}}",o.size).replace("{{LINK}}",o.link),i=jQuery(i),jQuery("#languages").append(i)}}var ANSWER_FILTER="!t)IWYnsLAZle2tQ3KqrVveCRJfxcRLe",COMMENT_FILTER="!)Q2B_A2kjfAiU78X(md6BoYk",answers=[],answers_hash,answer_ids,answer_page=1,more_answers=!0,comment_page;getAnswers();var SCORE_REG=/<h\d>\s*([^\n,]*[^\s,]),.*?(\d+)(?=[^\n\d<>]*(?:<(?:s>[^\n<>]*<\/s>|[^\n<>]+>)[^\n\d<>]*)*<\/h\d>)/,OVERRIDE_REG=/^Override\s*header:\s*/i;

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><td>Language</td><td>Size</td></tr></thead> <tbody id="answers"> </tbody> </table> </div><div id="language-list"> <h2>Winners by Language</h2> <table class="language-list"> <thead> <tr><td>Language</td><td>User</td><td>Score</td></tr></thead> <tbody id="languages"> </tbody> </table> </div><table style="display: none"> <tbody id="answer-template"> <tr><td>{{PLACE}}</td><td>{{NAME}}</td><td>{{LANGUAGE}}</td><td>{{SIZE}}</td><td><a href="{{LINK}}">Link</a></td></tr></tbody> </table> <table style="display: none"> <tbody id="language-template"> <tr><td>{{LANGUAGE}}</td><td>{{NAME}}</td><td>{{SIZE}}</td><td><a href="{{LINK}}">Link</a></td></tr></tbody> </table>

Sesos , 11 ₃ 3 bayt

0000000: c4ceb9                                            ...

Çevrimiçi deneyin! Kontrol Debug oluşturulan SBIN kodunu görmek için.

Sesos derleme

Yukarıdaki ikili dosya aşağıdaki SASM kodunu birleştirerek oluşturulmuştur.

set numout

jmp ; implicitly promoted to nop
    put,   fwd 1
    sub 1, put
    rwd 1, add 1
; jnz (implicit)

Haskell, 19 bayt

do n<-[1..];[1-n,n]

Sonsuz listesini üretir [0,1,-1,2,-2,3,-3,4,-4,5,-5,6,-6,7,-7...

Haskell, sonsuz listeleri yerel olarak sağlar. Böyle bir listeyi yazdırmak, elemanlarını sonsuza dek bir defa basar.

Brainfuck, 6 bayt

Bu hücre sargısını kullanır ve olası tüm değerleri yazdırır. Brainfuck'ta, yerel tamsayı gösterimi bayt değerine göredir .

.+[.+]

Çevrimiçi deneyin!

Cubix , 14 12 bayt

.(.\OSo;?.>~

Çevrimiçi test edin! Şimdi daha hızlı veya daha yavaş çalışmasını istiyorsanız, hızı ayarlayabilirsiniz.

Nasıl çalışır

Tercümanın yaptığı ilk şey tüm boşlukları kaldırmak ve .bir küp üzerine mükemmel bir şekilde oturana kadar no-ops ile kodu doldurmak . Bu, yukarıdaki kodun şöyle yazılabileceği anlamına gelir:

    . (
    . \
O S o ; ? . > ~
. . . . . . . .
    . .
    . .

Şimdi kod çalıştırıldı. IP (talimat göstergesi), en soldaki yüzün sol üst köşesinde, doğuya işaret ederek başlar. İşte programın çalıştırılması boyunca izlenen yollar:

IP, görüntünün en solundaki kırmızı izde başlar. Sonra çalışır OSo;, aşağıdakileri yapar:

• OTOS'u (yığının en üstünde) bir tamsayı olarak yazdırın. Programın başında, yığın sonsuz sıfırlar içeriyor, bu yüzden yazdırılıyor 0.
• S32Boşluk karakterinin karakter kodunu itin .
• oTOS'u bir karakter olarak yazdırın. Bu bir boşluk basar.
• ;TOS'u patlat. 32Yığından gelenleri kaldırır .

Şimdi IP ?, TOS'un işaretine bağlı olarak sola, sağa veya dümdüze yönlendiren isabet eder . Şu anda, TOS 0, bu yüzden düz gider. Bu mavi yoldur; .hiçbir şey yapmaz ve IP >onu tekrar kırmızı yol boyunca doğuya yönlendiren oka vurur . ~TOS'un bittiğini DEĞİL alır, değiştirerek -1.

Burada IP, onu sola doğru geri sararak ağın sağ kenarına ulaşır; bu yine TOS'u (bu sefer -1) ve bir alanı yazdırır .

Şimdi IP ?tekrar vurur . Bu kez, TOS -1; bu negatif olduğu için IP yeşil yoldan sola döner. Ayna \IP'yi, TOS'u (azaltan, konumuna değiştiren yere indirir -2. Geri dönüyor ve oku vuruyor; ~dönüm, bit DEĞİL tekrar alır -2için 1.

Yine TOS yazdırılır ve bir alan yazdırılır. IP bu kez vurduğunda ?, TOS 1; bu pozitif olduğu için IP sarı yoldan sağa döner. Karşılaştığı ilk operatör S, fazladan itmek 32; ;o herhangi bir sorun neden olabilir önce onu çıkar.

Artık IP ok etrafında dönüyor ~ve TOS'u değiştirerek -2ve Oyazdırırken rutini gerçekleştiriyor . TOS tekrar negatif olduğu için IP yeşil yoldan bir kez daha geçer. Ve sonsuza dek böyle sürmeye devam ediyor *: kırmızı, yeşil, kırmızı, sarı, kırmızı, yeşil, kırmızı, sarı ...

0 -1 1 -2 2 -3 3 -4 4 -5 5 -6 6 -7 7 -8 8 -9 9 -10 10 ...

TL; DR

Bu program tekrar tekrar bu 3 kolay adımdan geçer:

1. Geçerli sayıyı ve boşluğu girin.
2. Geçerli sayı negatifse, 1 ile azaltın.
3. Geçerli numaradan bit bit NOT al.

Ayrılmamış versiyon, 6 bayt

nO?~>~

Ayırmanın kaldırılması, programı ünite küpüne sığabilecek kadar basitleştirir:

  n
O ? ~ >
  ~

* Not : Hiçbir program gerçekten sınırsızdır, çünkü sadece 2 ^52'ye kadar sayılır (JavaScript tam sayı hassasiyetini kaybetmeye başlar).

MATL , 8 bayt

0`@_@XDT

Bu MATL'ın varsayılan veri tipini kullanır double, yani 2^53mutlak değerde çalışır. Çıktı

0
-1
1
-2
2
···

Çevrimiçi deneyin!

açıklama

0            % Push 0
  `     T    % Do...while true: infinite loop
   @_        % Push iteration index and negate
     @       % Push iteration index
      XD     % Display the whole stack

Shakespeare Programlama Dili , 227 bayt

.
Ajax,.
Puck,.
Act I:
Scene I:
[Enter Ajax,Puck]
Puck:You ox!
Ajax:Be me without myself.Open thy heart.
Scene II:      
Ajax:Be thyself and ash.Open thy heart.Be me times you.Open thy heart.Be me times you.Let us return to scene II.

Açıkçası, bu cevap kazanmaya yakın bir yer değil, ancak bunun SPL'nin buna uygun bir kullanım olayı olduğunu sevdim.

Açıklaması:

// Everything before the first dot is the play's title, the parser treats it as a comment.
.

// Dramatis personae. Must be characters from Shakespeare's plays, again with a comment.
Ajax,.
Puck,.

// Acts and scenes serve as labels. Like the whole play, they can have titles too,
// but for the sake of golfing I didn't give them any.
Act I:

// This scene would've been named "You are nothing"
Scene I:

// Characters can talk to each other when on stage
[Enter Ajax,Puck]

// Characters can assign each other values by talking. Nice nouns = 1, ugly nouns = -1.
Puck: You ox!                 // Assignment: $ajax = -1;
Ajax: Be me without myself.   // Arithmetic: $puck = $ajax - $ajax;
      Open thy heart.         // Standard output in numerical form: echo $puck;

// Working title "The circle of life"
Scene II:

// Poor Ajax always doing all the work for us
Ajax: Be thyself and ash.          // $puck = $puck + (-1);
      Open thy heart.              // echo $puck;
      Be me times you.             // $puck *= $ajax;  (remember $ajax==-1 from scene I)
      Open thy heart.              // echo $puck;
      Be me times you.             // negate again
      Let us return to scene II.   // infinite goto loop

Bu kodu karşılaştırırken gördüğüm kadarıyla sonsuza kadar saymak için (yani tüm doğal sayıları yazdırmak) ilgili zorluklara verdiğim cevapta , sorun boyutu arttıkça SPL kod uzunluğu oldukça kötü büyüyor ...

Python 2,27 bayt

n=0
while 1:print~n,n,;n+=1

Baskılar -1 0 -2 1 -3 2 -4 3 ...

05AB1E , 9 6 bayt

Adnan sayesinde 3 bayt kurtarıldı

[ND,±,

Çevrimiçi deneyin!

Yeni 0, -1, 1, -2, 2 ...satırlarla ayrılmış baskılar .

GNU sed, 189 + 2 (rn bayrakları) = 191 bayt

Sed'nin tamsayı türü veya aritmetik işlemi olmadığından, bu muhtemelen en uzun çözümdür. Bu nedenle, sadece normal ifadeler kullanarak rastgele bir boyut artış operatörü taklit etmek zorunda kaldım .

s/^/0/p
:
:i;s/9(@*)$/@\1/;ti
s/8(@*)$/9\1/
s/7(@*)$/8\1/
s/6(@*)$/7\1/
s/5(@*)$/6\1/
s/4(@*)$/5\1/
s/3(@*)$/4\1/
s/2(@*)$/3\1/
s/1(@*)$/2\1/
s/0(@*)$/1\1/
s/^@+/1&/;y/@/0/
s/^/-/p;s/-//p
t

Çalıştırmak:

echo | sed -rnf all_integers.sed

Çıktı:

0
-1
1
-2
2
-3
3
etc.

Brainfuck, 127 bayt

+[-->+>+[<]>-]>-->+[[.<<<]>>-.>>+<[[-]>[->+<]++++++++[-<++++++>>-<]>--[++++++++++>->-<<[-<+<+>>]]>+>+<]<<<[.<<<]>>.+.>[>>>]<<<]

Çevrimiçi deneyin!

Sonsuz bir kaset verilen teorik olarak sonsuza dek koşacaktı.

0,1,-1,2,-2,3,-3,4,-4,5,-5,6,-6,7,-7,8,-8,9,-9,10,-10,11,-11,12,-12,13,-13,14,-14,15,-15,16,-16,17,-17,18,-18,19,-19,20,-20,21,-21,22,-22,23,-23,24,-24,25,-25,26,-26,27,-27,28,-28,29,-29,30,-30,31,-31,32,-32,33,-33,34,-34,35,-35,36,-36,37,-37,38,-38,39,-39,40,-40,41,-41,42,-42,43,-43,44,-44,45,-45,46,-46,47,-47,48,-48,49,-49,50,-50,51,-51,52,-52,53,-53,54,-54,55,-55,56,-56,57,-57,58,-58,59,-59,60,-60,61,-61,62,-62,63,-63,64,-64,65,-65,66,-66,67,-67,68,-68,69,-69,70,-70,71,-71,72,-72,73,-73,74,-74,75,-75,76,-76,77,-77,78,-78,79,-79,80,-80,81,-81,82,-82,83,-83,84,-84,85,-85,86,-86,87,-87,88,-88,89,-89,90,-90,91,-91,92,-92,93,-93,94,-94,95,-95,96,-96,97,-97,98,-98,99,-99,...

sıkıştırılmamış

+[-->+>+[<]>-]>-->+
[
  [.<<<]>>-.>>+<
  [[-]>[->+<]
    ++++++++[-<++++++>>-<]>--
    [++++++++++>->-<<[-<+<+>>]]>+>+<
  ]<<<
  [.<<<]>>.+.>
  [>>>]<<<
]

ShadyAsFuck , 3 bayt

FVd

Açıklama:

F     prints the current cell value (0) and increases it by 1
 V    starts a loop and prints the current value
  d   increases the current value and ends the loop

Bu hücre sargısını kullanır ve olası tüm değerleri yazdırır. SAF'ta, yerel tamsayı gösterimi bayt değerine göredir .

R, 25 24 bayt

@JDL sayesinde bir bayt golf attı.

repeat cat(-F,F<-F+1,'')

Çevrimiçi deneyin!

Örnek çıktı:

0 1 -1 2 -2 3 -3 4 -4 5 -5 6 -6 7 -7 8 -8 9 -9 10 

Toplu iş, 56 bayt

@set n=0
:l
@echo %n%
@set/an+=1
@echo -%n%
@goto l

Çıktı:

0
-1
1
-2
2
-3

vb 2147483647'ye kadar çalışır; 58 bayt isterseniz (-) 2147483648 çıktıda:

@set n=0
:l
@echo %n:-=%
@set/an-=1
@echo %n%
@goto l

Desteklenen tüm pozitif tam sayıların yazdırılması, ardından desteklenen tüm negatif tam sayıların yazdırılması ve ardından sonsuz bir şekilde tekrarlanması durumunda 44 bayt kabul edilebilir:

@set n=0
:l
@echo %n%
@set/an+=1
@goto l

Java 7, 151 134 122 118 bayt

import java.math.*;void c(){for(BigInteger i=BigInteger.ONE,y=i;;i=i.add(y))System.out.println(y.subtract(i)+"\n"+i);}

@Flawr (ve @xnor dolaylı olarak) sayesinde 12 bayt kaydedildi

Kural değişikliğinden sonra .. ( 59 56 63 bayt)

void c(){for(int i=0;i>1<<31;)System.out.println(~--i+"\n"+i);}

Java’dan beri, sınırsız sayıda devam 2147483647 + 1 = -2147483648edemeyiz i++, çünkü zorluk tüm sayıları bir kez basmaktı. Katma aralığı ile yukarıdaki kod ile, bunun yerine tüm tamsayıları yazdırır -2147483648için 2147483647aşağıdaki sırayla, her bir kere: 0, -1, 1, -2, 2, -3, 3, -4, ..., 2147483646, -2147483647, 2147483647, -2147483648. Java'nın / ile ilgili davranışını gösterdiği için @ OlivierGrégoire'a teşekkür ederiz . Burada dene.MIN_VALUE-1MAX_VALUE+1

Ungolfed ve test kodu:

Burada deneyin - çalışma zamanı hatasıyla sonuçlanır

import java.math.*;
class M{
  static void c() {
    for(BigInteger i = BigInteger.ONE, y = i; ; i = i.add(y)){
      System.out.println(y.subtract(i) + "\n" + i);
    }
  }

  public static void main(String[] a){
    c();
  }
}

Çıktı:

0
1
-1
2
-2
3
-3
4
-4
5
-5
...

DC (GNU veya OpenBSD lezzet) - 16 bayt

Bu sürüm aşağıdaki sürümden daha kısa değildir ancak PC'nizde patlayan bir yığın olmadan çalışabilmelidir. Yine de sonsuz büyük sayılar sonsuz miktarda hafıza alacaktır ... bir süre ...

rKomut nedeniyle GNU-DC veya OpenBSD-DC'ye ihtiyaç duyar .

0[rp1+45Pprdx]dx

Ölçek:

$ dc -e '0[rp1+45Pprdx]dx' | head
0
-1
1
-2
2
-3
3
-4
4
-5

DC - 16 bayt

Şimdi biraz demek istiyorum. ;-)

Bu sürüm, yığının büyümesine izin verirken yığının uzunluğunu sayaç olarak kullanıyor.

z[pz45Ppllx]dslx

Ölçek:

$ dc -e 'z[pz45Ppllx]dslx' | head
0
-1
1
-2
2
-3
3
-4
4
-5

DC - 17 bayt

Kirli numaralar olmadan.

0[p1+45Ppllx]dslx

Ölçek:

$ dc -e '0[p1+45Ppllx]dslx' | head
0
-1
1
-2
2
-3
3
-4
4
-5

C # 74 bayt

class P{void Main(){for(var x=0m;;System.Console.Write(x+++","+-x+","));}}

class P
{
    void Main()
    {
        for(var x = 0m; ; System.Console.Write(x++ + "," + -x + ","));
    }
}

Çıktı:

0,-1,1,-2,2,-3,3,-4,4,-5,5,-6,6,-7,7,-8,8,-9,9,-10,10,...

Dene:

dotnetfiddle.net (1000 ile sınırlı)

Ruby, 26 22 19 16 bayt

Yeni satırlarla ayrılmış sayıları yazdırır. @Manatwork'ten -3 bayt. @ M-chrzan'dan -3 bayt.

0.step{|n|p~n,n}

JavaScript, 29 26 bayt

Sonsuz olmayan versiyon, 26 bayt

ETHproductions sayesinde 3 bayt kurtardı

for(n=1;;)alert([1-n,n++])

-9007199254740991 ve 9007199254740992 arasındaki tüm tamsayıları gösterecektir.

Sonsuz versiyon (ES6), 114 112 bayt

ETHproductions sayesinde 2 bayt kurtardı

for(n=[-1];1;alert(n[a||n.unshift(1),0]?(x=n.join``)+' -'+x:0))for(i=n.length,a=0;i--;a=(n[i]+=1-a)>9?n[i]=0:1);

sonsuz zaman ve hafıza verilen tüm tamsayıları gösterecektir.

> <> , 19 15 bayt

1::1$-naonao1+!

Bu, aşağıdakileri yazdırır:

0
1
-1
2
-2
3
-3

... ve bunun gibi. Ayırıcı yeni bir satırdır.

Bu algoritmanın bir sürümünü kullanmak için @ xnor'ın cevabını okuduktan sonra yeniden yazıldı. Başlangıçta n=1, program , her birini arttırmadan önce 1-nve nardından her biri bir yeni satır izler n. Maksimum değerin aşılmasından sonra program bir hatayla bitecektir something smells fishy.... Bunun tam olarak ne zaman gerçekleşeceği tercüman uygulamasına bağlıdır.

Önceki versiyon:

0:nao0$-:10{0(?$~+!

0'dan başlayarak, program süresiz olarak döngüye girer. Her döngüde, geçerli değer yeni bir satırla birlikte yazdırılır. Daha sonra olumsuzlanır ve pozitifse arttırılır.

Bash + GNU yardımcı programları, 26

seq NaN|sed '1i0
p;s/^/-/'

bc, 17 16 bayt

Düzenleme: Dijital Travma sayesinde 1 bayt daha az .

Şimdiye kadar kullanılan dil çeşitliliğine ek olarak, keyfi büyüklükte tamsayılarla çalışan bir bc çözümü sunuyorum . Koddan sonra bir yeni satır gerekir ve toplam bayt olarak sayılır.

for(;;){i;-++i}

İlk yinelemede itanımlanmadı, ancak yazdırmak benim sürprizime 0 veriyor.

Labirent , 9 bayt

!`
\:"
 (

Çevrimiçi deneyin!

Bu aynı zamanda çalışır ve aslında aynıdır:

 "
`:(
\!

açıklama

Bu koddaki kontrol akışı oldukça komik. Bir Labyrinth programındaki talimat göstergesinin (IP) boşluksuz karakterlerin yolunu takip ettiğini ve hangi yolun alınacağına karar vermek için herhangi bir kavşakta yığının tepesini incelediğini unutmayın:

• Yığının üstü pozitifse, sağa dönün.
• Yığının üstü sıfırsa, düz ilerlemeye devam edin.
• Yığının üstü negatifse, sola dönün.

IP bir çıkmaza çarptığında, etrafında döner (komutu yalnızca bir kez çalıştırma). Ve IP, sol üst köşede doğuya doğru hareket ederek başlar. Ayrıca yığının başından itibaren sınırsız sayıda sıfırla dolu olduğunu unutmayın.

Program bu kısa bit ile başlar:

!    Print top of stack (0).
`    Multiply by -1 (still 0).
:    Duplicate.

Şimdi IP, ilgili kavşakta ve (yığının tepesini azaltan üzerine dümdüz ilerliyor -1. IP bir çıkmaz isabet eder ve geri döner. :yığının üstünü bir kez daha çoğaltır. Şimdi yığının üstü negatiftir ve IP sola döner (batı). Şimdi ana döngünün bir yinelemesini daha gerçekleştiriyoruz:

\   Print linefeed.
!   Print top of stack (-1).
`   Multiply by -1 (1).
:   Duplicate.

Bu sefer, yığının üstü pozitifdir, bu nedenle IP sağa döner (batı) ve hemen bunu basan ana döngünün başka bir yinelemesini gerçekleştirir 1. Sonra tekrar ihmal edildikten sonra , yığında :ile beraber -1vururuz.

Bu kez IP sola döner (doğu). Bu "sadece bir op-op ve IP çıkmazda dönüyor. :başka bir kopya çıkarır ve bu kez IP güneye döner. (değeri azaltır, -2IP tekrar döner. Yığının üst kısmı hala negatifken, IP şimdi batıya döner :ve ana döngünün bir sonraki yinelemesini yapar.

Bu şekilde IP şimdi, bir negatif sayı yazdırmadan önce değeri azaltmak için sıkı bir döngü yineleme, pozitif bir sayı yazdırmak ve her iki ölü uçtan geçen bir yineleme arasında yinelenecektir.

Sebebisiniz kendinize sorun "olmadan, IP ulaştığında: aslında hiçbir şey yapmaz ise ikinci satırda :negatif değer, bir olamaz (doğu) sola doğru (batıya) açacak, böylece yerine (kural olarak, bir kavşaktaki normal yön mevcut değilse, IP ters yöne dönecektir). Bu, IP'nin asla (dibe asla ulaşamayacağı ve pozitifleri negatif yinelemelerden ayırt edemediğimiz anlamına gelir .

JavaScript (ES5), 32 31 30 29 bayt

for(i=0;;)[i++,-i].map(alert)

Baskılar 0 -1 1 -2 2 -3 3 -4 4 -5 5 ...

Patrick Roberts sayesinde 1 bayt kaydedildi! Conor O'Brien sayesinde 2 bayt kaydedildi!

Java, 65 54 bayt

i->{for(;;)System.out.print(i+++" "+(-i<i?-i+" ":""));

Ungolfed test kodu

public static void main(String[] args) {
    Consumer<Integer> r = i -> {
        for (;;) {
            System.out.print(i++ + " " + (-i < i ? -i + " " : ""));
        }
    };

    r.accept(0);
}

C #, 83 bayt

void f(){for(decimal n=0;;n++){Console.Write(n+",");if(n>0)Console.Write(-n+",");}}

Ungolfed:

void f()
{
  for (decimal n=0;;n++)
  {
    Console.Write(n + ",");
    if (n > 0) Console.Write(-n + ",");
   }
}

Çıktılar:

0,1,-1,2,-2,3,-3,4,-4,5,-5,6,-6.......

C # 86 66 bayt

Yeni cevap:

void b(){for(var i=0;;i++)Console.Write(i==0?","+i:","+i+",-"+i);}

Açık:

void b() 
{
    for(var i=0;;i++)
        Console.Write(i == 0 ? "," + i : "," + i + ",-" + i);
}

Eski cevap (86 bayt):

void a(){Console.Write(String.Join(",",Enumerable.Range(int.MinValue,int.MaxValue)));}

Ungolfed:

void a()
{
    Console.Write(String.Join(",", Enumerable.Range(int.MinValue, int.MaxValue)));
}

J, 25 bayt

([:$:1:`-`(1+-)@.*[echo)0

Çalışır Online sitesinde ama henüz bilgisayarda bunu doğrulamak mümkün değil. Gibi sayıları yazdırır:

0
1
_1
2
_2
3
_3
4

vb.

Powershell, 20 19 18 bayt

TimmyD'in cevabından utanmadan çalmak suretiyle geliştirildi

0;for(){-++$i;$i}

Çıktı:

0
-1
1
-2
2
-3
3
-4
4

Eski versiyon:

for(){-$i;$i++;$i}

Neden tbh, ancak - bildirilmemiş değişken (veya - $ null) 0 olarak değerlendirildi, bu da bizi bu sürümde 2 bayt kurtardı ...

Pyke , 7 2 bayt

~I

Burada dene!

7 bayt

oDID_)r

Burada dene!

+ 0 yazdırılıyorsa, oD_r

Brachylog , 2 bayt

ẉ⊥

Çevrimiçi deneyin!

ẉ     Print with a newline
      the input,
 ⊥    then try again.

Programa giriş verilmediğinden, ana yüklemenin giriş değişkeni sınırsız kalır. İlk başta, 0 olduğu varsayılır, ancak yürütme çarptığında ⊥, olası tek başarısızlık noktasına geri döner : giriş değişkeni için değer seçimi. O zaman 1 ve -1'i dener ve her diğer tam sayı, her birini sonsuza dek yeni satırlarla ayırarak yazdırır çünkü ⊥her zaman geri izlemeyi zorlar ve etkisi ẉhemen uygulanır.