diff options
Diffstat (limited to 'Master/texmf-dist/doc/latex/lisp-on-tex/examples')
| -rw-r--r-- | Master/texmf-dist/doc/latex/lisp-on-tex/examples/div2.pdf | bin | 0 -> 11875 bytes | |||
| -rw-r--r-- | Master/texmf-dist/doc/latex/lisp-on-tex/examples/div2.tex | 30 | ||||
| -rw-r--r-- | Master/texmf-dist/doc/latex/lisp-on-tex/examples/fact.pdf | bin | 36636 -> 36632 bytes | |||
| -rw-r--r-- | Master/texmf-dist/doc/latex/lisp-on-tex/examples/fpnummodule-mandelbrot.pdf | bin | 32299 -> 32295 bytes | |||
| -rw-r--r-- | Master/texmf-dist/doc/latex/lisp-on-tex/examples/nqueen.pdf | bin | 12975 -> 12971 bytes | |||
| -rw-r--r-- | Master/texmf-dist/doc/latex/lisp-on-tex/examples/rocket.pdf | bin | 30979 -> 30975 bytes | |||
| -rw-r--r-- | Master/texmf-dist/doc/latex/lisp-on-tex/examples/showfont.pdf | bin | 13945 -> 13933 bytes |
7 files changed, 30 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/latex/lisp-on-tex/examples/div2.pdf b/Master/texmf-dist/doc/latex/lisp-on-tex/examples/div2.pdf Binary files differnew file mode 100644 index 00000000000..6cb01f55aaa --- /dev/null +++ b/Master/texmf-dist/doc/latex/lisp-on-tex/examples/div2.pdf diff --git a/Master/texmf-dist/doc/latex/lisp-on-tex/examples/div2.tex b/Master/texmf-dist/doc/latex/lisp-on-tex/examples/div2.tex new file mode 100644 index 00000000000..ae2cf824ee6 --- /dev/null +++ b/Master/texmf-dist/doc/latex/lisp-on-tex/examples/div2.tex @@ -0,0 +1,30 @@ +\documentclass{article} +%\usepackage{lisp-on-tex} +\usepackage[markGC]{lisp-on-tex} +\lispinterp { + (\define (\create \n) (\createAcc \n ())) + (\define (\createAcc \n \acc) + (\lispif (\= \n :0) \acc (\createAcc (\- \n :1) (\cons () \acc)))) + (\define \ll (\create :200)) + (\define (\divII \l) + (\lispif (\= \l ()) () (\cons (\car \l) (\divII (\cdr (\cdr \l)))))) + (\define (\test \l) (\testAcc \l :500)) % original is 300 + (\define (\testAcc \l \i) + (\lispif (\= \i :0) () + (\begin + (\lispif (\= (\length (\divII \l)) :100) + () (\texprint 'Hmm')) + (\lispif (\= (\length (\divII \l)) :100) + () (\message 'Hmm')) + (\lispif (\= (\length (\divII \l)) :100) + () (\message 'Hmm')) + (\lispif (\= (\length (\divII \l)) :100) + () (\message 'Hmm')) + (\texprint \i) + (\texprint ' ') + (\testAcc \l (\- \i :1))))) +} + +\begin{document} + \lispinterp{(\test \ll)} +\end{document}
\ No newline at end of file diff --git a/Master/texmf-dist/doc/latex/lisp-on-tex/examples/fact.pdf b/Master/texmf-dist/doc/latex/lisp-on-tex/examples/fact.pdf Binary files differindex 490cce4e5e8..5bb156ab393 100644 --- a/Master/texmf-dist/doc/latex/lisp-on-tex/examples/fact.pdf +++ b/Master/texmf-dist/doc/latex/lisp-on-tex/examples/fact.pdf diff --git a/Master/texmf-dist/doc/latex/lisp-on-tex/examples/fpnummodule-mandelbrot.pdf b/Master/texmf-dist/doc/latex/lisp-on-tex/examples/fpnummodule-mandelbrot.pdf Binary files differindex 19359ec0385..b40e5f7c9b7 100644 --- a/Master/texmf-dist/doc/latex/lisp-on-tex/examples/fpnummodule-mandelbrot.pdf +++ b/Master/texmf-dist/doc/latex/lisp-on-tex/examples/fpnummodule-mandelbrot.pdf diff --git a/Master/texmf-dist/doc/latex/lisp-on-tex/examples/nqueen.pdf b/Master/texmf-dist/doc/latex/lisp-on-tex/examples/nqueen.pdf Binary files differindex 89425e38a5b..c605d4212c8 100644 --- a/Master/texmf-dist/doc/latex/lisp-on-tex/examples/nqueen.pdf +++ b/Master/texmf-dist/doc/latex/lisp-on-tex/examples/nqueen.pdf diff --git a/Master/texmf-dist/doc/latex/lisp-on-tex/examples/rocket.pdf b/Master/texmf-dist/doc/latex/lisp-on-tex/examples/rocket.pdf Binary files differindex de0e6ca70f6..bfff99d340a 100644 --- a/Master/texmf-dist/doc/latex/lisp-on-tex/examples/rocket.pdf +++ b/Master/texmf-dist/doc/latex/lisp-on-tex/examples/rocket.pdf diff --git a/Master/texmf-dist/doc/latex/lisp-on-tex/examples/showfont.pdf b/Master/texmf-dist/doc/latex/lisp-on-tex/examples/showfont.pdf Binary files differindex 0960b7a9fed..13ef7fce56a 100644 --- a/Master/texmf-dist/doc/latex/lisp-on-tex/examples/showfont.pdf +++ b/Master/texmf-dist/doc/latex/lisp-on-tex/examples/showfont.pdf |