Birinden başlayarak sonsuza kadar sayan bir program yazın.

Kurallar:

• Uygun STDOUTdeğilse STDOUT, programınız oturum açmalı veya kabul edilebilir bir alternatif içermelidir .
• Programınız tam, çalıştırılabilir bir program olmalı ve bir işlev veya snippet olmamalıdır.
• Programınız arasında her biri sayı karakterleri (yeni satır, boşluk, sekme veya virgül) olan bir karakter çıktısı alınmalıdır, ancak bu tüm sayılar için tutarlı olmalıdır.
• Rakamları ondalık, tek tek veya baz basamağında, her bir basamağın bir bayt değeri ile gösterilebileceği şekilde yazdırabilirsiniz .
• Programınız, en az 2 ¹²⁸ (dahil) sorun çıkarmadan ve makul bir masaüstü PC'de yetersiz bellek olmadan sayılmalıdır. Özellikle, bunun anlamı, eğer tekli kullanıyorsanız, mevcut sayının tekli bir gösterimini bellekte saklayamazsınız demektir.

• Her zamanki kurallarımızdan farklı olarak, bu zorluktan daha yeni olsa bile, bir dili (veya dil sürümünü) kullanmaktan çekinmeyin. Bu zorluğa 0 baytlık bir cevap göndermek için özel olarak yazılan diller adil oyundur ancak özellikle ilgi çekici değildir.

  Gönderimin test edilebilmesi için bir tercüman olması gerektiğini unutmayın. Daha önce uygulanmamış bir dil için bu tercümanı kendiniz yazmanıza izin verilir (ve hatta teşvik edilir).

• Bu, bunun için en kısa çözümü içeren dili bulmakla ilgili değildir (boş programın hile yaptığı bazı yerler vardır) - bu, her dilde en kısa çözümü bulmakla ilgilidir. Bu nedenle, hiçbir cevap kabul edilmiş olarak işaretlenmeyecektir.

Katalog

Bu yazının altındaki Yığın Parçacığı, cevapları a) dil başına en kısa çözümün bir listesi olarak ve b) genel bir lider tablosu olarak oluşturur.

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

nerede NGönderinizden boyutudur. 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

Başlığınıza birden fazla sayı eklemek istiyorsanız (örneğin, puanınız iki dosyanın toplamı olduğundan veya tercüman bayrağı cezalarını ayrı ayrı listelemek istediğiniz için), gerçek puanın başlıktaki son sayı olduğundan emin olun :

## Perl, 43 + 2 (-p flag) = 45 bytes

Dil adını, daha sonra pasajda görünecek bir bağlantı da yapabilirsiniz:

## [><>](http://esolangs.org/wiki/Fish), 121 bytes

