2 files changed, 17 insertions, 0 deletions
diff --git a/src/libstddjb/tain_earliest1.c b/src/libstddjb/tain_earliest1.c
new file mode 100644
index 0000000..af6ba3a
--- /dev/null
+++ b/src/libstddjb/tain_earliest1.c
@@ -0,0 +1,8 @@
+/* ISC license. */
+
+#include <skalibs/tai.h>
+
+void tain_earliest1 (tain *t, tain const *u)
+{
+  if (tain_less(u, t)) *t = *u ;
+}
diff --git a/src/libstddjb/tain_earliestv.c b/src/libstddjb/tain_earliestv.c
new file mode 100644
index 0000000..f4fd36b
--- /dev/null
+++ b/src/libstddjb/tain_earliestv.c
@@ -0,0 +1,9 @@
+/* ISC license. */
+
+#include <skalibs/tai.h>
+
+void tain_earliestv (tain *t, tain const *const *v, unsigned int n)
+{
+  for (unsigned int i = 0 ; i < n ; i++)
+    if (tain_less(v[i], t)) *t = *v[i] ;
+}