challenge 重複する要素を取り除く

与えられたリストxsの中から、 2回以上出現するものを全部取り除いてください。

サンプル入力
[3, 1, 4, 1, 5, 9, 2, 6, 5]
サンプル出力
[3, 4, 9, 2, 6]

これはアレイのuniqの派生問題です。 リストとかアレイという言葉は言語によってまちまちの意味で使われているので、 「配列のようなもの」という漠然とした意味にとって構いません。

Posted feedbacks - Prolog


	
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...