<style>body { text-align: left !important} #answer-list { padding: 10px; width: 290px; float: left; } #language-list { padding: 10px; width: 290px; float: left; } table thead { font-weight: bold; } table td { padding: 5px; }</style><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="language-list"> <h2>Shortest Solution 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> <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> <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><script>var QUESTION_ID = 63834; var ANSWER_FILTER = "!t)IWYnsLAZle2tQ3KqrVveCRJfxcRLe"; var COMMENT_FILTER = "!)Q2B_A2kjfAiU78X(md6BoYk"; var OVERRIDE_USER = 39069; var answers = [], answers_hash, answer_ids, answer_page = 1, more_answers = true, comment_page; function answersUrl(index) { return "//api.stackexchange.com/2.2/questions/" + QUESTION_ID + "/answers?page=" + index + "&pagesize=100&order=desc&sort=creation&site=codegolf&filter=" + ANSWER_FILTER; } function commentUrl(index, answers) { return "//api.stackexchange.com/2.2/answers/" + answers.join(';') + "/comments?page=" + index + "&pagesize=100&order=desc&sort=creation&site=codegolf&filter=" + COMMENT_FILTER; } function getAnswers() { jQuery.ajax({ url: answersUrl(answer_page++), method: "get", dataType: "jsonp", crossDomain: true, success: function (data) { answers.push.apply(answers, data.items); answers_hash = []; answer_ids = []; data.items.forEach(function(a) { a.comments = []; var id = +a.share_link.match(/\d+/); answer_ids.push(id); answers_hash[id] = a; }); if (!data.has_more) more_answers = false; comment_page = 1; getComments(); } }); } function getComments() { jQuery.ajax({ url: commentUrl(comment_page++, answer_ids), method: "get", dataType: "jsonp", crossDomain: true, success: function (data) { data.items.forEach(function(c) { if (c.owner.user_id === OVERRIDE_USER) answers_hash[c.post_id].comments.push(c); }); if (data.has_more) getComments(); else if (more_answers) getAnswers(); else process(); } }); } getAnswers(); var SCORE_REG = /<h\d>\s*([^\n,<]*(?:<(?:[^\n>]*>[^\n<]*<\/[^\n>]*>)[^\n,<]*)*),.*?(\d+)(?=[^\n\d<>]*(?:<(?:s>[^\n<>]*<\/s>|[^\n<>]+>)[^\n\d<>]*)*<\/h\d>)/; var OVERRIDE_REG = /^Override\s*header:\s*/i; function getAuthorName(a) { return a.owner.display_name; } function process() { var valid = []; answers.forEach(function(a) { var body = a.body; a.comments.forEach(function(c) { if(OVERRIDE_REG.test(c.body)) body = '<h1>' + c.body.replace(OVERRIDE_REG, '') + '</h1>'; }); var match = body.match(SCORE_REG); if (match) valid.push({ user: getAuthorName(a), size: +match[2], language: match[1], link: a.share_link, }); else console.log(body); }); valid.sort(function (a, b) { var aB = a.size, bB = b.size; return aB - bB }); var languages = {}; var place = 1; var lastSize = null; var lastPlace = 1; valid.forEach(function (a) { if (a.size != lastSize) lastPlace = place; lastSize = a.size; ++place; var answer = jQuery("#answer-template").html(); answer = answer.replace("{{PLACE}}", lastPlace + ".") .replace("{{NAME}}", a.user) .replace("{{LANGUAGE}}", a.language) .replace("{{SIZE}}", a.size) .replace("{{LINK}}", a.link); answer = jQuery(answer); jQuery("#answers").append(answer); var lang = a.language; lang = jQuery('<a>'+lang+'</a>').text(); languages[lang] = languages[lang] || {lang: a.language, lang_raw: lang.toLowerCase(42), user: a.user, size: a.size, link: a.link}; }); var langs = []; for (var lang in languages) if (languages.hasOwnProperty(lang)) langs.push(languages[lang]); langs.sort(function (a, b) { if (a.lang_raw > b.lang_raw) return 1; if (a.lang_raw < b.lang_raw) return -1; return 0; }); for (var i = 0; i < langs.length; ++i) { var language = jQuery("#language-template").html(); var lang = langs[i]; language = language.replace("{{LANGUAGE}}", lang.lang) .replace("{{NAME}}", lang.user) .replace("{{SIZE}}", lang.size) .replace("{{LINK}}", lang.link); language = jQuery(language); jQuery("#languages").append(language); } }</script>

Labirent , 5 bayt

):
\!

The Koddaki IP yuvarlak ve yuvarlak ♫

İlgili talimatlar:

)       Increment top of stack (stack has infinite zeroes at bottom)
:       Duplicate top of stack
!       Output top of stack
\       Output newline

> <> , 8 bayt

01+:nao!

Adımlar:

• Yığına 0 basın
• Üst yığın öğesine 1 ekleyin
• Çoğaltılmış üst yığın öğesi
• Yığının tepesini sayı olarak çıkarın
• Yeni bir satır çık
• Etrafına sarılıp bir sonraki talimatı atlayarak 2. adıma gidin (adım 11)

(Daha az bellek verimli (dolayısıyla geçersiz) bir programdır llnao.)

Haskell, 21 bayt

main=mapM_ print[1..]

İsteğe bağlı hassas tam sayılar ve sonsuz listeler, bunu kolaylaştırır :-)

Neyse ki mapM_Prelude'de. Eğer Data.Traversablehem oldu, hatta 19 bayt bunu küçültmek olabilir:

main=for_[1..]print

Gol> <> , 3 bayt

P:N

Adımlar:

