From e61bd4003efa2534d06904159d3082b3e716b31b Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Fredrik=20H=C3=BCbinette=20=28Hubbe=29?= <hubbe@hubbe.net>
Date: Fri, 1 Nov 1996 16:10:18 -0800
Subject: [PATCH] uniq added
Rev: lib/include/array.pre.pike:1.2
---
lib/include/array.pre.pike | 6 ++++++
1 file changed, 6 insertions(+)
diff --git a/lib/include/array.pre.pike b/lib/include/array.pre.pike
index 8c458f765a..0dd0542156 100644
--- a/lib/include/array.pre.pike
+++ b/lib/include/array.pre.pike
@@ -158,6 +158,11 @@ varargs mixed *sort_array(array foo,function cmp, mixed ... args)
return foo;
}
+array uniq(array a)
+{
+ return indices(mkmapping(a,a));
+}
+
void create()
{
@@ -166,4 +171,5 @@ void create()
add_constant("sum_arrays",sum_arrays);
add_constant("search_array",search_array);
add_constant("sort_array",sort_array);
+ add_constant("uniq",uniq);
}
--
GitLab