永遠にカウントアップ


71

1から開始して、永久にカウントアップするプログラムを作成します。

ルール:

  • 使用できないSTDOUT場合、プログラムはログインするか、受け入れ可能な代替手段にする必要STDOUTがあります。
  • プログラムは、関数やスニペットではなく、完全で実行可能なプログラムでなければなりません。
  • プログラムは、間に区切り文字(改行、スペース、タブ、またはコンマ)を付けて各数値を出力する必要がありますが、これはすべての数値で一貫している必要があります。
  • 数値を10進数、単項、または各数値がバイト値で表される基数256で印刷できます
  • プログラムは、問題なく、妥当なデスクトップPCでメモリ不足になることなく、少なくとも2 128(包括的)までカウントする必要があります。特に、これは、単項を使用している場合、現在の数値の単項表現をメモリに保存できないことを意味します。
  • 通常のルールとは異なり、このチャレンジよりも新しい言語(または言語バージョン)を自由に使用できます。この課題に対する0バイトの回答を提出するために特別に作成された言語は、公正なゲームですが、特に興味深いものではありません。

    提出物をテストできるようにインタープリターが必要であることに注意してください。以前に未実装の言語用にこのインタープリターを自分で作成することは許可されています(推奨されます)。

  • これは、これに対する最短の解決策で言語を見つけることではありません(空のプログラムがトリックを行う場所があります)-これは、すべての言語で最短の解決策を見つけることです。したがって、回答は承認済みとしてマークされません。

カタログ

この投稿の下部にあるスタックスニペットは、a)言語ごとの最短ソリューションのリストとして、b)全体的なリーダーボードとして、回答からカタログを生成します。

回答が表示されるようにするには、次のマークダウンテンプレートを使用して、見出しから回答を開始してください。

## Language Name, N bytes

N提出物のサイズはどこですか。スコアを改善する場合、古いスコアを打つことで見出しに残すことができます。例えば:

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

ヘッダーに複数の数字を含める場合(たとえば、スコアが2つのファイルの合計であるか、インタープリターフラグペナルティーを個別にリストする場合)、実際のスコアがヘッダーの最後の数字であることを確認します。

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

言語名をリンクにして、スニペットに表示することもできます。

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


29
私はどのように組み合わせるかわからないんだけど、間に分離文字で各番号を出力しなければならないのでは、ベース256に[...]番号を印刷することができます
デニス

6
将来の課題として、人々が回答を投稿し始める前にこれらすべての詳細を整理できるようにサンドボックスを推奨できますか?:)
マーティンエンダー

3
@IlmariKaronen私はそれを時間制限ではなくメモリ制限と解釈します。場合によっては、増分ごとの時間制限があります。カウンタを2 ** 128-10に設定し、最後の10ステップを実行するのにかかる時間を確認してください。
スパー

5
出力に先行ゼロを含めることはできますか?
パエロエベルマン

4
うわ!!! TI-89(56b)に対する回答はありますが、b / cを投稿できません。サイトに新しく、Rep 10+がありません。
グレスデニス

回答:


63

ラビリンス、5バイト

):
\!

codeコード内のIPがぐるぐる回っています♫

関連する指示:

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

77
プログラムは停止しないのが残念です
。–オプティマイザー

7
@Optimizer def sad(実際):
YoYoYonnY

1
なぜこれが4バイトではないのですか?
オーレルビリー

2
@ Aurel300第5バイトは、間改行ある:\
SP3000

@ Sp3000ああ、はい。愚かな私。:)
オーレルビリー

46

> <>、8バイト

01+:nao!

手順:

  • スタックに0をプッシュします
  • 一番上のスタック要素に1を追加します
  • 最上位スタック要素の複製
  • スタックの先頭を数値として出力します
  • 改行を出力する
  • ラップして次の命令をジャンプして、ステップ2に進みます(ステップ11)

(メモリ効率の低い(したがって無効な)プログラムはllnaoです。)


66
基本的に「プラスワン、今!」と読み取れるコード行にある、せっかちなアップ投票を要求する暗黙の+1に対して。
ヤヌスバズジャケ

24

Haskell、21バイト

main=mapM_ print[1..]

任意精度の整数と無限リストにより、これが簡単になります:-)

