X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?p=scheme.forth.jl.git;a=blobdiff_plain;f=scheme-library.scm;h=484f500efaa87092da9fa0f3e8097fe64a975a50;hp=f95ed65595fc71e5cf24ef5ef4edf492ad8e1d63;hb=069f0a8c965a6b7277f5ba8a3f939c69d787838e;hpb=a95efe1cb2d3774471bb9c0fe4628abe09032ca6

diff --git a/scheme-library.scm b/scheme-library.scm
index f95ed65..484f500 100644
--- a/scheme-library.scm
+++ b/scheme-library.scm
@@ -13,6 +13,14 @@
 (define (cddr l) (cdr (cdr l)))
 (define (cadar l) (car (cdr (car l))))
 
+; Return number of items in list
+(define (length l)
+  (define (iter a count)
+    (if (null? a)
+      count
+      (iter (cdr a) (+ count 1))))
+  (iter l 0))
+
 ; Join two lists together
 (define (join l1 l2)
   (if (null? l1)