OpenEuphoria

Re: Quine - a program that replicates itself

• Posted by Aidan Bindoff <abindoff at ONE.NET.AU> Aug 19, 2000
• 510 views

> constant s='\\',n='\n',q='\"',t="%s",x=t&q&n&'&'&q,
> msg="This is a self-replicating program",
> l1="%s-- %sconstant s='%s',n='%sn',q='%s',t=%s,x=t&q&n&'&'&q,%s",
> l2="%sprintf(1,l1,{{},msg&n,s&s,s,s&q,q&t&q,n})%s"
> &"puts(1,%smsg=%s&q&msg&q&','&n)%s"
> &"printf(1,%sl1=%s&l1,{q&t,t,t,t,t,t,t&q&','&n})%s"
> &"printf(1,%sl2=%s&l2,{q&t,x,t,t,x,t,t,x,t,t,x,t&q&n})%s"
> &"printf(1,l2,{{},n,q,q,n,q,q,n,q,q,n,n})%s"
> printf(1,l1,{{},msg&n,s&s,s,s&q,q&t&q,n})
> puts(1,"msg="&q&msg&q&','&n)
> printf(1,"l1="&l1,{q&t,t,t,t,t,t,t&q&','&n})
> printf(1,"l2="&l2,{q&t,x,t,t,x,t,t,x,t,t,x,t&q&n})
> printf(1,l2,{{},n,q,q,n,q,q,n,q,q,n,n})

> I hope you like it ;)
>
> Regards,
> Davi Figueiredo
> davitf at usa.net
>

Davi,  very nice. More elegant? "This is a self-replicating program" is
pretty brassy! 

Kind Regards,
Aidan.