/*
%redis組み込み関数
redis_connect
redis_free_context
redis_command
redis_command_hate_integer
redis_version
redis_is_disconnected
/
redis_init:-redis_connect('127.0.0.1',6379,3000,C),assert(redis_ID(C)),!.
resis_end:-abolish(redis_ID,1),redis_free_context(C).
resis_set(K,V):-redis_ID(C),!,redis_command(C,[set,K,V],_,_).
resis_get(K,V):-redis_ID(C),!,redis_command(C,[get,K],_,V).
resis_del(K):-redis_ID(C),!,redis_command(C,[expire,K,'1'],_,_). %,s_sleep(500),
resis_count(K):-redis_ID(C),
redis_command(C,[get,K],T,V),name(A,V),term_atom(I,A),!,N is I+1,
redis_command(C,[set,K,N],T,V).