diff options
author | Norbert Preining <norbert@preining.info> | 2019-09-02 13:46:59 +0900 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2019-09-02 13:46:59 +0900 |
commit | e0c6872cf40896c7be36b11dcc744620f10adf1d (patch) | |
tree | 60335e10d2f4354b0674ec22d7b53f0f8abee672 /macros/latex/contrib/lisp-on-tex/examples/rocket.tex |
Initial commit
Diffstat (limited to 'macros/latex/contrib/lisp-on-tex/examples/rocket.tex')
-rw-r--r-- | macros/latex/contrib/lisp-on-tex/examples/rocket.tex | 26 |
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 |