幸運にもmapM_プレリュードにいます。もしそうならData.Traversable、19バイトに縮小することさえできます:

main=for_[1..]print

map / mapMなどを一般化するシンボルはありませんか?
JDługosz

@JDługosz:私が知っていることではない
ベルギ

ああ、それはsequence、結果を実際に発生させるために、結果が必要だからです。
JDługosz

[1..]間にあるカンマですべての数字を印刷するので、単に許可されていませんか?それとも最初の[ネジですべてを締めますか?
バコナロ

@Baconaro:それはリストであり、何も印刷しません。replに用語を入力した場合、GHCiは結果を出力しますが、それは実行可能なプログラムではありません。そして、はい、リード[も許可されていません。
ベルギ

23

Gol> <>、3バイト

P:N

手順:

  • 一番上のスタック要素に1を追加します(最初は暗黙的な0です)
  • 最上位スタック要素の複製
  • スタックの先頭を数値および改行としてポップして出力します
  • 行の終わりに達したら、ステップ1に戻ります。

21

Marbelous11450 4632バイト

小数の印刷は苦痛です!!

絶対にこれで勝てないが、私はそれに打撃を与えると思った。(2 ^ 128に合うように)出力を40個のゼロにパディングしても問題ないことを願っています。

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

バイナリの印刷はもっと短くなりますか?
SuperJedi224

3
(または単項はどうですか?)
ドアノブ

出力を表示する@Doorknobは問題ではありません。Ehunボード上の何かが次の桁をインクリメントするはずですが、正しく動作しません
-TheDoctor

1
ボード間のすべての行と空白行の最後のピリオドを省略し、ボード名に単一の文字を使用できることをご存知ですか?その単一のキャラクターを呼び出すのに適切な時間だけ繰り返す必要があります。これにより、回答を約3000バイトに減らすことができます。
オーバーアクター

最終的にはinclude/、デフォルトですべてを含むコミットをmarbelous.pyにプッシュします
Sparr

18

C(64ビットアーキテクチャのみ)、53バイト

少なくとも64ビットのポインターに依存し、%p指定子を使用して16進数で出力します。プログラムは、2 ^ 128に達するとすぐに戻ります。

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

1
これらのポインターが各64ビットにある場合、2 ^ 128-1までしかカウントできませんか?
flawr

6
最大2 ^ 128
edc65

14
創造性を表現して報いることに関しては、CodeGolfが好きです。feersumは明らかにここでの勝利を競っていません。専門性に関する多くのダウン票を確認し、質問の文言を修正して、彼の答えが違反であることを確認することは悲しくなります。
flodel

3
「少なくとも2 ^ 128まで」という言葉は十分に明確だと思った...
-vrwim

5
@vrwimあなたはそれを書いていません。「2 ^ 128まで」と書きました。SuperJediは数分前にそれを編集しました。
feersum

17

六角形12 11 10 7バイト

コードをサイドレングス2に合わせてくれたalephalphaに感謝します。

10})!';

展開:

 1 0
} ) !
 ' ;

これはかなり簡単です。1010、つまり最初のメモリエッジへの改行を書き込みます。その後})!';、ループで繰り返し実行されます。

  • } 次のメモリエッジに移動します。
  • ) それをインクリメントします。
  • ! 整数として出力します。
  • ' 10に戻ります。
  • ; 文字として印刷します。

私はこれが最適であると信じています(ただし、一意ではありません)。私は私が書いたブルートフォーススクリプト聞かせてきた、この回答のために、それは少なくとも一つの各含まれなければならないだろうという仮定の下で6バイトのソリューションを検索;し、!いずれか(または)、および含まれていないでしょうし?,あるいは@、それはしませんでした解決策を見つけます。


13

Pyth、4バイト

.V1b

説明:

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

f!\nTIOリンク)は3バイトで動作しますが、回答後に追加された機能を使用しているかどうかはわかりません。
ソク

@Sok Clever。しかし、答えfは4年前のPythの特徴だったと思うので変更しません。
ジャクベ

私もそう思ったので、コメントとして残しました-古い言語の答え
Sok

13

bc、10

for(;;)++i

異常なそれbcはより短いですdc

からman bc

記述

bcは、任意の精度の数値をサポートする言語です


これはどこに印刷されますか?
バリント

