Jump to content

Quine: Difference between revisions

Quine (view source)

Revision as of 12:46, 20 November 2007

425 bytes removed ,  16 years ago
→‎{{header|Ada}}: Remove example which just copies the file Quine.adb standard output.
(Add Seed7 example)
(→‎{{header|Ada}}: Remove example which just copies the file Quine.adb standard output.)
Line 5:
=={{header|Ada}}==
 
with Ada.Text_Io; use Ada.Text_Io;
procedure Quine is
Line : String(1..80);
Length : Natural;
File : File_Type;
begin
Open(File => File, Name => "Quine.adb", Mode => In_File);
while not End_Of_File(File) loop
Get_Line(File => File, Item => Line, Last => Length);
Put_Line(Line(1..Length));
end loop;
end Quine;
The following example is a quine without reading the source file.
with Text_Io;
procedure Self is
Anonymous user
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/42034"
Cookies help us deliver our services. By using our services, you agree to our use of cookies.
More information