语句，多谢

求一个语句，谢谢

--建表
create table tmp.t_table
(id        number(10),
 t_result  varchar2(20)
);

--数据
insert into tmp.t_table values (1,'A');
insert into tmp.t_table values (1,'B');
insert into tmp.t_table values (1,'C');
insert into tmp.t_table values (1,'D');
insert into tmp.t_table values (2,'A');
insert into tmp.t_table values (3,'A');
insert into tmp.t_table values (3,'B');
insert into tmp.t_table values (3,'C');
insert into tmp.t_table values (3,'D');
insert into tmp.t_table values (3,'E');
insert into tmp.t_table values (4,'F');
insert into tmp.t_table values (4,'G');


--想要的结果
id,tot_result
1,A|B|C|D
2,A
3,A|B|C|D|E
4,F|G

目前能想到的方式是做loop，对于已经存在的id执行update，不存在的做insert
几十万行的数据做loop，效率太低，请教高手解决方法，感谢。
------解决方案--------------------
select id，wm_concat(t_result,'
------解决方案--------------------
'） as tot_result
from shopping  
group by id 
------解决方案--------------------

select distinct id,
  wm_concat(t_result) over(partition by id) t_result
from t_table  

1 A,B,C,D
3 A,E,B,C,D
2 A
4 F,G

------解决方案--------------------
 select t.id, wmsys.wm_concat(t.t_result ) t_result  from t_table t   group by t.id  
1 1 A,B,C,D
2 2 A
3 3 A,B,D,E,C
4 4 F,G