home
/
code
/
hope.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
blame
|
history
|
raw
|
HEAD
Test hope_option module.
[hope.git]
/
src
/
hope_list.erl
1
-module(hope_list).
2
3
-export_type(
4
[ t/1
5
]).
6
7
-export(
8
[ unique_preserve_order/1
9
]).
10
11
12
-type t(A) ::
13
[A].
14
15
16
-spec unique_preserve_order(t(A)) ->
17
t(A).
18
unique_preserve_order(L) ->
19
PrependIfNew =
20
fun (X, Xs) ->
21
case lists:member(X, Xs)
22
of true -> Xs
23
; false -> [X | Xs]
24
end
25
end,
26
lists:reverse(lists:foldl(PrependIfNew, [], L)).
This page took
0.080226 seconds
and
4
git commands to generate.