Ihre Aufgabe ist es, ein vollständiges Programm zu schreiben, das bei jedem Start von 10 herunterzählt.

• Wenn Sie das Programm zum ersten Mal ausführen, sollte es gedruckt werden 10.
• Beim nächsten Mal sollte es ausgegeben werden 9.
• Beim nächsten Mal sollte es ausgegeben 8werden und so weiter.
• Anstatt zu drucken 0, sollte das Programm abstürzen. Danach muss das Programm nicht mehr ausgeführt werden.
• Es kann davon ausgegangen werden, dass alle für die Speicherung verwendeten Einrichtungen vor der ersten Ausführung des Programms leer sind.

Hier ist eine Beispielimplementierung in Python 3:

try:f=open("a","r+");v=int(f.read())
except:f=open("a","w");v=10
1/v
print(v)
f.seek(0)
f.write(str(v-1))

Das ist Code-Golf , also gewinnt die kürzeste Antwort (gemessen in Bytes).

6502 Maschinensprache + Apple] [+ ROM, 12 (11? 10? 9?) Bytes

CE 06 80 F0 01 A2 0B A9 00 4C 24 ED

Sollte um beginnen $8000. Stürzt auf dem Systemmonitor ab, wenn die Anzahl 0 erreicht.

C6 B6 F0 01 A2 0B A9 00 4C 24 ED

Sollte um beginnen $B1. Dies spart ein Byte, da ich die (Zwei-Byte-) Zero-Page-Version von verwenden kann DEC, aber die kritische Applesoft-Routine überschreibe CHRGET. Sie müssen es laden und vom Monitor aus aufrufen und anschließend mit CTRL+ BReturnBASIC neu initialisieren. Ich bin mir nicht sicher, ob dies den Fehler verursacht oder nicht.

CE 06 80 F0 01 A2 0B 4C 26 ED

Sollte um beginnen $8000. Dies wird nicht initialisiert $9Eund spart zwei Bytes. Dies bedeutet jedoch, dass Sie es nicht mit einer negativen Adresse anrufen dürfen (oder, wenn Sie es vom Monitor aus anrufen, müssen Sie den Monitor mit einer positiven Adresse anrufen). Wenn Sie das tun, Apple die CALLspeichert Routine FFin $9E, es verursacht 65280 an die Nummer hinzuzufügen , wenn es gedruckt wird . Wieder nicht sicher, ob dies die Lösung ungültig macht oder nicht.

C6 B6 F0 01 A2 0B 4C 26 ED

Sollte um beginnen $B1. Dies ist eine Kombination der beiden oben genannten Programme, wodurch insgesamt drei Bytes eingespart werden. Sie müssen den Monitor mit einer positiven Adresse aufrufen, ihn laden und von dort ausführen und mit Ctrl+ BReturnBASIC neu initialisieren, wenn Sie fertig sind.

Beachten Sie, dass diese Programme nur das Programm im Speicher ändern; Durch erneutes Laden des Programms von der Festplatte wird der Countdown zurückgesetzt. Dies funktioniert, weil Apple] [(und] [+, // e und // c) überhaupt kein Speicherschutzsystem haben. Das Programm (und seine Selbstmodifikationen) bleiben auch nach dem Beenden im Speicher, sodass Sie es so lange ausführen können, bis Sie diesen Speicher mit etwas anderem überschreiben.

Probelauf

]BLOAD COUNT THEN BRK
]CALL 32768
10
]CALL 32768
9
]CALL 32768
8
]CALL 32768
7
]CALL 32768
6
]CALL 32768
5
]CALL 32768
4
]CALL 32768
3
]CALL 32768
2
]CALL 32768
1
]CALL 32768

8008-    A=80 X=9D Y=00 P=36 S=EE
*

Erläuterung

     DEC NUM+1  ; Decrement the LDX instruction's operand
     BEQ NUM+1  ; If it is now zero, branch to it; 00 is the opcode for the BRK instruction, which causes the program to crash to the monitor
