From 0dcb7fc33868b2379ecabfec76d31429db283ee0 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Fredrik=20H=C3=BCbinette=20=28Hubbe=29?= <hubbe@hubbe.net>
Date: Sat, 31 Jan 1998 19:00:53 -0800
Subject: [PATCH] columns added
Rev: lib/modules/Array.pmod:1.5
---
lib/modules/Array.pmod | 6 ++++++
1 file changed, 6 insertions(+)
diff --git a/lib/modules/Array.pmod b/lib/modules/Array.pmod
index 4acd5211d6..46a7f1c220 100644
--- a/lib/modules/Array.pmod
+++ b/lib/modules/Array.pmod
@@ -166,3 +166,9 @@ array uniq(array a)
return indices(mkmapping(a,a));
}
+array columns(array x, array ind)
+{
+ array ret=allocate(sizeof(ind));
+ for(int e=0;e<sizeof(ind);e++) ret[e]=column(x,ind[e]);
+ return ret;
+}
--
GitLab