level 1
按如下方式转换整数列表A1，A2，...，An：删除零，将所有正数编号写入左边，右边所有负数
2018年04月13日 05点04分
1
level 13
run([],[]).
run([0|X],X).
run([A|X],[A|Y]):-
A>0,run(X,Y).
run([A|X],Y):-
A<0,append(Z,[A],Y),run(X,Z).
2018年04月13日 16点04分
4
看了一下有错误,第2行要改成run([0|X],Y):- run(X,Y).
2018年06月24日 09点06分