NUM  LDX #$0B   ; Load the X register with 0x0A; the operand has already been decremented once
     LDA #$00   ; Load the accumulator with 0
     JMP $ED24  ; Jump to $ED24, an Applesoft ROM routine which prints A (high byte),X (low byte) in decimal

Erklärung der 10-Byte-Version

     DEC NUM+1  ; Decrement the LDX instruction's operand
     BEQ NUM+1  ; If it is now zero, branch to it; 00 is the opcode for the BRK instruction, which causes the program to crash to the monitor
NUM  LDX #$0B   ; Load the X register with 0x0A; the operand has already been decremented once
     JMP $ED26  ; Jump to $ED26, which is two bytes into the Applesoft routine at $ED24. The two skipped bytes would store the accumulator in $9E

Varianten

Druckt ERRund piept, wenn die Anzahl 0 erreicht

Normal - 15 Bytes

CE 06 80 F0 07 A2 0B A9 00 4C 24 ED 4C 2D FF

Überschreibt CHRGET- 14 Bytes

C6 B6 F0 07 A2 0B A9 00 4C 24 ED 4C 2D FF

Initialisiert nicht $9E- 13 Bytes

CE 06 80 F0 05 A2 0B 4C 26 ED 4C 2D FF

Überschreibt CHRGETund initialisiert nicht $9E- 12 Bytes

C6 B6 F0 05 A2 0B 4C 26 ED 4C 2D FF

Friert ein, wenn die Anzahl 0 erreicht

Normal - 12 Bytes

CE 06 80 F0 FE A2 0B A9 00 4C 24 ED

Überschreibt CHRGET- 11 Bytes

C6 B6 F0 FE A2 0B A9 00 4C 24 ED

Initialisiert nicht $9E- 10 Bytes

CE 06 80 F0 FE A2 0B 4C 26 ED

Überschreibt CHRGETund initialisiert nicht $9E- 9 Bytes

C6 B6 F0 FE A2 0B 4C 26 ED

Perl unter Linux, 17 Bytes

Ich dachte, es könnte interessant sein, ein Programm zu erstellen, das selbst keinen Zustand beibehält und seinen eigenen Quellcode nicht modifiziert. Mit anderen Worten, es überprüft tatsächlich, wie oft es ausgeführt wurde, indem es das Betriebssystem fragt. Die Frage lautet: "Es kann davon ausgegangen werden, dass alle für die Speicherung verwendeten Einrichtungen vor der ersten Ausführung des Programms leer sind." Daher möchten wir von einem vollständig leeren Betriebssystem ausgehen. Als solches würde ich Ihnen besser erklären, wie Sie das machen, da es sonst schwierig ist, das Programm zu testen.

Es gibt zwei Möglichkeiten, um das Programm auszuführen. In jedem Fall würde das minimale Betriebssystem für diesen Zweck nur eine Shell ausführen (damit wir Perl abwechselnd ausführen können), und die einfachste Shell (damit das Betriebssystem nichts Besonderes tut, was es zu einem Nicht-Betriebssystem macht). leer). /bin/dashist hier eine gute Wahl, da es als minimale Shell für die Systemwiederherstellung gedacht war. Dann müssen wir Linux so starten, dass es nur läuft dash. Dies können wir entweder tun, indem wir den Computer init=/bin/dashüber die Linux-Befehlszeile neu starten, so dass nichts anderes gestartet wird dash, oder (viel bequemer) indem wir einen Linux-Container unshare -Urfp /bin/dashin einem Terminal erstellen (erstellt unshareeigentlich kein leeres Betriebssystem, simuliert es aber)einer; Insbesondere denkt das Innere des Containers, dass es sich um root, dashinit usw. handelt, genau wie dies bei einem leeren Betriebssystem der Fall wäre. Haftungsausschluss: Ich habe dies noch nicht auf Bare Metal getestet unshare, sondern nur im Inneren , aber es sollte theoretisch in beide Richtungen funktionieren.