• En üstteki yığın elemanına 1 ekleyin (başlangıçta 0 ile örtüktür)
• Çoğaltılmış üst yığın öğesi
• Yığının tepesini sayı ve yeni satır olarak açıp çıkar
• Çizginin sonuna geldiğimizde 1. adıma geçin

Mermer , 11450 4632 bayt

Ondalık basmak acı vericidir !!

Kesinlikle bununla kazanmam, ama bir şans vereceğimi düşündüm. İnşallah çıktısını 40 sıfır atar (2 ^ 128 e sığar).

00@0..@1..@2..@3..@4..@5..@6..@7..@8..@9..@A..@B..@C..@D..@E..@F..@G..@H..@I..@J
\\++..00..00..00..00..00..00..00..00..00..00..00..00..00..00..00..00..00..00..00
..EhunEhunEhunEhunEhunEhunEhunEhunEhunEhunEhunEhunEhunEhunEhunEhunEhunEhunEhunEhun
....AddtAddtAddtAddtAddtAddtAddtAddtAddtAddtAddtAddtAddtAddtAddtAddtAddtAddtAddt
..&7..&7..&7..&7..&7..&7..&7..&7..&7..&7..&7..&7..&7..&7..&7..&7..&7..&7..&7..&7\/
../\&8..........................................................................
....@0..........................................................................
....../\&8......................................................................
....//..@1......................................................................
........../\&8..................................................................
......////..@2..................................................................
............../\&8..............................................................
........//////..@3..............................................................
................../\&8..........................................................
..........////////..@4..........................................................
....................../\&8......................................................
............//////////..@5......................................................
........................../\&8..................................................
..............////////////..@6..................................................
............................../\&8..............................................
................//////////////..@7..............................................
................................../\&8..........................................
..................////////////////..@8..........................................
....................................../\&8......................................
....................//////////////////..@9......................................
........................................../\&8..................................
......................////////////////////..@A..................................
............................................../\&8..............................
........................//////////////////////..@B..............................
................................................../\&8..........................
..........................////////////////////////..@C..........................
....................................................../\&8......................
............................//////////////////////////..@D......................
........................................................../\&8..................
..............................////////////////////////////..@E..................
............................................................../\&8..............
................................//////////////////////////////..@F..............
................................................................../\&8..........
..................................////////////////////////////////..@G..........
....................................................................../\&8......
....................................//////////////////////////////////..@H......
........................................................................../\&8..
......................................////////////////////////////////////..@I..
............................................................................../\&8
........................................//////////////////////////////////////..@J
&9&9&9&9&9&9&9&9&9&9&9&9&9&9&9&9&9&9&9&9
Sixteenbytedecimalprintermodulewitharegi

:Sixteenbytedecimalprintermodulewitharegi
}J}J}I}I}H}H}G}G}F}F}E}E}D}D}C}C}B}B}A}A}9}9}8}8}7}7}6}6}5}5}4}4}3}3}2}2}1}1}0}00A
/A%A/A%A/A%A/A%A/A%A/A%A/A%A/A%A/A%A/A%A/A%A/A%A/A%A/A%A/A%A/A%A/A%A/A%A/A%A/A%A
%A..%A..%A..%A..%A..%A..%A..%A..%A..%A..%A..%A..%A..%A..%A..%A..%A..%A..%A..%A..
+O+O+O+O+O+O+O+O+O+O+O+O+O+O+O+O+O+O+O+O+O+O+O+O+O+O+O+O+O+O+O+O+O+O+O+O+O+O+O+O..
+O+O+O+O+O+O+O+O+O+O+O+O+O+O+O+O+O+O+O+O+O+O+O+O+O+O+O+O+O+O+O+O+O+O+O+O+O+O+O+O..

