Anonymous user
Input/Output for lines of text: Difference between revisions
no edit summary
(Add Julia language) |
No edit summary |
||
Line 502:
line = input()
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}}==
| |||