グッドイブニングゴルフエージェント、

あなたの使命は、悪名高いエンターテイメントの巨人Eviltronic Artsを代表しています。世界の奴隷化と娯楽のための悪質な計画の一環として、彼らはできるだけ多くのSimStation Vのコピーを販売しなければなりません。これは、数回起動した後、ソフトウェアが不思議なことに動作を停止しなければならないことを意味します。

目標は、実行された回数をカウントするプログラムを作成することです。プログラムは、整数をstdoutに書き込む以外は何もしません。初めて実行されたときは、「1」を返します。次の「2」など。プログラムは、少なくとも数値「14」に到達できる必要がありますが、必要な上限はありません。

ただし、プログラムは新しいファイルを書き込まないでください。自分自身、レジストリ、またはインターネットにアクセスすることもできます。しかし、一部のユーザーは新しいファイルを疑っており、単にそれらを上書きするだけです！神経！合法的に購入したソフトウェアの制限を破ります！

プログラムは、安定したインタープリターまたはシェルを想定できません-インタープリター全体がシェル実行中にコンピューターが再起動された場合、プログラムは引き続き動作する必要があります。

できるだけ検出できないようにする必要があるため、最短のソースコードが優先されます。

幸運のエージェント。エンターテインメント業界はあなたを頼りにしています。

bashスクリプト、39、37、21 18

wc -l<$0;echo>>$0

短くて甘い、コードゴルフの私の最初の提出:)

Pythonの、40、39、38の文字

また、ランタイムにはそのような上限はありません。

open(__file__,'a').write("+1");print 1

ご覧のとおり、プログラムのサイズは徐々に大きくなりますが、元の問題にはそのような制限はありませんでした。私は、提出されたプログラムのサイズがすべて重要だと信じています

PHP 48バイト

<?=$n=1 ;fputs(fopen(__FILE__,c),'<?=$n='.++$n);

簡単な自己修正アプローチ。99回実行した後、それは見事にクラッシュします。

$ php increment.php
1
$ php increment.php
2
$ php increment.php
3

⋮

$ php increment.php
97
$ php increment.php
98
$ php increment.php
99
$ php increment.php
PHP Parse error:  syntax error, unexpected T_STRING, expecting ',' or ';' in increment.php on line 1

bashスクリプト、37

n=1;echo $n;sed -ie s/$n/$((n+1))/ $0

Ruby：31 21文字

（これはAbhijitのPythonソリューションを書き直したものです。基本的なアイデアが気に入ったら、私がしたように彼の答えに賛成してください。）

open($0,?a)<<"+1";p 1

サンプル実行：

bash-4.2$ ruby increment.rb 
1

bash-4.2$ ruby increment.rb 
2

bash-4.2$ ruby increment.rb 
3

* sh、17

curl -L x.co/z7Uk

Webサービスを使用して、これまでの他の既存のソリューションとは異なるアプローチ。制限：マシンのメモリ。

JavaScript、40

alert(localStorage.a=~~localStorage.a+1)

プログラムとしてカウントされることはほとんどありませんが、とにかくかなり長いです。Firefoxのローカルファイルでは機能しません。制限：2 ^ 31。

PHP 31 37文字

自己修正。単項でカウントされます。テキストエディタが役に立たず、1の後に改行文字を挿入しないように注意してください。シャットダウン時にPHPに依存して開いているファイル記述子を閉じるため、PHP <5.3.2でのみ（正常に）動作します。または、ファイル記述子をリークすることは許容されますか？

<?fputs(fopen(__FILE__,a),1)?>1

元のバージョン（36文字）、すべてのPHPバージョン：

<?file_put_contents(__FILE__,1,8)?>1

Python、50

n=1;
print n
open(__file__,'r+').write("n="+`n+1`)

primoの回答と同じアプローチを使用し、100回目の実行時に同様にクラッシュします。

J（58）

これをスクリプトとして実行する必要がありますが、Jコマンドラインからは明らかに動作しません。

