brainfuck-esotope, 963 bytes

Result

WA

Duration

966ms

Code [DL]

>,>+[<[>>+>+<<<-]>>>[<<<+>>>-]>>+<<<[>>+<<-]>>[>-]>[><<<<+>[-]>>->]<+<<[>-[>-]>[><<<<+>[-]+>>->]<+<<-]>[-]>-<<<[>+<[-]]+>[<->-]<[<<[>>>+>+<<<<-]>>>>[<<<<+>>>>-]>++++++++[<++++++++++>-]<++++<[->-<]+>[<->[-]]<<<<<[>>>>>+>+<<<<<<-]>>>>>>[<<<<<<+>>>>>>-]>+++++[<++++++++++>-]<<[->-<]+>[<->[-]]<<[>>+<<-]>>[<<+>>[-]]<[<+>[-]]<[>>+<<-]>>[<<+>>[-]]<+<[>><<<<<<[-]>>>>>>[<<<<<<+>>>>>>-]<-<[-]]>[<<<<<[>>>>>>+>+<<<<<<<-]>>>>>>>[<<<<<<<+>>>>>>>-]+[<+>-]<<<<<<<[-]>>>>>>[<<<<<<+>>>>>>-]<-]<<<<[>>>+>+<<<<-]>>>>[<<<<+>>>>-]>+++++++[<++++++++++>-]<+++++<[->-<]+>[<->[-]]+<[<<<<[>>>>>>+>+<<<<<<<-]>>>>>>>[<<<<<<<+>>>>>>>-]>+++++[<++++++++++>-]<+[<->-]<<<<<<<[-]>>>>>>[<<<<<<+>>>>>>-]<-<[-]]>[-]<<<<<[>>>>+>+<<<<<-]>>>>>[<<<<<+>>>>>-]<+>+>>+<<<[>>+<<-]>>[>-]>[><<<<+>[-]>>->]<+<<[>-[>-]>[><<<<+>[-]+>>->]<+<<-]>[-]>-<<+<[<<<[>>>>>+>+<<<<<<-]>>>>>>[<<<<<<+>>>>>>-]+[<->-]<<<<<<[-]>>>>>[<<<<<+>>>>>-]<-<[-]]>[-]<<<<[>>>+>+<<<<-]>>>>[<<<<+>>>>-]<.[-],<<<[-]>>>[<<<+>>>-]<[-]<+>]<-]

Disassembly

p[1] = GETC();
p[2] = 1;
p[3] = 0;
p[4] = 0;
p[5] = 0;
p[6] = 0;
while (p[2]) {
	p[3] += p[1];
	p[4] += p[1];
	p[1] = p[4];
	p[4] = 0;
	++p[6];
	p[5] += p[3];
	p[3] = 0;
	while (p[5]) {
		--p[6];
		++p;
	}
	while (p[6]) {
		++p[3];
		p[4] = 0;
		--p[6];
		++p;
	}
	++p[5];
	while (p[3]) {
		--p[4];
		while (p[4]) {
			--p[5];
			++p;
		}
		while (p[5]) {
			++p[2];
			p[3] = 1;
			--p[5];
			++p;
		}
		++p[4];
		--p[2];
		--p;
	}
	p[4] = 0;
	--p[5];
	if (p[2]) {
		++p[3];
		p[2] = 0;
	}
	p[2] = -p[3]+1;
	p[3] = 0;
	while (p[2]) {
		p[3] += p[0];
		p[4] += p[0];
		p[0] = p[4];
		p[5] += 8;
		p[4] = -p[3]+10*p[5]+4;
		p[5] = 0;
		p[3] = 1;
		if (p[4]) {
			--p[3];
			p[4] = 0;
		}
		p[4] = p[-1];
		p[5] += p[-1];
		p[-1] = p[5];
		p[6] += 5;
		p[5] = 10*p[6]-p[4];
		p[6] = 0;
		p[4] = 1;
		if (p[5]) {
			--p[4];
			p[5] = 0;
		}
		p[5] = p[3];
		p[3] = 0;
		if (p[5]) {
			++p[3];
			p[5] = 0;
		}
		p[5] = 0;
		if (p[4]) {
			++p[3];
			p[4] = 0;
		}
		p[4] = 0;
		p[5] += p[3];
		p[3] = 0;
		if (p[5]) {
			++p[3];
			p[5] = 0;
		}
		p[5] = 0;
		++p[4];
		if (p[3]) {
			p[-1] = p[5];
			p[5] = 0;
			--p[4];
			p[3] = 0;
		}
		p[3] = 0;
		int loopcnt0;
		for (loopcnt0 = p[4]; loopcnt0 > 0; --loopcnt0) {
			p[5] += p[-1]+1;
			p[6] = 0;
			p[-1] = p[5];
			p[5] = 0;
		}
		p[4] = p[0];
		p[3] += p[0];
		p[0] = p[4];
		p[5] += 7;
		p[4] = -p[3]+10*p[5]+5;
		p[5] = 0;
		p[3] = 1;
		if (p[4]) {
			--p[3];
			p[4] = 0;
		}
		p[4] = 1;
		if (p[3]) {
			p[5] += p[-1];
			p[7] += 5;
			p[6] = 10*p[7]+1;
			p[7] = 0;
			p[5] -= p[6];
			p[6] = 0;
			p[-1] = p[5];
			p[5] = 0;
			--p[4];
			p[3] = 0;
		}
		p[3] = p[-1]+1;
		p[4] = p[-1];
		p[-1] = p[4];
		p[4] = 1;
		++p[6];
		p[5] += p[3];
		p[3] = 0;
		while (p[5]) {
			--p[6];
			++p;
		}
		while (p[6]) {
			++p[3];
			p[4] = 0;
			--p[6];
			++p;
		}
		++p[5];
		while (p[3]) {
			--p[4];
			while (p[4]) {
				--p[5];
				++p;
			}
			while (p[5]) {
				++p[2];
				p[3] = 1;
				--p[5];
				++p;
			}
			++p[4];
			--p[2];
			--p;
		}
		p[4] = 0;
		p[3] = 1;
		--p[5];
		if (p[2]) {
			p[4] += p[-1]-1;
			p[5] = 0;
			p[-1] = p[4];
			p[4] = 0;
			--p[3];
			p[2] = 0;
		}
		p[2] = p[-1];
		p[3] = 0;
		p[-1] = p[2];
		PUTC(p[2]);
		p[2] = GETC();
		p[2] = 0;
		p[1] = 0;
		++p[0];
		--p;
	}
	--p[1];
	--p;
}

stdin

                       T                          
                                                  
                  K                               

stdout

                                                  





































































































																																																			

stderr

strace