DouKaku?beta

Comment detail

重複する要素を取り除く (Nested Flatten) 

	

	
	
	
    

      
1
2
3
4
5
only_uniq([],[]).
only_uniq([X|Xs], [X|Ys]) :- delete(Xs, X, Xs), !, only_uniq(Xs, Ys).
only_uniq([X|Xs], Ys) :- delete(Xs, X, Zs), only_uniq(Zs, Ys).

:- only_uniq([3, 1, 4, 1, 5, 9, 2, 6, 5], U), writeln(U).




    

	

  
  








  















Index





Feed










Other





Link




Pathtraq



loading...














Creative Commons License
このサイトの内容は、
クリエイティブ・コモンズ・ライセンスの下でライセンスされています。
[詳細]