Sobald wir das eingerichtet haben, müssen wir uns nur noch die PID ansehen. Da es sich um ein leeres System handelt, hat das Init-System (hier die Shell) die PID 1, sodass die Ausführungen von Perl PIDs von 2 bis einschließlich 12 haben. Unser Programm sieht also so aus:

say 12-$$||die

Hier ist ein Probelauf:

$ unshare -Urfp /bin/dash
# perl -E 'say 12-$$||die'
10
# perl -E 'say 12-$$||die'
9
# perl -E 'say 12-$$||die'
8
# perl -E 'say 12-$$||die'
7
# perl -E 'say 12-$$||die'
6
# perl -E 'say 12-$$||die'
5
# perl -E 'say 12-$$||die'
4
# perl -E 'say 12-$$||die'
3
# perl -E 'say 12-$$||die'
2
# perl -E 'say 12-$$||die'
1
# perl -E 'say 12-$$||die'
Died at -e line 1.
#

Bash + sed, 41 40 38 Bytes

echo $[n=10/1]
sed -i s/$n/$[n-1]/g $0

Probieren Sie es online!

Javascript, 42 Bytes

y=localStorage;y.a=y.a||10;alert(y.a--||a)

Probieren Sie es mit dieser Geige aus - löschen Sie unbedingt Ihren lokalen Speicher, um den Countdown zurückzusetzen.

Vielen Dank an steenbergh, Lmis und obarakon für viele Bytes!

C # 197 160 159 125 Bytes

namespace System.IO{class P{static void Main(){int n=11;for(;File.Exists(""+--n););File.Create(""+n);Console.Wr‌​ite(n*n/n);}}}

34 Bytes dank Milch gespart

Und eine formatierte Version (Mit ReadKeyhinzugefügt, damit Sie die Ausgabe anzeigen können):

namespace System.IO
{
    class P
    {
        static void Main()
        {
            int n=11;
            for(;File.Exists(""+--n););
            File.Create(""+n);
            Console.Wr‌​ite(n*n/n);
        }
    }
}

Es ist länger als ich dachte, also gibt es wahrscheinlich Platz zum Golfen.

Dyalog APL , 33 28 22/20? Bytes

Ich bin nicht sicher, ob dies gültig ist, da es aus einer Funktion besteht (die mit einem Dummy-Argument aufgerufen werden muss). Alle APL-Programme (rein funktional oder nicht) haben jedoch den gleichen Status, und in der Tat haben einige APL-Versionen keine herkömmlichen Programme, sondern nur Funktionen. Zum Ausgleich habe ich zwei Bytes hinzugefügt, um es zu benennen, obwohl dies für den gewünschten Effekt nicht erforderlich ist.

f←{6::⊢c∘←10⋄÷÷c∘←c-1}

Beachten Sie, dass dies auf einer inoffiziellen Eigenheit beruht, ∘←die global zugewiesen wird .

6:: bei einem Wertfehler

⊢cRückkehr c

∘←10 Welches ist global auf 10 festgelegt

⋄ jetzt

÷÷c Rückgabe der zweimal invertierten (Fehler auf Null) c

∘← Welches ist global festgelegt auf

c-1einer weniger als c

TryAPL online!

Mit Sicherheit gültige 28-Byte-Version:

f
⍎'c←11'/⍨0=⎕NC'c'
⊢c←÷÷c-1

Setzt c auf 11, wenn es fehlt, subtrahiert dann 1 von c , invertiert zweimal (was einen Fehler durch Null ergibt, wenn c -1 0 ist), weist c zu und gibt den neuen Wert aus.

Alte 33-Byte-Version:

f
÷÷ ÷÷2 ↓ r⊣⎕FX¯1 ↓ r ← ⎕NR'f '

Funktioniert, indem es sich bei jedem Durchlauf neu definiert, jedoch mit einer Zeile weniger nachgestellten Zeilenumbrüchen. Gibt die zweifach invertierte Anzahl der verbleibenden Zeilen aus (weniger als zwei), wodurch ein Fehler durch Null geteilt wird, wenn nur noch zwei Zeilen übrig sind (der Header und der tatsächliche Code).

Perl, 37 36 Bytes

