fork download
  1. :- set_prolog_flag(verbose,silent).
  2. :- prompt(_, '').
  3. :- use_module(library(readutil)).
  4. read_line(Line):-read_string(user_input, "\n", " ", _, Str),string_chars(Str,Line).
  5. read_num(N):-read_string(user_input, "\n", " ", _, Str),number_string(N,Str).
  6. read_list(Ys):-read_string(user_input, "\n", " ", _, Str),
  7. split_string(Str, " ", "", Xs),
  8. maplist(string_number,Xs,Ys).
  9. string_number(Str,N):-number_string(N,Str).
  10. main:-
  11. process,
  12.  
  13. process:-
  14. /* your code goes here */
  15. read_line(Line),
  16. append(_,['#'|Rs],Line),!,
  17. append(Cs,['#'|_],Rs),!,
  18. string_chars(Ans,Cs),
  19. write(Ans),nl,
  20.  
  21. :- main.
Success #stdin #stdout 0.05s 7052KB
stdin
void##
stdout