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}}== |
||