Pascal quine je davno provaljen i mislim da ne moze da se napiše kraći od ovoga:
Code:
const a=';begin write(^#^/^.^3^4^`^!^}#39,a,#39,a)end.';begin write(^#^/^.^3^4^`^!^}#39,a,#39,a)end.
Doduše, ima jedna stvar kod njega. Izlaz nije potpuno identičan ulazu, jer će se izlaz prelomiti na 80-om karakteru.
Pascal quine koji potpuno odgovara zadatku je ovaj:
Code:
const a='const a=';b='begin write(a,#39,a,#39#59#98#61#39,b,#39#59#10,b) end.';
begin write(a,#39,a,#39#59#98#61#39,b,#39#59#10,b) end.
Kod njega je izlaz 100% identičan ulazu.
Naravno kompajlirati sa dcc32 -CC da bi izbegli potrebu za {$APPTYPE CONSOLE} u Delphiju.
I kakve sad veze ima kompaliranje sa ulaznim kodom i izlazom programa? :)
viking ®
Napisite u Pascalu najkraci program koji ce sam sebe da ispiše
Registrovani: 4 ( pctel, vjova, ackopk, Darko Nedeljković )