:/A
..}0..}0..
..>>}0....
..>>>>\\..
....//..//
../\>>\\..
....>>..//
....>>\\..
....>>....
\\>>//....
..>>......
..>>......
../\......
..../\<<..
......<<..
..\\<<//..
....~~....
....++....
....\\..//
\\....>9\/
..\\..?0..
......++..
....\\....
......{0..

:%A
@0..
}0..
<A-A
{0@0

:Eg
}0}0}0}0}0}0}0}0
^7^6^5^4^3^2^1^0
~~....~~~~..~~~~
^0^0^0^0^0^0^0^0
{0{0{0{0{0{0{0{0

:Ehun
}0..}0
Eg..&0
=8&0{0
&1\/00
0100&0
&1&1{1
{1{0

:Addt
}0}1
{1{1

C (yalnızca 64 bit mimari), 53 bayt

En az 64 bit olan işaretçilere güvenir ve %pbelirteci kullanarak bunları hex olarak yazdırır . Program 2 ^ 128'e ulaştığında sağa döner.

char*a,*b;main(){for(;++b||++a;)printf("%p%p ",a,b);}

Altıgen , 12 11 10 7 bayt

Kodu yan uzunlukta 2'ye yerleştirmek için alephalpha'ya teşekkürler.

10})!';

Kırımsız:

 1 0
} ) !
 ' ;

Bu oldukça basittir. 1010, yani ilk bellek kenarına doğru beslenen bir satır yazar. Sonra })!';tekrar tekrar bir döngüde yürütülür:

• } sonraki hafıza kenarına ilerleyin.
• ) arttır.
• ! bir tamsayı olarak yazdır.
• ' 10'a geri dön.
• ; karakter olarak yazdır

Bunun optimal olduğuna inanıyorum (şu ana kadar eşsiz olmasa da). Ben yazdım kaba kuvvet senaryoyu izin verdim Bu cevap için en az bir tane her biri içermek zorunda olacağı varsayımı altında 6 baytlık çözüm arayışlarında ;ve !ve ya (ya ), ve içermeyen olmaz ?, ,ya @, ve etmedi herhangi bir çözüm bulmak.

Pyth, 4 bayt

.V1b

Açıklama:

.V1    for b in range(1 to infinity):
   b      print b

bc, 10

for(;;)++i

Sıradışı bcolandan daha kısa dc.

Kimden man bc:

AÇIKLAMA

bc, rasgele kesinlikli sayıları destekleyen bir dildir.

Java, 139 138 127 123 bayt

class K{public static void main(String[]a){java.math.BigInteger b=null;for(b=b.ZERO;;)System.out.println(b=b.add(b.ONE));}}

Mathematica, 22 bayt

i=0;While[Echo[++i]>0]

Echo Mathematica 10.3'teki yeni bir fonksiyondur.

Ruby, 15 12 bayt

loop{p$.+=1}

• p, bir tamsayı verildiğinde, tamsayı olduğu gibi yazdırır ( @philomory izniyle )
• $.stdin'den okunan satır sayısını tutan sihirli bir değişkendir. Açıkçası 0 olarak başlatılır ve ayrıca atanabilir :)

Python 3, 33 25 bayt

Anladığım kadarıyla Pythons tamsayıları keyfi bir kesinliktir ve print()otomatik olarak yeni çizgiler üretir.

@Jakub ve @ Sp3000 ve @wnnmaw için teşekkürler! Gerçekten pek python bilmiyorum, bildiğim tek düşünce keyfi boyut tamsayılarını desteklemesiydi =)

k=1
while 1:print(k);k+=1

İşlem , 95 85 71 bayt

java.math.BigInteger i;{i=i.ZERO;}void draw(){println(i=i.add(i.ONE));}

Bir süre döngü ile bir şey denedim ama bu tüm İşleme çökmesine neden oluyor, bu yüzden şimdilik buna bağlı kalacağım.

(Önerileriniz için @ SuperJedi224 ve @TWiStErRob'a teşekkürler.)

Samau , 2 bayt

N)

Açıklama:

N     push the infinite list [0 1 2 ...] onto the stack
 )    increase by 1

Bir programın çıktısı bir liste olduğunda, en dıştaki parantezler kullanılmaz.

JavaScript (ES6), 99 94 67 bayt

for(n=[i=0];;)(n[i]=-~n[i++]%10)&&alert([...n].reverse(i=0).join``)

alertSTDOUTJavaScript için genel olarak kabul edilen bir eşdeğerdir, ancak kullanılması ardışık sayıların otomatik olarak ayrılması anlamına gelir. Sayıdan sonra bir karakter çıktısının gerekli olmadığına inanıyorum.

Matlab, 132 bayt

