This comment is reply for 1159 katsu: とりあえず、ライブラリを使わずに。(条件を満たす行を取り除く). Go to thread root.
katsu #1160(2007/07/20 09:55 GMT) [ Prolog ] Rating0/0=0.00
1 2 3 4 5 6
lineLoop(Str):- read_line_to_codes(Str,Line), (Line=[35|_]->write(""); (not(Line=end_of_file)->string_to_list(S,Line),writeln(S),lineLoop(Str); true)). :- prompt(_,''),current_stream(_,'read',Str),lineLoop(Str), halt.
Rating0/0=0.00-0+
[ reply ]
katsu
#1160()
[
Prolog
]
Rating0/0=0.00
lineLoop(Str):- read_line_to_codes(Str,Line), (Line=[35|_]->write(""); (not(Line=end_of_file)->string_to_list(S,Line),writeln(S),lineLoop(Str); true)). :- prompt(_,''),current_stream(_,'read',Str),lineLoop(Str), halt.Rating0/0=0.00-0+