Viết chương trình hoặc hàm có thể in tất cả các số nguyên chính xác một lần cho thời gian và bộ nhớ vô hạn.

Đầu ra có thể có thể là:

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, …

Đây không phải là đầu ra hợp lệ, vì điều này sẽ không bao giờ liệt kê các số âm:

0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, lỗi

• Đầu ra phải ở dạng thập phân, trừ khi ngôn ngữ của bạn không hỗ trợ số nguyên thập phân (trong trường hợp đó sử dụng biểu diễn tự nhiên của số nguyên mà ngôn ngữ của bạn sử dụng).

• Chương trình của bạn phải làm việc với các số có độ lớn nhất của loại số nguyên tiêu chuẩn của ngôn ngữ của bạn.

• Mỗi số nguyên phải được phân tách khỏi số tiếp theo bằng cách sử dụng bất kỳ dấu tách nào (dấu cách, dấu phẩy, ngắt dòng, v.v.) không phải là chữ số cũng không phải là dấu âm của ngôn ngữ của bạn.

• Dải phân cách không được thay đổi tại bất kỳ điểm nào.

• Dấu phân cách có thể bao gồm nhiều ký tự, miễn là không có ký tự nào là chữ số cũng không phải là dấu âm (ví dụ: , có giá trị như chỉ ,).

• Bất kỳ số nguyên được hỗ trợ cuối cùng phải được in sau một khoảng thời gian hữu hạn.

Chấm điểm

Đây là môn đánh gôn , vì vậy câu trả lời ngắn nhất bằng byte sẽ thắng

Bảng xếp hạng

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 byte

0000000: c4ceb9                                            ...

Hãy thử trực tuyến! Kiểm tra gỡ lỗi để xem mã SBIN được tạo.

Sesos lắp ráp

Tệp nhị phân ở trên đã được tạo bằng cách lắp ráp mã SASM sau.

set numout

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

Haskell, 19 byte

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