@Bálint ++iは式であり、割り当てではないため、明示的に出力されます。実行してみましたか? echo 'for(;;)++i' | bc最寄りのLinuxターミナルで。
デジタル外傷

私の家には単一のLinuxターミナルはありません。ちょっと気になっただけ。
バリント

6
@Bálintすべての家にはLinuxターミナルが必要です。
デジタル外傷

1
@Bálintこのプログラムを実行するのがあなたの使用です;)
非常識な

12

Java(登録商標)、139の 138 127 123バイト

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

2
Javaの小さな無限ループはfor(;;)、簡単な3バイト用です。
アンク-morpork

を使用して別の2を保存することもできますがBigInteger b=null;b=b.ZERO;、悲しい=nullことに、静的アクセスであると思われる場合でも必要です。
TWiStErRob

それから別のBigInteger9。FQCNで一度だけ参照することでインポートを削除できるからです。
TWiStErRob

@TWiStErRobどういうわけか、私はそれが短くなることを実現していませんでした。
SuperJedi224

2
Java 8以降では、クラスを関数で置き換えinterfaceたりpublic、関数から削除したりできます。コードをコピーして、新しい回答として投稿しないでください。
ルカH

10

Mathematica、22バイト

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

Echo はMathematica 10.3の新しい関数です。


Echo改行と改行の4つの区切り文字を指定します">> "。これが有効かどうかわからない- Print代わりに使用するのでしょうか?また、でバイトを保存しますi=0;While[Echo@++i>0]
ローマ

7

ルビー、15 12バイト

loop{p$.+=1}
  • p、整数を指定すると、整数をそのまま出力します(@philomory提供)
  • $.stdinから読み取った行数を保持する魔法の変数です。それは明らかに0に初期化され、また割り当て可能です:)

@philomory通常、ユーザーはバイト節約ソリューションを提案するコメントを残すことが推奨されます。また、これについての説明をご覧ください。c:
アディソンクランプ

7

Pythonの3、33 25バイト

私の知る限り、Pythonの整数は任意の精度であり、 print()、改行自動的に生成します。

@Jakubと@ Sp3000と@wnnmawに感謝します!私は本当に多くのPythonを知らない、私が知っていた唯一の考えは、それが任意のサイズの整数をサポートしていること=)

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

1Python(および他のほとんどの言語)で真理値です。それでwhile 1:十分です。
ジャクベ

また、全体whileを1行に入れることができます
-Sp3000

repr(k)ではなくを使用してバイトを保存できますprint(k)。また、バイトサイズを25としてカウントします(提案された変更なし)
-wnnmaw

1
repr代わりに使用することはできませんprintrepr何も出力しません。@wnnmaw
ザック・ゲイツ

reprそれではどうしますか?
flawr

6

処理中95 85 71バイト

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

whileループで何かを試しましたが、Processingがすべてクラッシュするので、今のところこれに固執します。

(提案については@ SuperJedi224と@TWiStErRobに感謝します。)


スペースとは何ですか?import java.math.*;BigInteger i=BigInteger.ZERO;void draw(){println(i=i.add(BigInteger.ONE));}うまくいくと確信しています。
SuperJedi224

ええ、それを修正しました。
-geokavel

Processing BigInteger.ONEをに変更できi.ONEますか?
SuperJedi224

@ SuperJedi224はい、そうです。ありがとう!
-geokavel

さて、賛成票を持っている。
SuperJedi224

6

サマウ、2バイト

N)

説明:

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

プログラムの出力がリストの場合、一番外側の括弧は省略されます。


リストはすべての内容を一度に印刷しませんか?このリストがある場合には、無限の、そしてそれは、おそらくメモリにしたり、画面に収まらないことができ、それが生成されて停止することはありませんので、それは印刷されません。

1
@cat SamauはHaskellで書かれており、怠け者です。印刷する前にリスト全体を生成することはありません。
alephalpha

ただ頭を上げます。SamauのGitHubページの説明では@、「プッシュ」はスペルミスです。
発癌性

@Carcigenicateありがとう。
-alephalpha

6

JavaScript(ES6)、99 94 67バイト

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

alertSTDOUTJavaScriptで一般的に受け入れられている同等の機能ですが、これを使用すると、連続する番号が自動的に分離されます。このため、数字の後に文字を出力する必要はないと想定しました。


