fork download
  1. :- set_prolog_flag(verbose,silent).
  2. :- prompt(_, '').
  3. :- use_module(library(readutil)).
  4.  
  5. hash_update(X,Y2,Xs,[[X,Y2]|Xs2]):-select([X,_],Xs,Xs2).
  6.  
  7.  
  8. main:-
  9. process,
  10.  
  11. process:-
  12. /* your code goes here */
  13. hash_update(b,3,[[a,1],[b,2],[c,3]],Ans),
  14. write(Ans),
  15.  
  16. :- main.
Success #stdin #stdout 0.07s 7124KB
stdin
Standard input is empty
stdout
[[b,3],[a,1],[c,3]]