Logo

Programming-Idioms

  • D
  • Pascal

Idiom #279 Read list of strings from the standard input

Read all the lines (until EOF) into the list of strings lines.

uses classes;
while not EOF do
begin
  readln(s);
  lines.Add(s);
end;
with Ada.Text_IO;
with Ada.Containers.Indefinite_Vectors;
declare
   package String_Vectors is new
      Ada.Containers.Indefinite_Vectors
         (Index_Type => Positive, Element_Type => String);
   use String_Vectors, Ada.Text_IO;
   Lines : Vector;
begin
   while not End_Of_File loop
      Lines.Append (Get_Line);
   end loop;
end;
New implementation...
< > ⌨
programming-idioms.org 
while not EOF do
begin
  readln(s);
  lines.Add(s);
end;
declare
   package String_Vectors is new
      Ada.Containers.Indefinite_Vectors
         (Index_Type => Positive, Element_Type => String);
   use String_Vectors, Ada.Text_IO;
   Lines : Vector;
begin
   while not End_Of_File loop
      Lines.Append (Get_Line);
   end loop;
end;
var lines []string
s := bufio.NewScanner(os.Stdin)
for s.Scan() {
	line := s.Text()
	lines = append(lines, line)
}
if err := s.Err(); err != nil {
	log.Fatal(err)
}
List<String> lines = new ArrayList<>();
Scanner in = new Scanner(System.in);
while(in.hasNextLine())
    lines.add(in.nextLine());
@lines = <STDIN>;
lines = sys.stdin.readlines()
lines = [*stdin]
lines = [x.rstrip() for x in stdin]
lines = readlines
let lines = std::io::stdin().lock().lines().map(|x| x.unwrap()).collect::<Vec<String>>();