diff options
Diffstat (limited to 'Master/texmf-dist/doc/latex/lisp-on-tex/tug2013/bench/lot/asts.tex')
-rw-r--r-- | Master/texmf-dist/doc/latex/lisp-on-tex/tug2013/bench/lot/asts.tex | 15 |
1 files changed, 0 insertions, 15 deletions
diff --git a/Master/texmf-dist/doc/latex/lisp-on-tex/tug2013/bench/lot/asts.tex b/Master/texmf-dist/doc/latex/lisp-on-tex/tug2013/bench/lot/asts.tex deleted file mode 100644 index 1e5cdd2b3fb..00000000000 --- a/Master/texmf-dist/doc/latex/lisp-on-tex/tug2013/bench/lot/asts.tex +++ /dev/null @@ -1,15 +0,0 @@ -\documentclass{article} -\usepackage{lisp-on-tex} -\lispinterp{ - (\define \foldl (\lambda (\func \init \list) - (\lispif (\= \list ()) - \init - (\foldl \func (\func \init (\car \list)) (\cdr \list))))) - (\define \astsLoTInner (\lambda (\n \ret) - (\lispif (\< :0 \n) (\astsLoTInner (\- \n :1) (\concat \ret '*')) - \ret))) - (\define \astsLoT (\lambda (\n) (\texprint (\concat '\def\asts' (\group (\astsLoTInner \n '')))))) -} -\begin{document} -\lispinterp{(\astsLoT :10000)} -\end{document}
\ No newline at end of file |