Pereiti prie turinio

Ruby/Iš duomenų failo nuskaityti du skaičius ir sukeistus vietomis įrašyti į rezultatų failą

Iš Wikibooks.

duomen.txt:

66 99

Turime gauti rezult.txt:

99 66

Turbo ir Borland Paskalio problema, kad jis palaiko tik 8 simbolių failų vardus (neskaitant išplėtimo).

Paskalio variantas

[keisti]
program SukeistiSkaicius;
  var duomenys, rezultatai: text;
      a, b: integer;
begin
  assign(duomenys, 'duomen.txt');     reset(duomenys);
  assign(rezultatai, 'rezult.txt'); rewrite(rezultatai);
  read(duomenys, a, b);
  write(rezultatai, b, ' ', a);
  close(duomenys);
  close(rezultatai);
end.

Ruby variantas

[keisti]
File.open('duomen.txt', 'r') do |duomenys| # failas atidaromas skaitymui (Read)
  File.open('rezult.txt', 'w') do |rezultatai| # failas atidaromas rašymui (Write)
      a, b = duomenys.readline.split(" ") # nuskaito eilutę, kai skirtukas tarpas
      rezultatai.write("#{b} #{a}")
  end # rezultatų failas čia bus automatiškai uždaromas
end # duomenų failas čia bus automatiškai uždaromas