Tema
Registracija

Napisite u Pascalu najkraci program koji ce sam sebe da ispiše

Odgovori Nova tema
Štampanje RSS teme Kopiraj vezu do teme Podeli na Facebook-u Podeli na X-u (Twitter) Idi na poslednju poruku
  • 6 odgovora
  • 3.489 pregleda
Re: Napisite u Pascalu najkraci program koji ce sam sebe da ispiše 17.02.2009. u 02:36 · pre 215 meseci #4
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? :)
Potpis
viking ®
Re: Napisite u Pascalu najkraci program koji ce sam sebe da ispiše 21.02.2009. u 22:27 · pre 215 meseci #6
Ne znam dal mislim na isto, ali mozda ovo moze nesto da znaci:

Snimite vas fajl kao srccode.pas (ili kako god zelite ali onda u Assign morate da promenite ime fajla...)

Code:

var
  f: Text;
  S: String;

begin
  Assign(f, 'srccode.pas');
  Reset(f);
  repeat
    readln(f, S);
    writeln(S);
  until EOF(f);
end.


Pozdrav
Odgovori
Prijavite se da biste odgovorili u ovoj temi.PrijavaRegistracija

Premeštanje teme