Add PROG example

2026-03-14 16:16:40 +00:00 · 2024-07-12 12:02:08 -07:00
parent 0ddec876ac
commit 439216d437
1 changed files with 11 additions and 0 deletions
--- a/src/lisp/prog.lisp
+++ b/src/lisp/prog.lisp
@@ -0,0 +1,11 @@
+(label length (lambda (l)
+                (prog (u v)
+                  (setq v 0)
+                  (setq u l)
+                a (cond ((null u),(return v)))
+                  (setq u (cdr u))
+                  (setq v (+ 1 v))
+                  (go a)
+                )
+              )
+)