Quine (informatica): differenze tra le versioni
Contenuto cancellato Contenuto aggiunto
Nessun oggetto della modifica |
aggiunto sezione RPGfree |
||
Riga 182:
001230 "000230 STRING "
002000 INTO WS-SOURCE.
==Esempio di quine in RPGfree==
dcl-f qprint printer(132);
//------------------------------------------not optimized !--------*
dcl-s sss char(80) dim(50) ctdata;
dcl-s x3 packed(3);
dcl-s wprtline char(80);
//-----------------------------------------------------------------*
*inlr = *on;
for x3 = 1 by 1 to 21;
wprtline = sss(x3);
except xline;
endfor;
wprtline = '**';
except xline;
for x3 = 1 by 1 to 21;
wprtline = sss(x3);
except xline;
endfor;
return;
//-----------------------------------------------------------------*
oqprint e xline 001
o wprtline
**
dcl-f qprint printer(132);
//------------------------------------------not optimized !--------*
dcl-s sss char(80) dim(50) ctdata;
dcl-s x3 packed(3);
dcl-s wprtline char(80);
//-----------------------------------------------------------------*
*inlr = *on;
for x3 = 1 by 1 to 21;
wprtline = sss(x3);
except xline;
endfor;
wprtline = '**';
except xline;
for x3 = 1 by 1 to 21;
wprtline = sss(x3);
except xline;
endfor;
return;
//-----------------------------------------------------------------*
oqprint e cline 001
o wprtline
==Esempio di quine in [[Bash]]==
| |||