echo m=.1
exit(;:^:_1(<":m+1)(<3)};:1!:1[k)1!:2[k=.1{ARGV

Jでは、インタープリターが使用するトークナイザーは;:関数として使用できるため、xJコードが;:x含まれる場合、Jトークンが含まれます。

    ;: 'echo 1 2 3+4 5 6'
+----+-----+-+-----+
|echo|1 2 3|+|4 5 6|
+----+-----+-+-----+

そう：

• echo m=.1：m1に設定し、画面に書き込みます
• k=.1{ARGV：2番目の要素をARGV（スクリプト名）に保存しkます。
• ... 1!:2[k：次の文字列をファイルに書き込みますk：
• ;:1!:1[k：read k、現在のスクリプト、およびtokenize
• (<":m+1)(<3)}：3番目のトークンを次の文字列表現で置き換えます m + 1
• ;:^:_1：トークナイザーを逆に実行して、文字列を生成します
• exit：インタプリタを終了します（スクリプトを実行してもそれ自体は行いません）

PHP、34 33文字

<?=$_SESSION[A]+=session_start();

更新してくれたTimに感謝します！私の古い解決策：

<?=session_start()+$_SESSION[A]++;

問題は、最初の反復で$_SESSION[A]は""空の文字列session_start()ですが、1 が返されると、それを追加して1ショットで2つまたは3つのハエを殺すことができるということです！

正しい構文のソリューション（35文字）：

<?=session_start()+$_SESSION[A]++?>

Haskell-36バイト

main=do appendFile"a.hs""+1";print$1

+1ソースファイルの最後に単に名前を付けa.hsます。.hs拡張子はGHCとGHCiの両方で必須です。

TI-Basic、9文字

:X+1->X:X

バッチ-41

ユースケースの例を考えると、おそらくこのテクニックが実行可能なものであるとは思わないでしょう-スクリプトを含む.batファイルの名前を変更します-

@set/aa=%~n0+1
@echo %a%&@ren %0 %a%.bat

これをというファイルに保存し、0.bat-を使用して呼び出します0.bat 2>nul。2>nulこのスクリプトはスクリプトを含むファイルの名前を変更するため、stderrを必要なnulにリダイレクトします。これを行うと、cmdは明らかにスクリプトを見ることができなくなり（EOFに達する前）、エラーを返しますThe batch file cannot be found.

もちろん、スクリプトの連続した呼び出しは、 1.bat 2>nul ... 2.bat 2>nul ... 3.bat 2>nul ... etc ...

mIRCスクリプト、28/22バイト

「エイリアス」タブに配置すると、「エイリアス」を省略して22バイトにすることができます。

alias x inc %i | echo -ag %i

Python、49 48文字

私はこれが原因でWindows上で48文字にしかならないことに気付きました\r\n。それ以外の場合は49です。

n=1

print n;print>>open(__file__,'r+'),"n=",n+1

@grcによるメソッドの安っぽいリッピング

C、190文字。Win NTでのみ動作します

#include <stdio.h>
int main(int c,char *v[]){
char f[100];sprintf(f,"%s:s",v[0]);
if (FILE *fp=fopen(f,"r"))fscanf(fp,"%d",&c);
FILE *fp=fopen(f,"w");printf("%d",c-1);fprintf(fp,"%d",++c);
}

C＃、142文字

int v=(Microsoft.Win32.Registry.CurrentUser.GetValue("c") as int?)??0+1;Console.Write(v);Microsoft.Win32.Registry.CurrentUser.SetValue("c",v);

Tcl、63または73バイト

• 一部のWebサービスでは73です。

  package require http
  puts [set [http::geturl http://example.com/c](data)]
  

• 自身の変更は63です。

  proc a a {puts [string le $a]};puts -nonewline [open $argv0 a] a; a a
  

C＃の- 201の 239 234文字

最初の255回は動作し、その後0に戻ります。最初の実行では何も出力されません。

namespace System.IO{class s{static void Main (string[]a){char f='|';if(f!='|'){Console.Write (255);}string p=Reflection.Assembly.GetCallingAssembly().Location;byte[]d=File.ReadAllBytes(p);d[769]++;d[780]++;File.WriteAllBytes(p,d);}}}

Main.csとして保存し、でコンパイルします

gmcs Main.cs

gmcs 2.10.8.1およびMonoランタイム2.10.8.1-5ubuntu2でテスト済み

Powershell、47バイト

スクリプトに名前が付けられていると仮定する a.ps1

0
[int]$n,$t=(gc a.ps1)[0..1];,(++$n),$t>a.ps1

スクリプトは、それ自体が置換上書きされる0と最初の行に1、2、3など。

また、両方のインスタンスをreplaceingことにより、他の8つのバイトを救うことができるa.ps1と1し、という名前のファイルとしてスクリプトを保存し1、これはビットが私のために遠くまでですが。

ファイルが「a.ps1」として保存されていない場合は、2行目をこれに置き換えます。

[int]$n,$t=(gc($s=$MyInvocation.MyCommand.Name))[0..1];,(++$n),$t>$s

0 カウントを初期化する最初の行

Linebreakは、ファイルを2つに分割する最も簡単な方法を提供します

[int]$n,$t=(gc a.ps1)[0..1]

これは、我々は、次に、反復それを通ると、ファイル「a.ps1」をとり、線のアレイとしてそれを読み込む[0..1]変数こととセット$nとしてキャストさ[int]と$tなるように、それぞれ0最初の行にはなる$nと「コード'2行目の$t

,(++$n),$t>a.ps1

これは、,1,22つの要素の配列を作成するために配列表記を使用しました。1つは$n事前インクリメントで保存され、暗黙のブラケットを使用してstdoutに出力され、2つ目はファイルの2行目のテキスト、 「a.ps1」という名前のファイルに

入力と出力の両方が文字列の配列であるため、最小限の書式設定が必要であり、ほとんどすべてがインタープリターによって想定されています。

Zsh（coreutilsなし）、32バイト

a=`<$0`
<<<$[$#a/2-15]
>>$0<<<:

（末尾の改行に注意してください）スクリプトの長さを使用します。呼び出しのたびに、上記の最後の行が:（に同じtrue）と改行をスクリプトに追加するため、/2。

オンラインでお試しください！

さび/カーゴスクリプト、283バイト

ワンライナー：

use std::fs::File;use std::io::Write;fn main(){let c=     0; let mut v = vec![];::std::io::Read::read_to_end(&mut File::open("w").unwrap(),&mut v);let mut q=&mut File::create("w").unwrap();q.write(&v[..53]);q.write(format!("{:6}",c+1).as_bytes());q.write(&v[59..]);println!("{}",c);}

名前を付けて保存しwて実行cargo-script：

$ cargo-script script w
   Compiling w v0.1.0 (file:///home/vi/.cargo/script-cache/file-w-b4d6541706fabb11)
    (warnings skipped...)
    Finished release [optimized] target(s) in 1.47 secs
0
$ cargo-script script w
    (compilation output skipped)
1
$ cargo-script script w
...
2
$ cargo-script script w 2> /dev/null
3
$ cargo-script script w 2> /dev/null
4
$ cargo-script script w 2> /dev/null
5
$ cargo-script script w 2> /dev/null
6
$ cargo-script script w 2> /dev/null
7
$ cargo-script script w 2> /dev/null
8
$ cargo-script script w 2> /dev/null
9
$ cargo-script script w 2> /dev/null
10
$ cargo-script script w 2> /dev/null
11

速すぎて反復しないか、それがよ立ち往生。

部分的に未使用：

use std::fs::File;use std::io::Write;fn main(){let c=     0;
    let mut v = vec![];
    ::std::io::Read::read_to_end(&mut File::open("w").unwrap(),&mut v);
    let mut q = &mut File::create("w").unwrap();
    q.write(&v[..53]);
    q.write(format!("{:6}",c+1).as_bytes());
    q.write(&v[59..]);
    println!("{}", c);
}

99999の後に壊れます。

GNU sed、13 + 1（nフラグ）= 14バイト

$=;$eecho>>s

実行： sed -nf ss

前提は、ソースファイル名が呼び出されることsです。合計バイト数としてカウントされたコードの後に​​、末尾の改行が必要です。説明：

$=           # print the number of lines of the input file
$eecho>>s    # a shell echo call that appends an empty line to the source file 's'