8 lines
143 B
Mathematica
8 lines
143 B
Mathematica
|
function quine()
|
||
|
|
fid = fopen([mfilename,'.m']);
|
||
|
|
while ~feof(fid)
|
||
|
|
printf('%s\n',fgetl(fid));
|
||
|
|
end;
|
||
|
|
fclose(fid);
|
||
|
|
end;
|