12
これが、ポップアップブロッカーがある理由です。
コミンテルン

1
for(i = 0 ;;)alert(i ++)これらのコントロールのすべてが必要だとは思わない
towc

3
@towcそれは動作しません。JavaScriptのすべての数値は64​​ビットの浮動小数点数で、最大安全整数値があります2^53が、質問では最大値に達する必要があり2^128ます。
user81655

1
ああ、公正なポイント...
towc

5

Matlab、132バイト

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

さて、これは、簡単な組み込みの任意のサイズの整数なしでこのタスクを達成する最初の真剣な答えだと思います。このプログラムは、整数の配列として任意のサイズの整数を実装します。各整数は常に0〜9であるため、各配列要素は1桁の10進数を表します。配列サイズは、たとえばになったらすぐに1ずつ増加し999ます。ここではメモリサイズは問題ありません2^128。長さ39の配列のみが必要です。

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

5

C ++、146 141 138バイト

標準のbigintライブラリを使用することは、おそらくこの質問に答える最も退屈な方法ですが、誰かがそれをしなければなりませんでした。

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

ゴルフをしていない:

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

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

ゴルフバージョンが使用するのstdio.hではなく使用する理由はcstdiostd::名前空間を使用する必要を避けるためです。

C ++でゴルフをするのはこれが初めてです。これをさらに短縮するコツがあれば教えてください。


'\n'代わりに使用するとstd::endl、8バイト節約できます。また、CPP #defineを使用して繰り返しを圧縮する方法があるかもしれません
。-ケニー

@ケニーそれをありがとう!(8バイトではなく、5バイトしか保存しません。)しかし、そのセクションをさらに短く調整する方法を思いついたのではないかと思います。
フェリックスフー

私はブーストを知りません(そして、それが標準であるとは言いません)が、iデフォルトで0の値で構築されていませんか?次に、定義を取り除き、ポストインクリメントをプリインクリメントに切り替えて、2bを節約できます
Zereges

廃止予定は#importどうですか?
connectyourcharger

5

C#.NET 4.0、111 103 102 97バイト

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

ここでC#の回答が見つからなかったので、1つだけを書かなければなりませんでした。

.NET 4.0はBigIntegerを含む最初のバージョンであるため、必要です。ただし、System.Numerics.dllを参照する必要があります。

インデント付き:

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

sweerpotato、Kvam、Berend、いくつかのバイトを節約してくれてありがとう


class C{static void Main(){var b=System.Numerics.BigInteger.One;for(;;)System.Console.WriteLine(b++);}}:〜)で8バイト節約できます!
-sweerpotato

1
bの宣言をConsole.WriteLineループ構造に移動しますclass C{static void Main(){for(var b=System.Numerics.BigInteger.One;;Console.WriteLine(b++));}}
。– Kvam

まだ必要Systemです。ただし、1バイト節約できます!
sweerpotato

ええ、あなたは正しいです。
クヴァム

using System;(13バイト)を追加すると、System.(7バイト)を2回廃止し、1バイト節約できます。
ケニー

5

Clojure、17バイト

(map prn (range))

レイジーシーケンスと任意精度整数により、これが簡単になります(HaskellとCLの場合)。prn書式文字列を印刷する必要がないため、数バイト節約できます。doseqここでは副作用のみを扱っているため、おそらくより慣用的です。mapは、nil(各prn呼び出しの戻り値である)のシーケンスを作成するため、使用する意味はあまりありません。

私が永遠に数えると仮定すると、この操作の結果として生じるヌルポインタシーケンスは決して返されません。


4

MarioLANG、11バイト

+<
:"
>!
=#

別の質問でのMartinBüttnerの回答に触発されました。


これは問題なく2 ^ 128まで機能しますか?
flawr


@flawr MarioLANGにはRubyインタープリターがあり、Rubyの整数型には任意の精度があります。
マーティンエンダー

@flawrインタープリターに依存します。私が使用しているインタープリターはRubyで書かれており、任意の精度をサポートしています。
alephalpha

4

CJam、7バイト

0{)_p}h

説明:

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

注:Javaインタープリターを使用する必要があります。


4

C、89バイト

Cでの新しいアプローチ(ビット単位のインクリメンターの実装):

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

