Read a file line by line: Difference between revisions
Content added Content deleted
(Added Frink) |
No edit summary |
||
Line 632: | Line 632: | ||
puts line |
puts line |
||
end</lang> |
end</lang> |
||
=={{header|Scheme}}== |
|||
<lang scheme>; Commented line below should be uncommented to use read-line with Guile |
|||
;(use-modules (ice-9 rdelim)) |
|||
(define file (open-input-file "input.txt")) |
|||
(do ((line (read-line file) (read-line file))) ((eof-object? line)) |
|||
(display line) |
|||
(newline))</lang> |
|||
=={{header|Tcl}}== |
=={{header|Tcl}}== |