CBOT Quine #1839

melex750 · 2024-12-31T21:09:16Z

melex750
Dec 31, 2024

extern void CBOTQuine()
{
	string s[] = {
		"\t\t\42", "\\t",
		"\\", "\42, \42",
		"t", "\42,", ", ",
		",", " ", "\t", "\42", "n",
		"extern void CBOTQuine()", "{",
		"string s[] = {",
		"file f(", "CBOTQuine.cbot", "w", ");",
		"f.writeln(s[12]);",
		"f.writeln(s[13]);",
		"f.writeln(s[9]+s[14]);",
		"f.writeln(s[0]+s[1]+s[1]+s[2]+42+s[3]+s[2]+s[2]+s[4]+s[5]);",
		"f.writeln(s[0]+s[2]+s[2]+s[3]+s[2]+42+s[6]+s[2]+42+s[5]);",
		"f.writeln(s[0]+s[4]+s[3]+s[2]+42+s[7]+s[3]+s[7]+s[8]+s[5]);",
		"f.writeln(s[0]+s[7]+s[3]+s[8]+s[3]+s[1]+s[3]+s[2]+42+s[3]+s[11]+s[5]);",
		"f.writeln(s[0]+s[12]+s[3]+s[13]+s[5]);",
		"f.writeln(s[0]+s[14]+s[5]);",
		"f.writeln(s[0]+s[15]+s[3]+s[16]+s[3]+s[17]+s[3]+s[18]+s[5]);",
		"for (int i = 19; i < 37; i++) f.writeln(s[0]+s[i]+s[5]);",
		"f.writeln(s[0]+s[37]+s[10]);",
		"f.writeln(s[9]+s[37]);",
		"f.writeln(s[9]+s[15]+s[10]+s[16]+s[3]+s[17]+s[10]+s[18]);",
		"for (int i = 19; i < 36; i++) f.writeln(s[9]+s[i]);",
		"f.writeln(s[36]);",
		"f.close();",
		"}",
		"};"
	};
	file f("CBOTQuine.cbot", "w");
	f.writeln(s[12]);
	f.writeln(s[13]);
	f.writeln(s[9]+s[14]);
	f.writeln(s[0]+s[1]+s[1]+s[2]+42+s[3]+s[2]+s[2]+s[4]+s[5]);
	f.writeln(s[0]+s[2]+s[2]+s[3]+s[2]+42+s[6]+s[2]+42+s[5]);
	f.writeln(s[0]+s[4]+s[3]+s[2]+42+s[7]+s[3]+s[7]+s[8]+s[5]);
	f.writeln(s[0]+s[7]+s[3]+s[8]+s[3]+s[1]+s[3]+s[2]+42+s[3]+s[11]+s[5]);
	f.writeln(s[0]+s[12]+s[3]+s[13]+s[5]);
	f.writeln(s[0]+s[14]+s[5]);
	f.writeln(s[0]+s[15]+s[3]+s[16]+s[3]+s[17]+s[3]+s[18]+s[5]);
	for (int i = 19; i < 37; i++) f.writeln(s[0]+s[i]+s[5]);
	f.writeln(s[0]+s[37]+s[10]);
	f.writeln(s[9]+s[37]);
	f.writeln(s[9]+s[15]+s[10]+s[16]+s[3]+s[17]+s[10]+s[18]);
	for (int i = 19; i < 36; i++) f.writeln(s[9]+s[i]);
	f.writeln(s[36]);
	f.close();
}

hexagonrecursion · 2024-12-31T22:23:10Z

hexagonrecursion
Dec 31, 2024
Collaborator

string Replace(string s, string from, string to) {
    string result = "";
    for(int i = 0; i < strlen(s); ++i) {
        if(strmid(s, i, 1) == from) {
            result += to;
        } else {
            result += strmid(s, i, 1);
        }
    }
    return result;
}

extern void CBOTQuine() {
    string s = "string Replace(string s, string from, string to) {\n    string result = \"\";\n    for(int i = 0; i < strlen(s); ++i) {\n        if(strmid(s, i, 1) == from) {\n            result += to;\n        } else {\n            result += strmid(s, i, 1);\n        }\n    }\n    return result;\n}\n\nextern void CBOTQuine() {\n    string s = \"#\";\n    file f(\"CBOTQuine.cbot\", \"w\");\n    f.writeln(Replace(s, \"\\43\", Replace(Replace(Replace(s, \"\\\\\", \"\\\\\\\\\"), \"\\\"\", \"\\\\\\\"\"), \"\\n\", \"\\\\n\")));\n    f.close();\n}\n";
    file f("CBOTQuine.cbot", "w");
    f.writeln(Replace(s, "\43", Replace(Replace(Replace(s, "\\", "\\\\"), "\"", "\\\""), "\n", "\\n")));
    f.close();
}

0 replies

Provide feedback

Saved searches

Use saved searches to filter your results more quickly

Uh oh!

CBOT Quine #1839

Uh oh!

{{title}}

Uh oh!

Replies: 1 comment

Uh oh!

{{title}}

Uh oh!

Select a reply

Uh oh!

CBOT Quine #1839

Uh oh!

melex750 Dec 31, 2024

Replies: 1 comment

Uh oh!

hexagonrecursion Dec 31, 2024 Collaborator

melex750
Dec 31, 2024

hexagonrecursion
Dec 31, 2024
Collaborator