Add PROG example

2025-01-09 13:33:26 +00:00 · 2024-07-12 12:02:08 -07:00 · 2024-07-12 12:02:08 -07:00 · 439216d437
commit 439216d437
parent 0ddec876ac
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)
+                )
+              )
+)