9=~//;print$'-sysopen$~,$0,print$'+1

Stürzt ab, wenn der Anfangswert -1 erreicht (was den Wert 0 ergeben hätte), während der =~Operator überschrieben wird.

Ein Byte mit sysopenanstatt mit gespeichert open. Auf diese Weise kann ich STDOUTzuerst mit dem Rückgabewert als Dateimodus ( 1auch bekannt als O_WRONLY) drucken , bevor er $~neu zugewiesen wird.

Beispielnutzung

$ perl crash-off.pl
10
$ perl crash-off.pl
9
$ perl crash-off.pl
8

...

$ perl crash-off.pl
2
$ perl crash-off.pl
1
$ perl crash-off.pl
syntax error at crash-off.pl line 1, near "1~"
Execution of crash-off.pl aborted due to compilation errors.

Perl 6 ,  60  58 Bytes

put 10-$=finish.lines||die;
$*PROGRAM.open(:a).put;
=finish
 

open($*PROGRAM,a=>put 10-$=finish.lines||die).put
=finish
 

Benötigt Newline-Zeichen nach =finish.

diekann durch ersetzt werden 1/0.

Erläuterung:

Es wird eine Liste von Zeilen abgerufen, nachdem =finish( $=finish.lines) diese subtrahiert 10hat. Wenn das Ergebnis nicht 0angezeigt wird, wird es gedruckt, andernfalls wird es dieausgegeben.

Das Letzte, was es tut, ist, sich selbst im Anfügemodus zu öffnen und am Ende eine weitere Zeile hinzuzufügen.

Python 2, 65 Bytes

f=open(__file__,"r+")
x=75-len(f.read())
x/x
print x
f.write('#')

Inspiriert von L3viathans Antwort .

Kann bis zu 60 Byte reduziert werden , wenn Sie die Datei ein einzelnes Zeichen wie nennen können wählen , xund ersetzen Sie dann __file__mit 'x'. In diesem Fall ersetzen Sie 75durch 70.

Jolf, 20 Bytes

γ-@▲lqΈ?␡γ?γaγ0₯I₯C1

Probieren Sie es hier aus! Fehler, wenn 0gedruckt wird. Ändert den Code. Erklärung zu kommen.

Applesoft BASIC, 21 Byte (tokenisiert)