少ないゴルフ

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

終了する

このバージョンには、終了しないというわずかな欠陥があります(現時点では要件ではありません)。これを行うには、3文字を追加する必要があります。

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

4
実際、終了するべきではありません。それが意味するのはforever
-edc65


4

Minkolang、4バイト

1+dN

ここで試してみてください。(実際には、注意してください。3秒の実行時間で最大40,000になりました。)

1+スタックの最上部に1を追加してd複製し、Nスタックの最上部を後続スペースを含む整数として出力します。これはMinkolangがトロイダルであるためループします。したがって、プログラムカウンターが右端から外れると、左側に表示されます。


4

Intel 8086+アセンブリ、19バイト

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

内訳は次のとおりです。

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

左上の8つの画面位置に128ビットの数値を出力します。各画面位置には、8ビットASCII文字と2つの4ビット色が保持されます。

注:2 128で折り返します。8in mov cx, 8を変更し9て144ビットの数字を表示するか、80*252 32000までの数字を表示するだけです。です。

ランニング

1.44Mb bzip2圧縮、base64エンコードのブート可能フロッピーイメージ

以下をコピーアンドペーストしてフロッピーイメージを生成します

QlpoOTFBWSZTWX9j1uwALTNvecBAAgCgAACAAgAAQAgAQAAAEABgEEggKKAAVDKGgAaZBFSMJgQa
fPsBBBFMciogikZcWgKIIprHJDS9ZFh2kUZ3QgggEEh/i7kinChIP7HrdgA=

このコマンドラインに:

base64 -d | bunzip2 > floppy.img

そして、たとえば qemu -fda floppy.img -boot a

1.8MbブータブルISO

これは、base64でエンコードされたbzip2圧縮ISOイメージです。貼り付けてisoを生成します

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

base64 -d bunzip2 > cdrom.iso

それから起動するように仮想マシンを構成します。

DOS .COM

これは、base64でエンコードされたDOS .COM実行可能ファイルです。

aAC4H7kIADH/+YMVAEdH4vnr8Q==

を使用して.COMファイルを生成します

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

(無料)DOSで実行します。


4

Perl34 32 30 28 26 23バイト

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

でテスト

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

あなたは置き換えることができますfor(,,){...}{...;redo}2のために。
プリモ

はい(perl 5.18+)を見ましたが、不正行為の可能性があると思いました。答えは同じになります。私はここに新しいので、;
ケニー

1
スカラの参照は自動vivifiedようになりSV UNDEF、これはトリガされませんインクリメント時にBigInt過負荷を-それはありませんのでBigInt。ただし、整数リテラルはBigInts として作成されます。それほど奇妙ではありません;)
primo

1
$-それを整数として保持して使用に戻るために使用できます++$-か?
ドムヘイスティングス

1
テストした@DomHastingsは1に戻りperl -Mbigint -E '{say++$-;$-+=$-;redo}' | moreます。残念ながら、intのままですが、bigintは介入しません。
ケニー

4

マーベラス、358バイト

..@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個の半加算器がチェーン接続され、右端の1つが各サイクルでN ++を実行し、各加算器がオーバーフロー(00または01)をチェーン内の次のものに送ります。出力は16進数です。

pythonインタープリターには、メモされた関数からの出力が失われるバグがあるため、正しく機能させるには「-m 0」でこれを実行する必要があります。このパラメーターがないと、バグなしで実行される速度を確認できますが、出力は正しく機能しません。

自己への注意:marbelous.pyのバグを修正このバグはの最新バージョンで修正されました


4

R、52バイト

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

(注:gmp外部ライブラリであるため、このソリューションを機能させるにはダウンロードする必要がある場合があります)


1
+1 ...すべての追加機能について申し訳ありません。カップルを取り戻すために試すことができますa=gmp::as.bigz(0);repeat{cat(paste(a<-a+1,''))}gmpダウンロードが必要な外部ライブラリであるメモを作成することもできます。
MickyT


4

BotEngine、128 120 112 8x13 = 104

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

出力はバイナリです。

弊社のサイトを使用することにより、あなたは弊社のクッキーポリシーおよびプライバシーポリシーを読み、理解したものとみなされます。
Licensed under cc by-sa 3.0 with attribution required.