a=0;while 1;b=a==9;n=find(cumsum(b)-(1:numel(b)),1);a(n)=a(n)+1;a(1:n-1)=0;if ~numel(n);a=[0*a,1];end;disp([a(end:-1:1)+'0','']);end

Tamam, bunun önemsiz yerleşik bir tamsayı tamsayı olmadan bu görevi gerçekleştiren ilk ciddi cevap olduğunu düşünüyorum . Bu program, bir tamsayı dizisi olarak isteğe bağlı bir tamsayı uygular. Her tam sayı her zaman 0 ile 9 arasındadır, bu nedenle her bir dizi öğesi bir ondalık basamağı temsil eder. Dizi büyüklüğü, örneğin olduğumuzda birer birer artar 999. Hafıza boyutu burada sorun değildir, çünkü 2^128sadece 39 uzunluk bir dizi gerektirir.

a=0;
while 1
    b=a==9;
    %first number that is not maxed out
    n=find(cumsum(b)-(1:numel(b)),1);
    %increase that number, and sett all maxed out numbers to zero
    a(n)=a(n)+1; 
    a(1:n-1)=0;
    if ~numel(n) %if we maxed out all entries, add another digit
        a=[0*a,1];
    end    
    disp([a(end:-1:1)+'0',''])%print all digits
end

C ++, 146 141 138 bayt

Standart bir bigint kütüphanesi kullanmak belki de bu soruyu cevaplamanın en sıkıcı yoludur, ancak birileri bunu yapmak zorunda kaldı.

#include<stdio.h>
#include<boost/multiprecision/cpp_int.hpp>
int main(){for(boost::multiprecision::uint512_t i=1;;){printf("%u\n",i++);}}

Ungolfed:

#include<cstdio>
#include<boost/multiprecision/cpp_int.hpp>

int main()
{
    for(boost::multiprecision::uint512_t i=1;;)
    {
        std::printf("%u\n", i++);
    }
}

Golf versiyonunun kullanmasının stdio.hve kullanılmamasının nedeni kullanmak cstdiozorunda kalmamaktır.std:: ad.

Bu benim ilk kez C ++ 'da golf oynamak, bunu daha da kısaltmak için herhangi bir püf noktası olup olmadığını bana bildirin.

C # .NET 4.0, 111 103 102 97 bayt

class C{static void Main(){System.Numerics.BigInteger b=1;for(;;)System.Console.WriteLine(b++);}}

Burada herhangi bir C # cevabı bulamadım, o yüzden bir tane yazmak zorunda kaldım.

.NET 4.0 gereklidir, çünkü BigInteger'i içeren ilk sürümdür . Ancak System.Numerics.dll dosyasına başvuruda bulunmalısınız .

Girintili:

class C
{
    static void Main()
    {   
        System.Numerics.BigInteger b = 1;
        for (;;)
            System.Console.WriteLine(b++);
    }
}

Bazı baytları kaydettiği için sweerpotato, Kvam, Berend sayesinde

Clojure, 17 bayt

(map prn (range))

Tembel diziler ve isteğe bağlı hassas tamsayılar bunu kolaylaştırır (Haskell ve CL için olduğu gibi). prnbir biçim dizesi yazdırmam gerekmediğinden bana birkaç bayt kazandırdı. doseqMuhtemelen daha aptalca olurdu çünkü burada sadece yan etkilerle uğraşıyoruz; mapbir dizi yaratacağı için kullanımı pek bir anlam ifade etmiyor nil(her birinin dönüş değeriprn çağrının .

Sonsuza dek saydığımı varsayarsak, bu işlemden kaynaklanan boş gösterici dizisi asla geri alınmaz.

MarioLANG , 11 bayt

+<
:"
>!
=#

Martin Büttner'ın başka bir soruya cevabından ilham alındı .

CJam, 7 bayt

0{)_p}h

Açıklama:

0         e# Push a zero to the stack
 {        e# Start a block
  )         e# Increment top of stack
   _        e# Duplicate top of stack
    p       e# Print top of stack
     }    e# End block
      h   e# Do-while loop that leaves the condition on the stack

Not: Java tercümanı kullanmalı.

C, 89 bayt

C 'de yeni bir yaklaşım (bitsel bir artış uygulayarak):