0  PRINT 9 + 1: CALL 2066: END : OR <CTRL-F><CTRL-H>`

Ersetzen Sie <CTRL-F>und <CTRL-H>mit ihren wörtlichen Versionen. Beachten Sie, dass dies nur das Programm im Speicher ändert. Durch erneutes Laden von der Festplatte wird der Countdown zurückgesetzt.

Probelauf

]RUN
10

]RUN
9

]RUN
8

]RUN
7

]RUN
6

]RUN
5

]RUN
4

]RUN
3

]RUN
2

]RUN
1

]RUN

?SYNTAX ERROR IN 0

Erläuterung

PRINT 9 + 1tut, was Sie erwarten würden. CALL 2066ruft die 6502-Maschinensprachenroutine am Speicherort 2066 auf, der danach liegt END :. ENDHält das Programm an, sodass die maschinensprachliche Routine (für den Applesoft-Interpreter Müll) nicht ausgeführt wird.

Die Maschinensprache Routine dekrementiert einfach die 9in PRINT 9 + 1. Demontage:

0812-   CE 06 08    DEC $0806
0815-   60          RTS

Nachdem der Zähler 0 erreicht hat, wird er auf "dekrementiert" /. Der Versuch, das Programm auszuführen, führt dann zu einem Syntaxfehler.

*> <> , 20 18 Bytes

a1Fi:0(?b1-:?:1Fn;

Dies funktioniert tatsächlich unter Linux (und was auch immer Dateien mit dem Namen unterstützt, \ndenke ich). Es wird eine Datei mit dem Namen \nbeim ersten Start erstellt und ausgegeben 10. Bei jedem nachfolgenden Durchlauf wird eine Nummer weniger ausgegeben, es sei denn, 0es stürzt stattdessen ab.

Erläuterung

a1F                   open file named "\n"
   i:                 recieve input and duplicate it (-1 if empty)
     0(?b             if the file is empty, push 11 to the stack
         1-           subtract one
           :          duplicate the number
            ?:        if the number isn't 0, duplicate it again
              1F      save the number to the file
                n     output the number (crash if non-existant)
                 ;    exit

PHP 57 Bytes

echo$n=($f=file(f))?$f[0]:10?:die;fputs(fopen(f,w),--$n);

stürzt nicht wirklich ab, sondern beendet sich (ohne herunterzuzählen), wenn es trifft 0. Reicht das

Laufen Sie mit -r.

C #, 156 Bytes

Ich spielte eine Weile mit der Antwort von @ TheLethalCoder und konnte 3 Bytes einsparen, indem ich die Anweisungen neu anordnete und die int.parse () eliminierte. Ich bin mir sicher, dass es noch Verbesserungspotenzial gibt.

using System.IO;class P{static void Main(){int n;try{n=File.ReadAllText("f")[0]-48;}catch{n=10;}System.Console.Write(n/n*n);File.WriteAllText("f",""+--n);}}

Ungolfed:

using System.IO;
class P
{
    static void Main()
    {
        int n;
        try
        {
            n = File.ReadAllText("f")[0] - 48;
        }
        catch {
            n = 10;
        }
        System.Console.Write(n / n * n);
        File.WriteAllText("f", "" + --n);
    }
}

Meta-Frage: Es mag schwierig sein, die Arbeit von TheLethalCoder als Ausgangspunkt für meine Antwort zu nehmen. Wäre es besser (wenn ich den Repräsentanten habe), dies als Kommentar zu ihrer Antwort hinzuzufügen? Ich versuche nicht, mit ihnen zu konkurrieren, ich möchte nur mein Golf zur gegenseitigen Erbauung vorführen.

Powershell V2.0, 49 Bytes

(Zum ersten Mal Code Golf, konnte die Regeln für die Berechnung von Bytes nicht finden. Ich habe online einen String-to-Bytes-Rechner verwendet.)

if(!$n){$n=10;$n}else{$n-=1;if($n-eq0){throw};$n}

Laufen:

PS C:\Users\***> if(!$n){$n = 10;$n}else{$n=$n-1;if($n-eq0){throw};$n;}
10

____________________________________________________________________________________________________________________________________________________________________
PS C:\Users\***> if(!$n){$n = 10;$n}else{$n=$n-1;if($n-eq0){throw};$n;}
9

____________________________________________________________________________________________________________________________________________________________________
PS C:\Users\***> if(!$n){$n = 10;$n}else{$n=$n-1;if($n-eq0){throw};$n;}
8

____________________________________________________________________________________________________________________________________________________________________
PS C:\Users\***> if(!$n){$n = 10;$n}else{$n=$n-1;if($n-eq0){throw};$n;}
7

____________________________________________________________________________________________________________________________________________________________________
PS C:\Users\***> if(!$n){$n = 10;$n}else{$n=$n-1;if($n-eq0){throw};$n;}
6

____________________________________________________________________________________________________________________________________________________________________
PS C:\Users\***> if(!$n){$n = 10;$n}else{$n=$n-1;if($n-eq0){throw};$n;}
5

____________________________________________________________________________________________________________________________________________________________________
PS C:\Users\***> if(!$n){$n = 10;$n}else{$n=$n-1;if($n-eq0){throw};$n;}
4

____________________________________________________________________________________________________________________________________________________________________
PS C:\Users\***> if(!$n){$n = 10;$n}else{$n=$n-1;if($n-eq0){throw};$n;}
3

____________________________________________________________________________________________________________________________________________________________________
PS C:\Users\***> if(!$n){$n = 10;$n}else{$n=$n-1;if($n-eq0){throw};$n;}
2

____________________________________________________________________________________________________________________________________________________________________
PS C:\Users\***> if(!$n){$n = 10;$n}else{$n=$n-1;if($n-eq0){throw};$n;}
1

____________________________________________________________________________________________________________________________________________________________________
PS C:\Users\***> if(!$n){$n = 10;$n}else{$n=$n-1;if($n-eq0){throw};$n;}
ScriptHalted
At line:1 char:49
+ if(!$n){$n = 10;$n}else{$n=$n-1;if($n-eq0){throw <<<< };$n;}
    + CategoryInfo          : OperationStopped: (:) [], RuntimeException
    + FullyQualifiedErrorId : ScriptHalted

Java, 343 Bytes

Mein erster Golfversuch

import java.io.PrintWriter;class M{public static void main(String[] a) throws Exception{if(!new java.io.File("x").exists()) try(PrintWriter p=new java.io.PrintWriter("x")){p.write("10");}int b=new java.util.Scanner(new java.io.File("x")).nextInt();try(PrintWriter p=new java.io.PrintWriter("x")){p.print(b/b*b-1+"");System.out.print(b+"");}}}

ungolfed

import java.io.PrintWriter;

class M {
    public static void main(String[] a) throws Exception {
        if (!new java.io.File("x").exists()) {
            try (PrintWriter p = new java.io.PrintWriter("x")) {
                p.write("10");
            }
        }
        int b = new java.util.Scanner(new java.io.File("x")).nextInt();
        try (PrintWriter p = new java.io.PrintWriter("x")) {
            p.print(b / b * b - 1 + "");
            System.out.print(b + "");
        }
    }
}

SQLite, 142 137

Dies könnte wahrscheinlich viel geschickter gemacht werden. 141 136 Zeichen für Code:

create table if not exists t(n not null);insert into t select 11;update t set n=case n when 1 then null else n-1 end;select min(n)from t

Plus 1 für den Dateinamen xin sqlite3 x '…'.

JavaScript, 74 Bytes

x=typeof x!=typeof 1?10:x!=1?x-=1:_

l=localStorage;l.a=typeof l.a!=typeof""?10:l.a!=1?l.a=--l.a:_;aler‌​t(l.a)

Ruby, 94 87 84 61 59 Bytes

j=File.open(?a,"a+");1/(i=j.readlines.size-14);p -i;j.puts

Bitte hinterlassen Sie unten Vorschläge.

Vielen Dank an @ ConorO'Brien für die Ideen (einige schamlos von seiner Antwort abgerissen).

Ruby, 52 + 1 = 53 Bytes

Angenommen, die Datei heißt a(+1 Byte).

q=File.read ?a
0/h=62-q.size
p h
File.write ?a,q+?1#

Laufen

C:\Users\Conor O'Brien\Documents\Programming
λ type a
q=File.read ?a
0/h=62-q.size
p h
File.write ?a,q+?1#
C:\Users\Conor O'Brien\Documents\Programming
λ ruby a
10

C:\Users\Conor O'Brien\Documents\Programming
λ ruby a
9

C:\Users\Conor O'Brien\Documents\Programming
λ ruby a
8

C:\Users\Conor O'Brien\Documents\Programming
λ ruby a
7

C:\Users\Conor O'Brien\Documents\Programming
λ ruby a
6

C:\Users\Conor O'Brien\Documents\Programming
λ ruby a
5

C:\Users\Conor O'Brien\Documents\Programming
λ ruby a
4

C:\Users\Conor O'Brien\Documents\Programming
λ ruby a
3

C:\Users\Conor O'Brien\Documents\Programming
λ ruby a
2

C:\Users\Conor O'Brien\Documents\Programming
λ ruby a
1

C:\Users\Conor O'Brien\Documents\Programming
λ ruby a
a:2:in `/': divided by 0 (ZeroDivisionError)
        from a:2:in `<main>'

Python 2, 89 Bytes

x=10
x/x
print x
f=open(__file__,"r+")
s=f.read()
f.seek(0)
f.write(s.replace(`x`,`x-1`))

TI-BASIC (TI-84 Plus) (15 Byte)

If not(Ans
11
Ans-1
AnsAns/Ans

Ans sollte vor dem ersten Lauf gleich 0 (der Standardwert) sein.

Da dies AnsAns/Ansdie letzte Zeile des Programms ist, wird sie ausgegeben und in Ans gespeichert, sofern Ans nicht 0 ist. In diesem Fall tritt ein Fehler beim Teilen durch 0 auf.

JavaScript, 41

l=localStorage;l.l=-~l.l;alert(11-l.l||I)

GNU Smalltalk, 7068 Bytes

66 Byte Code +2 Byte für das "-S" -Flag

EDITS

• Entfernte unnötige Klammern, -2 Bytes

Golf gespielt

X=Y ifTrue:[Smalltalk at:#X put:10]ifFalse:[X:=X-1].(X*X/X)printNl

Prüfung

>seq 11|xargs -L1 sudo gst -S fail.st 2>/dev/null
10
9
8
7
6
5
4
3
2
1
Object: 0 error: The program attempted to divide a number by zero
ZeroDivide(Exception)>>signal (ExcHandling.st:254)
SmallInteger(Number)>>zeroDivide (SysExcept.st:1426)
SmallInteger>>/ (SmallInt.st:277)
UndefinedObject>>executeStatements (fail.st:1)

Wichtig

Sie müssen gst als root ausführen , damit das Standard-Image geändert werden kann, oder Sie müssen mit -I Ihr eigenes Image angeben .

PHP, 45 Bytes

Ehrlich gesagt nicht sicher, ob dieser zählt.

<?session_start();echo10-$_SESSION[0]++?:die;

Ich würde einen Link zu einem Beispiel posten, aber alle mir bekannten Online-Tester dürfen nicht session_start()verwendet werden.

Dies zählt jedes Mal herunter, wenn Sie die Seite aktualisieren, bis 0, wenn der dieBefehl ausgeführt wird.

QBIC , 70 Bytes

open"r",1,"a.b" $get#1,1,e|~e=0|e=z\e=e-1]?e~e=0|$error 1|]$put#1,1,e|

Öffnet die Datei a.b(oder erstellt sie, wenn sie beim ersten Start nicht gefunden wird) und liest Datensatz 1 ein e. Wenn dieser Datensatz nicht gefunden wird, nehmen Sie 10 an, andernfalls sub 1. Bei e==0wird ein Fehler ausgelöst. Schreiben Sie zurück ean a.b.

Der Dateizugriff ist nicht in QBIC integriert. Dies hängt stark von dem zugrunde liegenden QBasic ab.

Batch, 72 Bytes

@call:l
@if %n%==0 goto g
@echo %n%
@cmd/cset/a-1>>%0
:l
@set/an=10

Muss unter Verwendung des vollständigen Dateinamens einschließlich der Erweiterung aufgerufen werden. Die letzte Zeile darf keine nachgestellte Zeile enthalten. Funktioniert, indem Sie -1bis zum Ende der letzten Zeile schreiben , sodass sie jedes Mal 1 weniger ergibt. goto gfehler raus da es kein label gibt :g.

R, 52 Bytes

`if`(!"x"%in%ls(),cat(x<-10),`if`(x>0,cat(x<-x-1),))

Wird im Wesentlichen verwendet, ls()um die Namen aller global gespeicherten Objekte aufzulisten. Wenn wir davon ausgehen , dass die globale Umwelt leer ist und "x"nicht bereits vorhanden ist, erzeugen x=10, wenn sonst x!=0subtrahieren 1sonst Anruf ein fehlendes Argument , das einen Fehler zurückgibt.

Windows Batch, 61 Bytes

@if %n%.==. set n=10
@if %n%==0 goto.
@set /a n-=1&@echo %n%

JavaScript, 44 Bytes

function* f(n=11){for(;--n;yield n);throw''}

p=f()
console.log(p.next().value)
console.log(p.next().value)
console.log(p.next().value)
console.log(p.next().value)
console.log(p.next().value)
console.log(p.next().value)
console.log(p.next().value)
console.log(p.next().value)
console.log(p.next().value)
console.log(p.next().value)
console.log(p.next().value)