summaryrefslogtreecommitdiff
path: root/macros/latex/contrib/lisp-on-tex/examples/rocket.tex
diff options
context:
space:
mode:
Diffstat (limited to 'macros/latex/contrib/lisp-on-tex/examples/rocket.tex')
-rw-r--r--macros/latex/contrib/lisp-on-tex/examples/rocket.tex26
1 files changed, 26 insertions, 0 deletions
diff --git a/macros/latex/contrib/lisp-on-tex/examples/rocket.tex b/macros/latex/contrib/lisp-on-tex/examples/rocket.tex
new file mode 100644
index 0000000000..c4ed29648f
--- /dev/null
+++ b/macros/latex/contrib/lisp-on-tex/examples/rocket.tex
@@ -0,0 +1,26 @@
+\documentclass{article}
+\usepackage{lisp-on-tex}
+\lispinterp{%
+%rocket body
+(\define \rocket
+ (\letM ((\count :11))
+ (\lambda ()
+ (\begin
+ (\setB \count (\- \count :1))
+ (\lispif (\< \count :0)
+ (\texprint '{\small fired...}\\')
+ (\lispif (\= \count :0)
+ (\texprint '{\Large FIRE!}\\')
+ (\texprint (\concat 'count ' (\intTOstring \count) '...\\'))))))))
+(\define \MAX :15)
+%LOOP function
+(\define \loop
+ (\lambda (\n)
+ (\lispif (\= \n \MAX)
+ ()
+ (\begin (\rocket) (\loop (\+ \n :1))))))
+}
+\begin{document}
+\noindent\lispinterp{(\loop :0)}
+Test done.
+\end{document} \ No newline at end of file