b[999],c,i;main(){for(;;)for(i=c=0,puts(b);i++<998;)putchar(48+(c?b[i]:(b[i]=c=!b[i])));}

Daha az golf oynadı

int b[999], c, i;
main() {
  for(;;)
    for(i=c=0, puts(b); i++ < 998;)
      putchar(48 + (c ? b[i] : (b[i] = c = !b[i])));
}

bitirmek

Bu versiyonda, şu anda bir zorunluluk olmayan, sonlandırılmadığı için küçük bir kusur var. Bunu yapmak için 3 karakter eklemelisin:

b[129],c=1,i;main(){for(;c;)for(i=c=0,puts(b);i++<128;)putchar(48+(c?b[i]:(b[i]=c=!b[i])));}

Foo , 6 bayt

(+1$i)

açıklama

(    )    Loop
 +1       Add one to current element
   $i     Output current element as a decimal integer

Minkolang , 4 bayt

1+dN

Burada dene.(Aslında, dikkatli olun. 3 saniyelik çalışma süresi ~ 40.000'e ulaşması için yeterliydi.)

1+yığının üstüne 1 ekler, dçoğaltır ve Nyığının tepesini sonunda boşluk olan bir tamsayı olarak çıkarır. Bu döngüler çünkü Minkolang toroidaldir, bu nedenle program sayacı sağ kenardan çıktığında solda tekrar belirir.

Intel 8086+ Montaj, 19 bayt

68 00 b8 1f b9 08 00 31 ff f9 83 15 00 47 47 e2 f9 eb f1

İşte bir döküm:

68 00 b8                push   0xb800             # CGA video memory
1f                      pop    ds                 # data segment
b9 08 00           L1:  mov    cx, 8              # loop count
31 ff                   xor    di, di             # ds:di = address of number
f9                      stc                       # set carry
83 15 00           L2:  adc    word ptr [di], 0   # add with carry
47                      inc    di
47                      inc    di
e2 f9                   loop   L2
eb f1                   jmp    L1

Sol üstteki 8 ekran pozisyonunda 128 bitlik sayıyı çıkarır. Her ekran konumu, 8 bitlik bir ASCII karakterine ve iki adet 4 bit renk tutar.

Not: 2 ^128'de dolanır ; basitçe değiştirmek 8in mov cx, 8için 9bile 144 bit sayısını göstermek için, ya da 80*252'ye kadar sayıları göstermek için ³²⁰⁰⁰ .

Koşu

1.44Mb bzip2 sıkıştırılmış, base64 şifreli önyüklenebilir disket Görüntü

Aşağıdakileri kopyalayıp yapıştırarak disket görüntüsünü oluşturun

QlpoOTFBWSZTWX9j1uwALTNvecBAAgCgAACAAgAAQAgAQAAAEABgEEggKKAAVDKGgAaZBFSMJgQa
fPsBBBFMciogikZcWgKIIprHJDS9ZFh2kUZ3QgggEEh/i7kinChIP7HrdgA=

bu komut satırına:

base64 -d | bunzip2 > floppy.img

ve örneğin qemu -fda floppy.img -boot a

1.8 MB önyüklenebilir ISO

Bu bir base64 kodlu bzip2 sıkıştırılmış ISO görüntüsüdür. Yapıştırarak iso oluşturun

QlpoOTFBWSZTWZxLYpUAAMN/2//fp/3WY/+oP//f4LvnjARo5AAQAGkAEBBKoijAApcDbNgWGgqa
mmyQPU0HqGCZDQB6mQ0wTQ0ZADQaAMmTaQBqekyEEwQaFA0AA0AxBoAAA9Q0GgNAGg40NDQ0A0Bi
BoDIAANNAA0AyAAABhFJNIJiPSmnpMQDJpp6nqeo0ZDQaAANB6IA0NAGj1EfIBbtMewRV0acjr8u
b8yz7cCM6gUUEbDKcCdYh4IIu9C6EIBehb8FVUgEtMIAuvACCiO7l2C0KFaFVABcpglEDCLmQqCA
LTCAQ5EgnwJLyfntUzNzcooggr6EnTje1SsFYLFNW/k+2BFABdH4c4vMy1et4ZjYii1FbDgpCcGl
mhZtl6zX+ky2GDOu3anJB0YtOv04YISUQ0JshGzAZ/3kORdb6BkTDZiYdBAoztZA1N3W0LJhITAI
2kSalUBQh60i3flrmBh7xv4TCMEHTIOM8lIurifMNJ2aXr0QUuLDvv6b9HkTQbKYVSohRPsTOGHi
isDdB+cODOsdh31Vy4bZL6mnTAVvQyMO08VoYYcRDC4nUaGGT7rpZy+J6ZxRb1b4lfdhtDmNwuzl
E3bZGU3JTdLNz1uEiRjud6oZ5kAwqwhYDok9xaVgf0m5jV4mmGcEagviVntDZOKGJeLjyY4ounyN
CWXXWpBPcwSfNOKm8yid4CuocONE1mNqbd1NtFQ9z9YLg2cSsGQV5G3EhhMXKLVC2c9qlqwLRlw4
8pp2QkMAMIhSZaSMS4hGb8Bgyrf4LMM5Su9ZnKoqELyQTaMAlqyQ3lzY7i6kjaGsHyAndc4iKVym
SEMxZGG8xOOOBmtNNiLOFECKHzEU2hJF7GERK8QuCekBUBdCCVx4SDO0x/vxSNk8gKrZg/o7UQ33
Fg0ad37mh/buZAbhiCIAeeDwUYjrZGV0GECBAr4QVYaP0PxP1TQZJjwT/EynlkfyKI6MWK/Gxf3H
V2MdlUQAWgx9z/i7kinChITiWxSo

içine

base64 -d bunzip2 > cdrom.iso

ve sanal makineyi önyüklenecek şekilde yapılandırın.

DOS .COM

Bu bir base64 şifreli DOS .COM çalıştırılabilir:

aAC4H7kIADH/+YMVAEdH4vnr8Q==

Kullanarak bir .COM dosyası oluşturun

/bin/echo -n aAC4H7kIADH/+YMVAEdH4vnr8Q== | base64 -d > COUNTUP.COM

ve (Ücretsiz) DOS'ta çalıştırın.

Perl , 34 32 30 28 26 23 bayt

-Mbigint -E '{say$_+=1;redo}'

İle test et

perl -Mbigint -E '{say$_+=1;redo}'

Mermer, 358 bayt

..@F..@E..@D..@C..@B..@A..@9..@8..@7..@6..@5..@4..@3..@2..@1..@001@Z01
..AddoAddoAddoAddoAddoAddoAddoAddoAddoAddoAddoAddoAddoAddoAddoAddo/\&I
00&I00&I00&I00&I00&I00&I00&I00&I00&I00&I00&I00&I00&I00&I00&I00&I....@Z
@FHd@EHd@DHd@CHd@BHd@AHd@9Hd@8Hd@7Hd@6Hd@5Hd@4Hd@3Hd@2Hd@1Hd@0Hd
0A@N
..&I
@N/\..
:Hd
}0
Hp
}0
..
{<
#include hex_out.mbl
#include arithmetic.mbl

16 yarım eklenti birlikte zincirlenmiştir, en sağdaki her N ++ 'u gerçekleştirir ve her toplayıcı zincirde bir sonraki taşma akışını (00 veya 01) besler. Çıktı hex cinsindendir.

Python yorumlayıcısının, hafızaya alınmış fonksiyonlardan elde edilen çıktıların kaybolduğu bir hata vardır, bu yüzden doğru çalışması için bunu "-m 0" ile çalıştırmanız gerekir. Bu parametre olmadan hata olmadan ne kadar hızlı çalışacağını görebilirsiniz, ancak çıktı doğru çalışmayacaktır.

Kendime Not: Bu hatayı marbelous.py'de düzelt. Bu hata, marbelous.py'nin en son sürümünde düzeltildi.

R, 52 Bayt

a=gmp::as.bigz(1);repeat{cat(paste(a,""));a=a+1}

(Not: gmpharici bir kütüphanedir, bu yüzden çalışması için bu çözümü indirmeniz gerekebilir)

BotEngine, 128 120 112 8x13 = 104

v2 2 01
>e>S SS
   e1e1
   e2 e0 12
   > > S SS P
  ^   <e0e1 R
     ^ < <lC^
^         <

Çıktı ikilidir.