Tạo danh sách vô hạn [0,1,-1,2,-2,3,-3,4,-4,5,-5,6,-6,7,-7...

Haskell cho phép danh sách vô hạn nguyên bản. In một danh sách như vậy sẽ in các yếu tố của nó một lần mãi mãi.

Brainfuck, 6 byte

Điều này làm cho việc sử dụng gói tế bào và in tất cả các giá trị có thể. Trong Brainfuck, biểu diễn số nguyên gốc là theo giá trị byte .

.+[.+]

Hãy thử trực tuyến!

Khối , 14 12 byte

.(.\OSo;?.>~

Kiểm tra nó trực tuyến! Bây giờ bạn có thể điều chỉnh tốc độ nếu bạn muốn nó chạy nhanh hơn hoặc chậm hơn.

Làm thế nào nó hoạt động

Điều đầu tiên trình thông dịch thực hiện là loại bỏ tất cả các khoảng trắng và đệm mã bằng các lệnh không .cho đến khi nó khớp hoàn toàn trên một khối. Điều đó có nghĩa là đoạn mã trên cũng có thể được viết như thế này:

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

Bây giờ mã được chạy. IP (con trỏ lệnh) bắt đầu ở góc trên bên trái của mặt xa bên trái, chỉ về hướng đông. Đây là những con đường cần có trong suốt quá trình chạy chương trình:

IP bắt đầu trên vệt đỏ ở phía xa bên trái của hình ảnh. Sau đó nó chạy OSo;, thực hiện như sau:

• OIn ĐKDV (top-of-stack) dưới dạng số nguyên. Khi bắt đầu chương trình, ngăn xếp chứa các số 0 vô hạn, do đó, bản in này 0.
• SĐẩy 32, mã char cho ký tự không gian.
• oIn ĐKDV như một nhân vật. Điều này in một không gian.
• ;Pop các ĐKDV. Loại bỏ 32khỏi ngăn xếp.

Bây giờ IP chạm vào ?, điều hướng nó sang trái, phải hoặc thẳng tùy thuộc vào dấu hiệu của ĐKDV. Ngay bây giờ, ĐKDV là 0, vì vậy nó đi thẳng. Đây là con đường màu xanh; .không làm gì cả, và IP chạm vào mũi tên >, hướng nó về phía đông dọc theo con đường màu đỏ một lần nữa. ~mất bitwise KHÔNG của ĐKDV, thay đổi nó thành -1.

Ở đây, IP đạt đến cạnh phải của mạng, nó bao bọc nó trở lại bên trái; cái này một lần nữa in ĐKDV (lần này -1) và một khoảng trắng.

Bây giờ IP ?lại xuất hiện. Lần này, ĐKDV là -1; vì điều này là âm, IP rẽ trái, đi theo con đường màu xanh lá cây. Chiếc gương \làm chệch hướng IP thành cái (, làm suy giảm ĐKDV, thay đổi nó thành -2. Nó quay lại và bắn trúng mũi tên; ~mất bitwise KHÔNG một lần nữa, chuyển -2sang 1.

Một lần nữa, ĐKDV được xuất ra và một không gian được in. Lần này khi IP chạm ?, ĐKDV là 1; vì điều này là tích cực, IP rẽ phải, đi theo con đường màu vàng. Toán tử đầu tiên nó gặp là S, đẩy thêm 32; các ;hiện nó trước khi nó có thể gây ra bất kỳ rắc rối.

Bây giờ IP quay lại mũi tên và thực hiện thói quen của nó, ~thay đổi ĐKDV -2và Oin nó. Vì ĐKDV lại âm tính, IP lại đi theo con đường xanh. Và nó cứ tiếp tục đạp xe như vậy mãi mãi *: đỏ, xanh lá cây, đỏ, vàng, đỏ, xanh lá cây, đỏ, vàng ..., in theo chu kỳ sau:

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

TL; DR

Chương trình này liên tục trải qua 3 bước đơn giản sau:

1. Xuất số hiện tại và một khoảng trắng.
2. Nếu số hiện tại là âm, hãy giảm nó đi 1.
3. Lấy bitwise KHÔNG của số hiện tại.

Phiên bản không tách rời, 6 byte

nO?~>~

Loại bỏ phân tách đơn giản hóa chương trình nhiều đến mức có thể vừa với khối đơn vị:

  n
O ? ~ >
  ~

* Lưu ý : Không chương trình nào thực sự là vô hạn, vì chúng chỉ đếm tối đa 2 ⁵² (khi JavaScript bắt đầu mất độ chính xác nguyên).

MATL , 8 byte

0`@_@XDT

Cái này sử dụng kiểu dữ liệu mặc định của MATL double, vì vậy nó hoạt động với 2^53giá trị tuyệt đối. Đầu ra là

0
-1
1
-2
2
···

Hãy thử trực tuyến!

Giải trình

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

Ngôn ngữ lập trình Shakespeare , 227 byte

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

Rõ ràng, câu trả lời này không ở đâu gần chiến thắng, nhưng tôi thích rằng đây là trường hợp sử dụng mà SPL tương đối phù hợp.

Giải thích:

// 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

Như bạn có thể thấy khi so sánh mã này với câu trả lời của tôi với thách thức liên quan để đếm mãi mãi (tức là in tất cả các số tự nhiên), độ dài mã SPL tăng khá tệ khi kích thước sự cố tăng ...

Python 2, 27 byte

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

Bản in -1 0 -2 1 -3 2 -4 3 ...

05AB1E , 9 6 byte

Đã lưu 3 byte nhờ Adnan

[ND,±,

Hãy thử trực tuyến!

Các bản in được 0, -1, 1, -2, 2 ...phân tách bằng dòng mới.

GNU sed, 189 + 2 (cờ rn) = 191 byte

Đây rất có thể là giải pháp dài nhất, vì sed không có kiểu số nguyên hoặc phép toán số học. Như vậy, tôi đã phải mô phỏng một toán tử tăng kích thước tùy ý chỉ sử dụng các biểu thức thông thường.

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

Chạy:

echo | sed -rnf all_integers.sed

Đầu ra:

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

Brainfuck, 127 byte

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

Hãy thử trực tuyến!

Cho một băng vô hạn về lý thuyết sẽ chạy mãi mãi.

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

Không nén

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

ShadyAsFuck , 3 byte

FVd

Giải trình:

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

Điều này làm cho việc sử dụng gói tế bào và in tất cả các giá trị có thể. Trong SAF, biểu diễn số nguyên gốc là theo giá trị byte .

R, 25 24 byte

Chơi gôn một byte nhờ @JDL.

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

Hãy thử trực tuyến!

Ví dụ đầu ra:

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

Mẻ, 56 byte

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

Đầu ra:

0
-1
1
-2
2
-3

vv Hoạt động lên đến 2147483647; 58 byte nếu bạn muốn (-) 2147483648 ở đầu ra:

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

44 byte nếu in tất cả các số nguyên dương được hỗ trợ, sau đó tất cả các số nguyên âm được hỗ trợ, sau đó lặp lại vô tận, có thể chấp nhận được:

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

Java 7, 151 134 122 118 byte

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

12 byte được lưu nhờ vào @flawr (và @xnor gián tiếp)

Sau khi thay đổi quy tắc .. ( 59 56 63 byte)

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

Vì trong Java 2147483647 + 1 = -2147483648, chúng ta không thể đơn giản làm i++và tiếp tục vô tận, vì thách thức là in tất cả các số một lần. Với mã ở trên với phạm vi được thêm vào, thay vào đó, nó sẽ in tất cả các số nguyên từ một -2147483648đến 2147483647mỗi số, theo trình tự sau : 0, -1, 1, -2, 2, -3, 3, -4, ..., 2147483646, -2147483647, 2147483647, -2147483648. Cảm ơn @ OlivierGrégoire vì đã chỉ ra hành vi của Java liên quan đến MIN_VALUE-1/ MAX_VALUE+1. Hãy thử nó ở đây.

Mã thử nghiệm & mã hóa:

Hãy thử ở đây - dẫn đến lỗi thời gian chạy

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();
  }
}

Đầu ra:

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

DC (hương vị GNU hoặc OpenBSD) - 16 byte

Phiên bản này không ngắn hơn phiên bản bên dưới nhưng có thể chạy mà không cần ngăn xếp phát nổ trong PC của bạn. Tuy nhiên, số lượng lớn vô hạn sẽ chiếm số lượng bộ nhớ vô hạn ... đôi khi ...

Do rlệnh này cần GNU-DC hoặc OpenBSD-DC .

0[rp1+45Pprdx]dx

Kiểm tra:

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

DC - 16 byte

Một chút ý nghĩa bây giờ. ;-)

Phiên bản này đang lạm dụng chiều dài ngăn xếp làm bộ đếm trong khi để ngăn xếp phát triển.

z[pz45Ppllx]dslx

Kiểm tra:

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

DC - 17 byte

Nếu không có thủ đoạn bẩn thỉu.

0[p1+45Ppllx]dslx

Kiểm tra:

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

C # 74 byte

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 + ","));
    }
}

Đầu ra:

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

Thử nó:

dotnetfiddle.net (giới hạn ở 1000)

Ruby, 26 22 19 16 byte

In các số được phân tách bằng dòng mới. -3 byte từ @manatwork. -3 byte từ @ m-chrzan.

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

JavaScript, 29 26 byte

Phiên bản không vô hạn, 26 byte

Đã lưu 3 byte nhờ vào ETHproductions

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

sẽ hiển thị tất cả các số nguyên trong khoảng từ -9007199254740991 đến 9007199254740992.

Phiên bản vô hạn (ES6), 114 112 byte

Đã lưu 2 byte nhờ vào ETHproductions

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);

sẽ hiển thị tất cả các số nguyên, cho thời gian và bộ nhớ vô hạn.

> <> , 19 15 byte

1::1$-naonao1+!

Điều này in như sau:

0
1
-1
2
-2
3
-3

... và cứ thế. Dấu phân cách là một dòng mới.

Viết lại sau khi đọc câu trả lời của @ xnor để sử dụng phiên bản của thuật toán đó. Bắt đầu từ n=1, chương trình in 1-nvà n, mỗi dòng theo sau một dòng mới, trước khi tăng n. Sau khi tràn giá trị tối đa, chương trình sẽ kết thúc với lỗi something smells fishy.... Chính xác khi điều này sẽ xảy ra phụ thuộc vào việc thực hiện phiên dịch.

Phiên bản trước:

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

Bắt đầu từ 0, các vòng lặp chương trình vô thời hạn. Trên mỗi vòng lặp, giá trị hiện tại được in cùng với một dòng mới. Sau đó, nó được phủ định và tăng lên nếu tích cực.

Tiện ích Bash + GNU, 26

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

bc, 17 16 byte

Chỉnh sửa: Giảm 1 byte nhờ Chấn thương số .

Thêm vào sự đa dạng của các ngôn ngữ được sử dụng cho đến nay, tôi trình bày một giải pháp bc hoạt động với các số nguyên có kích thước tùy ý . Một dòng mới được yêu cầu sau mã và nó được tính trong tổng số byte.

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

Trong lần lặp đầu tiên ikhông được xác định, nhưng việc in nó mang lại 0 làm tôi ngạc nhiên.

Mê cung , 9 byte

!`
\:"
 (

Hãy thử trực tuyến!

Điều này cũng hoạt động và về cơ bản là giống nhau:

 "
`:(
\!

Giải trình

Luồng điều khiển trong mã này khá buồn cười. Hãy nhớ rằng con trỏ lệnh (IP) trong chương trình Labyrinth đi theo đường dẫn của các ký tự không phải khoảng trắng và kiểm tra đỉnh của ngăn xếp tại bất kỳ đường giao nhau nào để quyết định đường đi nào:

• Nếu đỉnh của ngăn xếp là dương, rẽ phải.
• Nếu đỉnh của ngăn xếp bằng không, hãy tiếp tục di chuyển thẳng về phía trước.
• Nếu đỉnh của ngăn xếp là âm, rẽ trái.

Khi IP chạm vào ngõ cụt, nó sẽ quay lại (thực hiện lệnh ở cuối chỉ một lần). Và IP bắt đầu ở góc trên bên trái di chuyển về phía đông. Cũng lưu ý rằng ngăn xếp được lấp đầy với một số lượng vô hạn để bắt đầu.

Chương trình bắt đầu với bit ngắn này:

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

Bây giờ IP đang ở ngã ba có liên quan và di chuyển thẳng về phía trước để phân (rã đỉnh của ngăn xếp -1. IP chạm vào ngõ cụt và quay lại. :nhân đôi đỉnh của ngăn xếp một lần nữa. Bây giờ đỉnh của ngăn xếp là âm và IP rẽ trái (hướng tây). Bây giờ chúng ta thực hiện thêm một lần lặp của vòng lặp chính:

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

Lần này, đỉnh của ngăn xếp là dương, vì vậy IP rẽ phải (hướng tây) và ngay lập tức thực hiện một bước lặp khác của vòng lặp chính, in ra 1. Sau đó, sau khi nó được phủ định lại, chúng ta nhấn vào :với -1stack.

Lần này IP rẽ trái (hướng đông). Đây "chỉ là một no-op và IP quay vòng vào ngõ cụt. :tạo một bản sao khác và lần này IP quay về hướng nam. (giảm giá trị thành -2, IP quay lại. Với đỉnh của ngăn xếp vẫn âm, IP bây giờ quay về hướng tây :và thực hiện lần lặp tiếp theo của vòng lặp chính.

Theo cách này, IP bây giờ sẽ lặp lại giữa một vòng lặp chặt chẽ, in một số dương và một lần lặp đi qua cả hai ngõ cụt để giảm giá trị trước khi in một số âm.

Bạn có thể tự hỏi tại sao lại có "dòng thứ hai nếu nó không thực sự làm gì: không có nó, khi IP đạt đến :giá trị âm, nó không thể rẽ trái (hướng đông) để thay vào đó, nó sẽ rẽ phải (hướng tây) (như một quy tắc tự nhiên, nếu không có hướng thông thường tại một ngã ba, IP sẽ đi theo hướng ngược lại). Điều đó có nghĩa là IP cũng sẽ không bao giờ chạm tới (đáy và chúng tôi không thể phân biệt tích cực với các lần lặp tiêu cực.

JavaScript (ES5), 32 31 30 29 byte

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

Bản in 0 -1 1 -2 2 -3 3 -4 4 -5 5 ...

Tiết kiệm được 1 byte nhờ Patrick Roberts! Đã lưu 2 byte nhờ Conor O'Brien!

Java, 65 54 byte

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

Mã kiểm tra

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

    r.accept(0);
}

C #, 83 byte

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

Ung dung:

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

Đầu ra:

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

C # 86 66 byte

Câu trả lời mới:

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

Thông thoáng:

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

Câu trả lời cũ (86 byte):

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

Ung dung:

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

J, 25 byte

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

Hoạt động trên trang web trực tuyến , nhưng tôi chưa thể xác minh nó trên máy tính. In các số như:

0
1
_1
2
_2
3
_3
4

Vân vân.

Powershell, 20 19 18 byte

Cải thiện bằng cách ăn cắp không biết xấu hổ từ câu trả lời của TimmyD

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

Đầu ra:

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

Phiên bản cũ:

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

Không chắc chắn tại sao tbh, nhưng - biến không được khai báo (hoặc - $ null) được đánh giá là 0, giúp chúng tôi tiết kiệm được 2 byte trong phiên bản này ...

Pyke , 7 2 byte

~I

Hãy thử nó ở đây!

7 byte

oDID_)r

Hãy thử nó ở đây!

Nếu in + -0 là ok, oD_r

Brachylog , 2 byte

ẉ⊥

Hãy thử trực tuyến!

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

Vì chương trình không có đầu vào, nên biến đầu vào của biến vị ngữ chính không bị giới hạn. Lúc đầu, nó được coi là 0, nhưng khi thực hiện chạm ⊥, nó quay lại điểm duy nhất có thể xảy ra: sự lựa chọn giá trị cho biến đầu vào. Vì vậy, sau đó nó cố gắng 1 và -1, và mọi số nguyên khác, in mỗi số được phân tách bằng dòng mới mãi mãi vì ⊥luôn buộc quay lại và hiệu ứng của ẉnó được thực thi ngay lập tức.