Quine: Difference between revisions
Content added Content deleted
(Haskell example added, implements the obvious generic solution) |
(Add Seed7 example) |
||
Line 111: | Line 111: | ||
(The X-Powered-By line will vary from system to system.) |
(The X-Powered-By line will vary from system to system.) |
||
=={{header|Seed7}}== |
|||
$ include "seed7_05.s7i"; |
|||
const array string: prog is []( |
|||
"$ include \"seed7_05.s7i\";", |
|||
"const array string: prog is [](", |
|||
"const proc: main is func", |
|||
" local var integer: number is 0;", |
|||
" begin", |
|||
" for number range 1 to 2 do writeln(prog[number]); end for;", |
|||
" for number range 1 to 11 do", |
|||
" writeln(literal(prog[number]) <& \",\");", |
|||
" end for;", |
|||
" writeln(literal(prog[12]) <& \");\");", |
|||
" for number range 3 to 12 do writeln(prog[number]); end for;", |
|||
" end func;"); |
|||
const proc: main is func |
|||
local var integer: number is 0; |
|||
begin |
|||
for number range 1 to 2 do writeln(prog[number]); end for; |
|||
for number range 1 to 11 do |
|||
writeln(literal(prog[number]) <& ","); |
|||
end for; |
|||
writeln(literal(prog[12]) <& ");"); |
|||
for number range 3 to 12 do writeln(prog[number]); end for; |
|||
end func; |
|||
Original source: [http://seed7.sourceforge.net/algorith/puzzles.htm#self] |
|||
=={{header|UNIX Shell}}== |
=={{header|UNIX Shell}}== |