Input/Output for lines of text: Difference between revisions

Content added Content deleted
(Add Julia language)
No edit summary
Line 502: Line 502:
line = input()
line = input()
do_stuff(line)</lang>
do_stuff(line)</lang>

=={{header|Prolog}}==
<lang Prolog>
number_of_lines(Num) :-
current_input(In),
read_line_to_codes(In, Line),
number_codes(Num, Line).
input_lines_for_num(0, ListOfLines) :-
format('~nThe lines you entered were: ~n~n'),
maplist(format('~w~n'), ListOfLines).
input_lines_for_num(Num, CurrentLines) :-
Num > 0,
Num1 is Num - 1,
current_input(In),
read_line_to_codes(In, Line),
atom_codes(LineAsAtom, Line),
append(CurrentLines, [LineAsAtom], MoreLines),
input_lines_for_num(Num1, MoreLines).
lines :-
number_of_lines(Num),
input_lines_for_num(Num, []).
</lang>
{{out}}
<pre>
2 ?- lines.
|: 3
line 1
line 2
line 3

The lines you entered were:

line 1
line 2
line 3
true ;
false.

3 ?-
</pre>


=={{header|Racket}}==
=={{header|Racket}}==