X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=stdlib%2Fprelude.gl;fp=stdlib%2Fprelude.gl;h=13ac3117ca74955f267393da0e496cf26c9bbd75;hb=692f7e7a70572c5f4f7242ce721a674a75b34e06;hp=d8e523ab539581ba52f89d13faa4c7dafe9dfac7;hpb=6049de701cea350b3f474e4c1ff16836baa8e2fb;p=goals.git

diff --git a/stdlib/prelude.gl b/stdlib/prelude.gl
index d8e523a..13ac311 100644
--- a/stdlib/prelude.gl
+++ b/stdlib/prelude.gl
@@ -82,6 +82,25 @@ pure function join (xs, ys) returning strings = @{
     for f in %xs %ys; do echo "$f"; done
 }
 
+# Last element of a list.
+pure function last (xs) returning string = @{
+    for f in %xs; do
+        r="$f"
+    done
+    echo "$r"
+}
+
+# n'th element of a list.
+pure function nth (n, xs) returning string = @{
+    i=0
+    r=
+    for f in %xs; do
+        if [ $i -eq %n ]; then r="$f"; fi
+        ((++i))
+    done
+    echo "$r"
+}
+
 # Sort + uniq a list.
 pure function sort (xs) returning strings = @{
     for f in %xs; do echo "$f"; done | sort -u