summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/latex/lisp-on-tex/tug2013
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2015-10-25 22:26:36 +0000
committerKarl Berry <karl@freefriends.org>2015-10-25 22:26:36 +0000
commit2e5f14f60a516e247773eb44e16fdf71b24ffc6b (patch)
treedcf766a159ceb803ff37d6fc6093f14de9a57741 /Master/texmf-dist/doc/latex/lisp-on-tex/tug2013
parentb21104f52f6a326c74adaf89be9b55745d4e65ba (diff)
lisp-on-tex (25oct15)
git-svn-id: svn://tug.org/texlive/trunk@38706 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/doc/latex/lisp-on-tex/tug2013')
-rw-r--r--Master/texmf-dist/doc/latex/lisp-on-tex/tug2013/bench/expl3/asts.tex9
-rw-r--r--Master/texmf-dist/doc/latex/lisp-on-tex/tug2013/bench/expl3/mandel.pdfbin32056 -> 0 bytes
-rw-r--r--Master/texmf-dist/doc/latex/lisp-on-tex/tug2013/bench/expl3/mandel.tex79
-rw-r--r--Master/texmf-dist/doc/latex/lisp-on-tex/tug2013/bench/expl3/tarai.pdfbin19112 -> 0 bytes
-rw-r--r--Master/texmf-dist/doc/latex/lisp-on-tex/tug2013/bench/expl3/tarai.tex15
-rw-r--r--Master/texmf-dist/doc/latex/lisp-on-tex/tug2013/bench/latex/ast.tex12
-rw-r--r--Master/texmf-dist/doc/latex/lisp-on-tex/tug2013/bench/latex/mandel.pdfbin32296 -> 0 bytes
-rw-r--r--Master/texmf-dist/doc/latex/lisp-on-tex/tug2013/bench/latex/mandel.tex90
-rw-r--r--Master/texmf-dist/doc/latex/lisp-on-tex/tug2013/bench/latex/tarai.pdfbin19156 -> 0 bytes
-rw-r--r--Master/texmf-dist/doc/latex/lisp-on-tex/tug2013/bench/latex/tarai.tex27
-rw-r--r--Master/texmf-dist/doc/latex/lisp-on-tex/tug2013/bench/lot/asts.pdfbin8982 -> 0 bytes
-rw-r--r--Master/texmf-dist/doc/latex/lisp-on-tex/tug2013/bench/lot/asts.tex15
-rw-r--r--Master/texmf-dist/doc/latex/lisp-on-tex/tug2013/bench/lot/mandel.pdfbin32281 -> 0 bytes
-rw-r--r--Master/texmf-dist/doc/latex/lisp-on-tex/tug2013/bench/lot/mandel.tex55
-rw-r--r--Master/texmf-dist/doc/latex/lisp-on-tex/tug2013/bench/lot/tarai.pdfbin19160 -> 0 bytes
-rw-r--r--Master/texmf-dist/doc/latex/lisp-on-tex/tug2013/bench/lot/tarai.tex12
-rw-r--r--Master/texmf-dist/doc/latex/lisp-on-tex/tug2013/bench/luatex/asts.pdfbin8947 -> 0 bytes
-rw-r--r--Master/texmf-dist/doc/latex/lisp-on-tex/tug2013/bench/luatex/asts.tex15
-rw-r--r--Master/texmf-dist/doc/latex/lisp-on-tex/tug2013/bench/luatex/mandel.pdfbin45236 -> 0 bytes
-rw-r--r--Master/texmf-dist/doc/latex/lisp-on-tex/tug2013/bench/luatex/mandel.tex58
-rw-r--r--Master/texmf-dist/doc/latex/lisp-on-tex/tug2013/bench/luatex/tarai.pdfbin19041 -> 0 bytes
-rw-r--r--Master/texmf-dist/doc/latex/lisp-on-tex/tug2013/bench/luatex/tarai.tex14
-rw-r--r--Master/texmf-dist/doc/latex/lisp-on-tex/tug2013/bench/perltex/ast.pdfbin1587 -> 0 bytes
-rw-r--r--Master/texmf-dist/doc/latex/lisp-on-tex/tug2013/bench/perltex/ast.tex7
-rw-r--r--Master/texmf-dist/doc/latex/lisp-on-tex/tug2013/bench/perltex/mandel.pdfbin45252 -> 0 bytes
-rw-r--r--Master/texmf-dist/doc/latex/lisp-on-tex/tug2013/bench/perltex/mandel.tex64
-rw-r--r--Master/texmf-dist/doc/latex/lisp-on-tex/tug2013/bench/perltex/tarai.pdfbin19160 -> 0 bytes
-rw-r--r--Master/texmf-dist/doc/latex/lisp-on-tex/tug2013/bench/perltex/tarai.tex15
-rw-r--r--Master/texmf-dist/doc/latex/lisp-on-tex/tug2013/slide.tex213
29 files changed, 0 insertions, 700 deletions
diff --git a/Master/texmf-dist/doc/latex/lisp-on-tex/tug2013/bench/expl3/asts.tex b/Master/texmf-dist/doc/latex/lisp-on-tex/tug2013/bench/expl3/asts.tex
deleted file mode 100644
index 0baa79fd69f..00000000000
--- a/Master/texmf-dist/doc/latex/lisp-on-tex/tug2013/bench/expl3/asts.tex
+++ /dev/null
@@ -1,9 +0,0 @@
-\documentclass{article}
-\usepackage{expl3}
-\ExplSyntaxOn
-\cs_new:Npn \astsInner #1 {\prg_replicate:nn {#1} {*}}
-\ExplSyntaxOff
-\newcommand\astsExpliii[1]{\edef\asts{\astsInner{#1}}}
-\begin{document}
- \astsExpliii{10000}
-\end{document} \ No newline at end of file
diff --git a/Master/texmf-dist/doc/latex/lisp-on-tex/tug2013/bench/expl3/mandel.pdf b/Master/texmf-dist/doc/latex/lisp-on-tex/tug2013/bench/expl3/mandel.pdf
deleted file mode 100644
index 2594f8edb14..00000000000
--- a/Master/texmf-dist/doc/latex/lisp-on-tex/tug2013/bench/expl3/mandel.pdf
+++ /dev/null
Binary files differ
diff --git a/Master/texmf-dist/doc/latex/lisp-on-tex/tug2013/bench/expl3/mandel.tex b/Master/texmf-dist/doc/latex/lisp-on-tex/tug2013/bench/expl3/mandel.tex
deleted file mode 100644
index 5a32abb8eda..00000000000
--- a/Master/texmf-dist/doc/latex/lisp-on-tex/tug2013/bench/expl3/mandel.tex
+++ /dev/null
@@ -1,79 +0,0 @@
-\documentclass{article}
-\usepackage[pdftex,a3paper,margin=1pt,landscape]{geometry}
-\usepackage{expl3}
-
-%% draw macros
-\newcount\mlength
-\mlength0
-\newcount\cstate
-\newdimen\mandelunit
-\mandelunit=0.5pt
-
-\def\wp{%
- \ifnum\cstate=1 \global\advance\mlength1
- \else\ifnum\cstate=-1 \vrule width \mlength\mandelunit height \mandelunit depth 0pt \global\mlength1 \fi\fi
- \global\cstate1}
-\def\bp{%
- \ifnum\cstate=-1 \global\advance\mlength1
- \else\ifnum\cstate=1 \hspace*{\mlength\mandelunit}\global\mlength1 \fi\fi
- \global\cstate-1}
-\def\r{%
- \ifnum\cstate=1\hspace*{\mlength\mandelunit}\else\vrule width \mlength\mandelunit height \mandelunit depth 0pt \fi
- \global\cstate0 \global\mlength0}
-
-\ExplSyntaxOn
- \int_const:Nn \l_hakviiaiii_maxloop {20}
- \fp_const:Nn \l_hakviiaiii_scale {0.002}
- \int_new:N \l_hakviiaiii_loopismandel
- \fp_new:N \l_hakviiaiii_x
- \fp_new:N \l_hakviiaiii_xx
- \fp_new:N \l_hakviiaiii_y
- \fp_new:N \l_hakviiaiii_yy
- \fp_new:N \l_hakviiaiii_a
- \fp_new:N \l_hakviiaiii_b
- \bool_new:N \l_hakviiaiii_check_mandel
- \cs_new:Npn \hakviiaiii_ismandel:nn #1#2{%
- \int_zero:N \l_hakviiaiii_loopismandel
- \fp_zero:N \l_hakviiaiii_x
- \fp_zero:N \l_hakviiaiii_y
- \fp_set:Nn \l_hakviiaiii_xx {\l_hakviiaiii_x * \l_hakviiaiii_x}%
- \fp_set:Nn \l_hakviiaiii_yy {\l_hakviiaiii_y * \l_hakviiaiii_y}%
- \bool_set_false:N\l_hakviiaiii_check_mandel
- \bool_while_do:nn {%
- \int_compare_p:nNn
- {\l_hakviiaiii_loopismandel}%
- < {\l_hakviiaiii_maxloop + 1}%
- && \fp_compare_p:nNn
- {\l_hakviiaiii_xx + \l_hakviiaiii_yy}< {4.0}%
- } {%
- \fp_set:Nn \l_hakviiaiii_y {%
- 2.0 * \l_hakviiaiii_x *\l_hakviiaiii_y + #2}%
- \fp_set:Nn \l_hakviiaiii_x {\l_hakviiaiii_xx - \l_hakviiaiii_yy + #1}%
- \fp_set:Nn \l_hakviiaiii_xx {\l_hakviiaiii_x * \l_hakviiaiii_x}%
- \fp_set:Nn \l_hakviiaiii_yy {\l_hakviiaiii_y * \l_hakviiaiii_y}%
- \int_set:Nn \l_hakviiaiii_loopismandel
- {\l_hakviiaiii_loopismandel + 1}%
- }%
- \bool_set:Nn \l_hakviiaiii_check_mandel
- {\int_compare_p:nNn
- {\l_hakviiaiii_loopismandel} > {\l_hakviiaiii_maxloop}}}
- \cs_new:Nn \hakviiaiii_loopmandel: {%
- \fp_set:Nn \l_hakviiaiii_b {1.0}%
- \fp_while_do:nNnn {\l_hakviiaiii_b} > {-1.0 - \l_hakviiaiii_scale} {%
- \fp_set:Nn \l_hakviiaiii_a {-1.5}%
- \fp_while_do:nNnn{\l_hakviiaiii_a} < {0.5 + \l_hakviiaiii_scale} {%
- \hakviiaiii_ismandel:nn{\l_hakviiaiii_a}{\l_hakviiaiii_b}%
- \bool_if:nTF
- {\l_hakviiaiii_check_mandel}%
- {\bp}{\wp}%
- \fp_set:Nn \l_hakviiaiii_a {\l_hakviiaiii_a + \l_hakviiaiii_scale}%
- } \r\\%
- \fp_set:Nn \l_hakviiaiii_b {\l_hakviiaiii_b - \l_hakviiaiii_scale}%
- }}
- \cs_new_eq:NN \mandel \hakviiaiii_loopmandel:
-\ExplSyntaxOff
-\begin{document}
- \thispagestyle{empty}\noindent
- \leavevmode\baselineskip=\mandelunit
- \mandel
-\end{document} \ No newline at end of file
diff --git a/Master/texmf-dist/doc/latex/lisp-on-tex/tug2013/bench/expl3/tarai.pdf b/Master/texmf-dist/doc/latex/lisp-on-tex/tug2013/bench/expl3/tarai.pdf
deleted file mode 100644
index aa9b72aa3b2..00000000000
--- a/Master/texmf-dist/doc/latex/lisp-on-tex/tug2013/bench/expl3/tarai.pdf
+++ /dev/null
Binary files differ
diff --git a/Master/texmf-dist/doc/latex/lisp-on-tex/tug2013/bench/expl3/tarai.tex b/Master/texmf-dist/doc/latex/lisp-on-tex/tug2013/bench/expl3/tarai.tex
deleted file mode 100644
index ad61f174b4c..00000000000
--- a/Master/texmf-dist/doc/latex/lisp-on-tex/tug2013/bench/expl3/tarai.tex
+++ /dev/null
@@ -1,15 +0,0 @@
-\documentclass{article}
-\usepackage{expl3}
-\ExplSyntaxOn
-\cs_new:Npn \hakviiaiii_tarai:nnn #1#2#3 {%
- \int_compare:nTF{#1 <= #2}
- {#2}
- {\hakviiaiii_tarai:nnn
- {\hakviiaiii_tarai:nnn{\int_eval:n{#1 - 1}}{#2}{#3}}
- {\hakviiaiii_tarai:nnn{\int_eval:n{#2 - 1}}{#3}{#1}}
- {\hakviiaiii_tarai:nnn{\int_eval:n{#3 - 1}}{#1}{#2}}}}
-\cs_new_eq:NN \tarai \hakviiaiii_tarai:nnn
-\ExplSyntaxOff
-\begin{document}
- $\mathrm{Tarai}(14,12,10) = \tarai{14}{12}{10}$
-\end{document} \ No newline at end of file
diff --git a/Master/texmf-dist/doc/latex/lisp-on-tex/tug2013/bench/latex/ast.tex b/Master/texmf-dist/doc/latex/lisp-on-tex/tug2013/bench/latex/ast.tex
deleted file mode 100644
index 618a49f051b..00000000000
--- a/Master/texmf-dist/doc/latex/lisp-on-tex/tug2013/bench/latex/ast.tex
+++ /dev/null
@@ -1,12 +0,0 @@
-\documentclass{article}
-\newcount\n
-\newcommand{\astsfast}[1]{%
-\n=#1
-\begingroup
-\aftergroup\edef\aftergroup\asts\aftergroup{%
-\loop \ifnum\n>0 \aftergroup*\advance\n-1
-\repeat
-\aftergroup}\endgroup}
-\begin{document}
- \astsfast{10000}
-\end{document} \ No newline at end of file
diff --git a/Master/texmf-dist/doc/latex/lisp-on-tex/tug2013/bench/latex/mandel.pdf b/Master/texmf-dist/doc/latex/lisp-on-tex/tug2013/bench/latex/mandel.pdf
deleted file mode 100644
index 90245a28c72..00000000000
--- a/Master/texmf-dist/doc/latex/lisp-on-tex/tug2013/bench/latex/mandel.pdf
+++ /dev/null
Binary files differ
diff --git a/Master/texmf-dist/doc/latex/lisp-on-tex/tug2013/bench/latex/mandel.tex b/Master/texmf-dist/doc/latex/lisp-on-tex/tug2013/bench/latex/mandel.tex
deleted file mode 100644
index 1166f3f9646..00000000000
--- a/Master/texmf-dist/doc/latex/lisp-on-tex/tug2013/bench/latex/mandel.tex
+++ /dev/null
@@ -1,90 +0,0 @@
-\documentclass{article}
-\usepackage[pdftex,a3paper,margin=1pt,landscape]{geometry}
-%% draw macros
-\newcount\mlength
-\newcount\cstate
-\newdimen\mandelunit
-\mandelunit=0.5pt
-\def\wp{%
- \ifnum\cstate=1 \global\advance\mlength1
- \else\ifnum\cstate=-1 \vrule width \mlength\mandelunit height \mandelunit depth 0pt \global\mlength1 \fi\fi
- \global\cstate1}
-\def\bp{%
- \ifnum\cstate=-1 \global\advance\mlength1
- \else\ifnum\cstate=1 \hspace*{\mlength\mandelunit}\global\mlength1 \fi\fi
- \global\cstate-1}
-\def\r{%
- \ifnum\cstate=1\hspace*{\mlength\mandelunit}\else\vrule width \mlength\mandelunit height \mandelunit depth 0pt \fi
- \global\cstate0 \global\mlength0}
-
-% Mandelbrot
-\newskip\x
-\newskip\y
-\newskip\a
-\newskip\b
-\newskip\xx
-\newskip\yy
-\newskip\tmp
-\newcount\k
-\def\maxloop{20}
-\def\scale{0.002}
-
-\def\loopMandel{%
- \ifdim\b<-1.0pt\relax
- \let\next\relax
- \else
- \drawMandel
- \let\next\loopMandel
- \ifdim\a>0.5pt\relax
- \r\\
- \a=-1.5pt\relax
- \advance\b-\scale pt\relax
- \else
- \advance\a\scale pt\relax
- \fi
- \fi
- \next}
-\def\drawMandel{%
- \x=0pt\relax
- \y=0pt\relax
- \k=0\relax
- \checkMandel
- \ifnum\k>\maxloop\relax
- \bp
- \else
- \wp
- \fi
-}
-\makeatletter
-\def\checkMandel{%
- \ifnum\k>\maxloop
- \let\checkNext\relax
- \else
- \xx=\strip@pt\x\x
- \yy=\strip@pt\y\y
- \tmp\xx \advance\tmp\yy
- \ifdim\tmp>4.0pt\relax
- \let\checkNext\relax
- \else
- \let\checkNext\checkMandel
- \advance\k1\relax
- \tmp=\strip@pt\x\y
- \multiply\tmp2\relax
- \advance\tmp\b
- \y\tmp
- \x\a
- \advance\x\xx
- \advance\x-\yy
- \fi
- \fi
- \checkNext
-}
-\makeatother
-
-\begin{document}
-\thispagestyle{empty}\noindent
-\leavevmode\baselineskip=\mandelunit
-\a=-1.5pt\relax
-\b=1.0pt\relax
-\loopMandel
-\end{document} \ No newline at end of file
diff --git a/Master/texmf-dist/doc/latex/lisp-on-tex/tug2013/bench/latex/tarai.pdf b/Master/texmf-dist/doc/latex/lisp-on-tex/tug2013/bench/latex/tarai.pdf
deleted file mode 100644
index 60898e3f228..00000000000
--- a/Master/texmf-dist/doc/latex/lisp-on-tex/tug2013/bench/latex/tarai.pdf
+++ /dev/null
Binary files differ
diff --git a/Master/texmf-dist/doc/latex/lisp-on-tex/tug2013/bench/latex/tarai.tex b/Master/texmf-dist/doc/latex/lisp-on-tex/tug2013/bench/latex/tarai.tex
deleted file mode 100644
index 49cb281e53d..00000000000
--- a/Master/texmf-dist/doc/latex/lisp-on-tex/tug2013/bench/latex/tarai.tex
+++ /dev/null
@@ -1,27 +0,0 @@
-\documentclass{article}
-\newcount\d
-\def\tarai#1#2#3#4{%
- \begingroup
- \aftergroup\next
- \ifnum#1<#2%
- \gdef\next{\def#4{#2}}%
- \else\ifnum#1=#2%
- \gdef\next{\def#4{#2}}%
- \else
- \d#1%
- \advance\d-1
- \expandafter\tarai\expandafter{\the\d}{#2}{#3}\tx
- \d#2%
- \advance\d-1
- \expandafter\tarai\expandafter{\the\d}{#3}{#1}\ty
- \d#3%
- \advance\d-1
- \expandafter\tarai\expandafter{\the\d}{#1}{#2}\tz
- \xdef\next{\noexpand\tarai{\tx}{\ty}{\tz}\noexpand#4}%
- \fi\fi
- \endgroup}
-\begin{document}
- \tarai{14}{10}{6}\tmp
- $\mathrm{Tarai}(14,10,6) = \tmp$
-\end{document}
-
diff --git a/Master/texmf-dist/doc/latex/lisp-on-tex/tug2013/bench/lot/asts.pdf b/Master/texmf-dist/doc/latex/lisp-on-tex/tug2013/bench/lot/asts.pdf
deleted file mode 100644
index d07e5497bfe..00000000000
--- a/Master/texmf-dist/doc/latex/lisp-on-tex/tug2013/bench/lot/asts.pdf
+++ /dev/null
Binary files differ
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
diff --git a/Master/texmf-dist/doc/latex/lisp-on-tex/tug2013/bench/lot/mandel.pdf b/Master/texmf-dist/doc/latex/lisp-on-tex/tug2013/bench/lot/mandel.pdf
deleted file mode 100644
index fafec50f93e..00000000000
--- a/Master/texmf-dist/doc/latex/lisp-on-tex/tug2013/bench/lot/mandel.pdf
+++ /dev/null
Binary files differ
diff --git a/Master/texmf-dist/doc/latex/lisp-on-tex/tug2013/bench/lot/mandel.tex b/Master/texmf-dist/doc/latex/lisp-on-tex/tug2013/bench/lot/mandel.tex
deleted file mode 100644
index 7aab7e1e8db..00000000000
--- a/Master/texmf-dist/doc/latex/lisp-on-tex/tug2013/bench/lot/mandel.tex
+++ /dev/null
@@ -1,55 +0,0 @@
-\documentclass{article}
-\usepackage[pdftex,a3paper,margin=1pt,landscape]{geometry}
-\newcount\mlength
-\newcount\cstate
-\newdimen\mandelunit
-\mandelunit=0.5pt
-
-\def\w{%
- \ifnum\cstate=1 \global\advance\mlength1
- \else\ifnum\cstate=-1 \vrule width \mlength\mandelunit height \mandelunit depth 0pt \global\mlength1 \fi\fi
- \global\cstate1}
-\def\b{%
- \ifnum\cstate=-1 \global\advance\mlength1
- \else\ifnum\cstate=1 \hspace*{\mlength\mandelunit}\global\mlength1 \fi\fi
- \global\cstate-1}
-\def\r{%
- \ifnum\cstate=1\hspace*{\mlength\mandelunit}\else\vrule width \mlength\mandelunit height \mandelunit depth 0pt \fi
- \global\cstate0 \global\mlength0}
-
-\usepackage{lisp-on-tex}
-\usepackage{lisp-mod-fpnum}
-\lispinterp{%
- (\define \maxloop :20)
- (\define \scale +{fpnum::0.002})
- (\define \isMandell
- (\lambda (\a \b \k \x \y)
- (\lispif (\< \maxloop \k) /t
- (\lispif (\fplt +{fpnum::4.0} (\fpplus (\fpmul \x \x) (\fpmul \y \y)))
- /f
- (\isMandell \a \b (\+ \k :1)
- (\fpplus \a (\fpmul \x \x) (\fpminus (\fpmul \y \y)))
- (\fpplus \b (\fpmul +{fpnum::2.0} \x \y)))))))
- (\define \drawMandell (\lambda (\a \b)
- (\begin
- (\lispif (\isMandell \a \b :0 +{fpnum::0} +{fpnum::0})
- (\texprint '\b') (\texprint '\w'))
- (\immediatewrite))))
- (\define \loopMandell (\lambda (\a \b)
- (\lispif (\fplt \b +{fpnum::-1.0}) ()
- (\begin
- (\drawMandell \a \b)
- (\lispif (\fplt +{fpnum::0.5} \a)
- (\begin
- (\texprint '\r\\')
- (\immediatewrite)
- (\loopMandell +{fpnum::-1.5} (\fpminus \b \scale)))
- (\loopMandell (\fpplus \a \scale) \b))))))
-}
-
-\begin{document}
- \thispagestyle{empty}
- \noindent
- \leavevmode\baselineskip=\mandelunit
- \lispinterp{(\loopMandell +{fpnum::-1.5} +{fpnum::1.0})}
-\end{document} \ No newline at end of file
diff --git a/Master/texmf-dist/doc/latex/lisp-on-tex/tug2013/bench/lot/tarai.pdf b/Master/texmf-dist/doc/latex/lisp-on-tex/tug2013/bench/lot/tarai.pdf
deleted file mode 100644
index 5f562c98116..00000000000
--- a/Master/texmf-dist/doc/latex/lisp-on-tex/tug2013/bench/lot/tarai.pdf
+++ /dev/null
Binary files differ
diff --git a/Master/texmf-dist/doc/latex/lisp-on-tex/tug2013/bench/lot/tarai.tex b/Master/texmf-dist/doc/latex/lisp-on-tex/tug2013/bench/lot/tarai.tex
deleted file mode 100644
index f443187397f..00000000000
--- a/Master/texmf-dist/doc/latex/lisp-on-tex/tug2013/bench/lot/tarai.tex
+++ /dev/null
@@ -1,12 +0,0 @@
-\documentclass{article}
-\usepackage{lisp-on-tex}
-%\tracingmacros=1
-\lispinterp{
- (\define \tarai (\lambda (\x \y \z)
- (\lispif (\or (\< \x \y) (\= \x \y))
- \y
- (\tarai (\tarai (\- \x :1) \y \z) (\tarai (\- \y :1) \z \x) (\tarai (\- \z :1) \x \y)))))
-}
-\begin{document}
- $\mathrm{Tarai}(14,10,6) = \lispinterp{(\texprint (\tarai :14 :10 :6))}$
-\end{document} \ No newline at end of file
diff --git a/Master/texmf-dist/doc/latex/lisp-on-tex/tug2013/bench/luatex/asts.pdf b/Master/texmf-dist/doc/latex/lisp-on-tex/tug2013/bench/luatex/asts.pdf
deleted file mode 100644
index d77b8459695..00000000000
--- a/Master/texmf-dist/doc/latex/lisp-on-tex/tug2013/bench/luatex/asts.pdf
+++ /dev/null
Binary files differ
diff --git a/Master/texmf-dist/doc/latex/lisp-on-tex/tug2013/bench/luatex/asts.tex b/Master/texmf-dist/doc/latex/lisp-on-tex/tug2013/bench/luatex/asts.tex
deleted file mode 100644
index 2126d07b106..00000000000
--- a/Master/texmf-dist/doc/latex/lisp-on-tex/tug2013/bench/luatex/asts.tex
+++ /dev/null
@@ -1,15 +0,0 @@
-\documentclass{article}
-\usepackage[pdftex,a3paper,margin=1pt,landscape]{geometry}
-\newcommand\astsLua[1]{%
- \directlua{
- ret = ""
- for i=1,#1 do
- ret = ret .. "*"
- end
- tex.print("\noexpand\\def\noexpand\\asts{"..ret.."}")
- }
-}
-
-\begin{document}
- \astsLua{10000}
-\end{document} \ No newline at end of file
diff --git a/Master/texmf-dist/doc/latex/lisp-on-tex/tug2013/bench/luatex/mandel.pdf b/Master/texmf-dist/doc/latex/lisp-on-tex/tug2013/bench/luatex/mandel.pdf
deleted file mode 100644
index f604a37d4a6..00000000000
--- a/Master/texmf-dist/doc/latex/lisp-on-tex/tug2013/bench/luatex/mandel.pdf
+++ /dev/null
Binary files differ
diff --git a/Master/texmf-dist/doc/latex/lisp-on-tex/tug2013/bench/luatex/mandel.tex b/Master/texmf-dist/doc/latex/lisp-on-tex/tug2013/bench/luatex/mandel.tex
deleted file mode 100644
index 2efa5d0ec7e..00000000000
--- a/Master/texmf-dist/doc/latex/lisp-on-tex/tug2013/bench/luatex/mandel.tex
+++ /dev/null
@@ -1,58 +0,0 @@
-\documentclass{article}
-\usepackage[pdftex,a3paper,margin=1pt,landscape]{geometry}
-%% draw macros
-\newcount\mlength
-\mlength0
-\newcount\cstate
-\newdimen\mandelunit
-\mandelunit=0.5pt
-
-
-\def\wp{%
- \ifnum\cstate=1 \global\advance\mlength1
- \else\ifnum\cstate=-1 \vrule width \mlength\mandelunit height \mandelunit depth 0pt \global\mlength1 \fi\fi
- \global\cstate1}
-\def\bp{%
- \ifnum\cstate=-1 \global\advance\mlength1
- \else\ifnum\cstate=1 \hspace*{\mlength\mandelunit}\global\mlength1 \fi\fi
- \global\cstate-1}
-\def\r{%
- \ifnum\cstate=1\hspace*{\mlength\mandelunit}\else\vrule width \mlength\mandelunit height \mandelunit depth 0pt \fi
- \global\cstate0 \global\mlength0}
-
-
-\begin{document}
- \thispagestyle{empty}\noindent
- \leavevmode\baselineskip=\mandelunit
- \directlua{
- maxloop=20
- scale=0.002
- function isMandel(a,b)
- x=0
- y=0
- xx=0
- yy=0
- for k=0,maxloop do
- xx=x*x
- yy=y*y
- if (xx + yy) > 4.0 then
- return false
- else
- y=2*x*y+b
- x=xx-yy+a
- end
- end
- return true
- end
- for b=1.0,-1.0,-scale do
- for a=-1.5,0.5,scale do
- if isMandel(a,b) then
- tex.print("\noexpand\\bp")
- else
- tex.print("\noexpand\\wp")
- end
- end
- tex.print("\noexpand\\r\noexpand\\\noexpand\\")
- end
- }
-\end{document} \ No newline at end of file
diff --git a/Master/texmf-dist/doc/latex/lisp-on-tex/tug2013/bench/luatex/tarai.pdf b/Master/texmf-dist/doc/latex/lisp-on-tex/tug2013/bench/luatex/tarai.pdf
deleted file mode 100644
index a4c5ddd3f0f..00000000000
--- a/Master/texmf-dist/doc/latex/lisp-on-tex/tug2013/bench/luatex/tarai.pdf
+++ /dev/null
Binary files differ
diff --git a/Master/texmf-dist/doc/latex/lisp-on-tex/tug2013/bench/luatex/tarai.tex b/Master/texmf-dist/doc/latex/lisp-on-tex/tug2013/bench/luatex/tarai.tex
deleted file mode 100644
index e4a51f711ee..00000000000
--- a/Master/texmf-dist/doc/latex/lisp-on-tex/tug2013/bench/luatex/tarai.tex
+++ /dev/null
@@ -1,14 +0,0 @@
-\documentclass{article}
-\directlua{
- function tarai(x,y,z)
- if(x<=y) then
- return y
- else
- return tarai(tarai(x-1, y, z), tarai(y-1, z, x), tarai(z-1, x, y))
- end
- end
-}
-\newcommand\tarai[3]{\directlua{tex.print(tarai(#1, #2, #3))}}
-\begin{document}
-$\mathrm{Tarai}(14,10,6) = \tarai{14}{10}{6}$
-\end{document} \ No newline at end of file
diff --git a/Master/texmf-dist/doc/latex/lisp-on-tex/tug2013/bench/perltex/ast.pdf b/Master/texmf-dist/doc/latex/lisp-on-tex/tug2013/bench/perltex/ast.pdf
deleted file mode 100644
index d36057e5eb5..00000000000
--- a/Master/texmf-dist/doc/latex/lisp-on-tex/tug2013/bench/perltex/ast.pdf
+++ /dev/null
Binary files differ
diff --git a/Master/texmf-dist/doc/latex/lisp-on-tex/tug2013/bench/perltex/ast.tex b/Master/texmf-dist/doc/latex/lisp-on-tex/tug2013/bench/perltex/ast.tex
deleted file mode 100644
index 5b0aebdf708..00000000000
--- a/Master/texmf-dist/doc/latex/lisp-on-tex/tug2013/bench/perltex/ast.tex
+++ /dev/null
@@ -1,7 +0,0 @@
-\documentclass{article}
-\usepackage{perltex}
-\newcommand{\asts}{}
-\perlnewcommand{\astsperl}[1]{'\renewcommand{\asts}{'. '*' x $_[0] . '}'}
-\begin{document}
- \astsperl{10000}\asts
-\end{document} \ No newline at end of file
diff --git a/Master/texmf-dist/doc/latex/lisp-on-tex/tug2013/bench/perltex/mandel.pdf b/Master/texmf-dist/doc/latex/lisp-on-tex/tug2013/bench/perltex/mandel.pdf
deleted file mode 100644
index c4713aa121a..00000000000
--- a/Master/texmf-dist/doc/latex/lisp-on-tex/tug2013/bench/perltex/mandel.pdf
+++ /dev/null
Binary files differ
diff --git a/Master/texmf-dist/doc/latex/lisp-on-tex/tug2013/bench/perltex/mandel.tex b/Master/texmf-dist/doc/latex/lisp-on-tex/tug2013/bench/perltex/mandel.tex
deleted file mode 100644
index f197297135e..00000000000
--- a/Master/texmf-dist/doc/latex/lisp-on-tex/tug2013/bench/perltex/mandel.tex
+++ /dev/null
@@ -1,64 +0,0 @@
-\documentclass{article}
-\usepackage[pdftex,a3paper,margin=1pt,landscape]{geometry}
-\usepackage{perltex}
-\newcount\mlength
-\newcount\cstate
-\newdimen\mandelunit
-\mandelunit=0.5pt
-
-\def\w{%
- \ifnum\cstate=1 \global\advance\mlength1
- \else\ifnum\cstate=-1 \vrule width \mlength\mandelunit height \mandelunit depth 0pt \global\mlength1 \fi\fi
- \global\cstate1}
-\def\b{%
- \ifnum\cstate=-1 \global\advance\mlength1
- \else\ifnum\cstate=1 \hspace*{\mlength\mandelunit}\global\mlength1 \fi\fi
- \global\cstate-1}
-\def\r{%
- \ifnum\cstate=1\hspace*{\mlength\mandelunit}\else\vrule width \mlength\mandelunit height \mandelunit depth 0pt \fi
- \global\cstate0 \global\mlength0}
-
-\perlnewcommand{\isMandel}[2]{
- my $maxloop=20;
- my $x = 0;
- my $y = 0;
- my $xx = 0;
- my $yy = 0;
- for(my $k=0; $k<=$maxloop; $k++){
- $xx = $x ** 2;
- $yy = $y ** 2;
- if($xx + $yy > 4.0) { return 0; }
- $y = 2*$x*$y + $_[1];
- $x = $xx - $yy + $_[0];
- }
- return 1;
-}
-\perlnewcommand{\loopMandel}{
- my $scale=0.002;
- my $ret = "";
- for(my $b=1.0; $b >=-1.0; $b-=$scale){
- $ret = $ret . "\\loopMandelInner{" . $b . "}\\r\\\\";
- }
- return $ret;
-}
-\perlnewcommand{\loopMandelInner}[1]{
- my $scale=0.002;
- my $ret = "";
- my $b = $_[0];
- for(my $a=-1.5; $a<=0.5; $a+=$scale){
- if(latex_isMandel($a, $b)){
- $ret .= "\\b";
- } else {
- $ret .= "\\w";
- }
- }
- return $ret;
-}
-
-
-\begin{document}
- \thispagestyle{empty}
- \noindent
- \leavevmode\baselineskip=\mandelunit
- \loopMandel
-\end{document} \ No newline at end of file
diff --git a/Master/texmf-dist/doc/latex/lisp-on-tex/tug2013/bench/perltex/tarai.pdf b/Master/texmf-dist/doc/latex/lisp-on-tex/tug2013/bench/perltex/tarai.pdf
deleted file mode 100644
index 22b8504926e..00000000000
--- a/Master/texmf-dist/doc/latex/lisp-on-tex/tug2013/bench/perltex/tarai.pdf
+++ /dev/null
Binary files differ
diff --git a/Master/texmf-dist/doc/latex/lisp-on-tex/tug2013/bench/perltex/tarai.tex b/Master/texmf-dist/doc/latex/lisp-on-tex/tug2013/bench/perltex/tarai.tex
deleted file mode 100644
index 7ee739bbb9d..00000000000
--- a/Master/texmf-dist/doc/latex/lisp-on-tex/tug2013/bench/perltex/tarai.tex
+++ /dev/null
@@ -1,15 +0,0 @@
-\documentclass{article}
-\usepackage{perltex}
-\perlnewcommand{\tarai}[3]{
- if($_[0] <= $_[1]){
- return $_[1];
- } else {
- return latex_tarai(
- latex_tarai($_[0]-1, $_[1], $_[2]),
- latex_tarai($_[1]-1, $_[2], $_[0]),
- latex_tarai($_[2]-1, $_[0], $_[1]));
- }
-}
-\begin{document}
- $\mathrm{Tarai}(14,10,6) = \tarai{14}{10}{6}$
-\end{document} \ No newline at end of file
diff --git a/Master/texmf-dist/doc/latex/lisp-on-tex/tug2013/slide.tex b/Master/texmf-dist/doc/latex/lisp-on-tex/tug2013/slide.tex
deleted file mode 100644
index 5a46c31348e..00000000000
--- a/Master/texmf-dist/doc/latex/lisp-on-tex/tug2013/slide.tex
+++ /dev/null
@@ -1,213 +0,0 @@
-\documentclass[pdftex,10pt,c,compress]{beamer}
-%Settings for LaTeX beamer
-\usetheme{Berkeley}
-\usecolortheme{orchid}
-\setbeamertemplate{navigation symbols}{}
-
-%Font Info
-\usepackage[T1]{fontenc}
-\renewcommand{\sfdefault}{phv}
-\renewcommand{\ttdefault}{pcr}
-% Font Info(pLaTeX only)
-%\renewcommand{\kanjifamilydefault}{\gtdefault}
-
-%packages
-\usepackage{url}
-\usepackage{lisp-on-tex}
-
-%colors
-\definecolor{orderzero}{HTML}{04BBFF}
-\definecolor{orderi}{HTML}{03A8E5}
-\definecolor{orderii}{HTML}{038CBF}
-\definecolor{orderiii}{HTML}{025E7F}
-\definecolor{orderover}{HTML}{012F40}
-
-\lispinterp{
- (\define \fact (\lambda (\n)
- (\lispif (\= \n :0) :1
- (\* (\fact (\- \n :1)) \n))))
-}
-
-%Document Info
-\title{LISP on \TeX}
-\subtitle{A LISP Interpreter Written Using \TeX{} Macros}
-\author[S. HAKUTA]{HAKUTA Shizuya}
-\date[TUG2013]{The 34th Annual Meeting of the TeX Users Group, 2013}
-
-\begin{document}
- \frame{\titlepage}
-
- \section{Introduction}
-
- \begin{frame}{Background}
- \begin{itemize}
- \item Writing \TeX{} macros is useful.
- \begin{itemize}
- \item e.g. Calculating some small numeric expressions.
- \end{itemize}
- \item However, it is difficult for novice users.
- \vspace{1cm}
- \item To improve, there are some researches that combine
- \TeX{} and another programming language.
- \end{itemize}
- \end{frame}
-
- \begin{frame}{\TeX{} with Other Languages}
- Pakin[TUGboat '03] showed four way to connect \TeX{}
- and a foreign programing language;
- \begin{enumerate}
- \item using \texttt{\string\write18} to call an outer processor,
- \begin{itemize}
- \item python package (CTAN:macros/latex/contrib/python)
- \end{itemize}
- \item embedding an interpreter in a \TeX{} engine,
- \begin{itemize}
- \item Lua\TeX{} (CTAN:systems/luatex)
- \end{itemize}
- \item constructing macros that enable \LaTeX{} to communicate
- with an external interpreter,
- \begin{itemize}
- \item Perl\TeX{} (CTAN:macros/latex/conrtib/perltex)
- \end{itemize}
- \item creating a language processor with \TeX{} macros
- \begin{itemize}
- \item \LaTeX3 project created expl3: a new interface of \TeX{} macros,
- but {\color{red}no ordinary language was implemented}.
- \end{itemize}
- \end{enumerate}
- \end{frame}
-
- \section{Goal and Mean}
- \begin{frame}{The Goal and the Mean}
- Our goals are
- \begin{itemize}
- \item Implementing a language's interpreter with \TeX{} macros, and
- \item Comparing its performance with other approaches.
- \end{itemize}
- \vspace{0.5cm}
- We take two design choices;
- \begin{enumerate}
- \item Choosing LISP as a ordinary language, and
- \item Creating the product as a LaTeX package.
- \end{enumerate}
- \end{frame}
-
- \section{LISP on TeX}
- \begin{frame}{LISP on \TeX}
- We name the our product {\color{red} LISP on \TeX{}}.
- \begin{itemize}
- \item It was already archived on CTAN and \TeX Live.
- \begin{itemize}
- \item \url{macros/latex/contrib/lisp-on-tex}
- \end{itemize}
- \item We constructed all parts of LISP on \TeX{} with \TeX{} macros;
- \begin{itemize}
- \item parser, recognizing LISP expressions,
- \item evaluator, calculating a expression, and
- \item environment, mapping symbols to LISP objects.
- \end{itemize}
- \item The code is written with traditional TeX macros only,
- so it works in all \LaTeX{} engines,
- \begin{itemize}
- \item \LaTeX, pdf\LaTeX, Lua\LaTeX, Xe\LaTeX, p\LaTeX, \dots
- \end{itemize}
- \end{itemize}
- \end{frame}
-
-
- \begin{frame}[t, fragile]{Examples (1/2)}
- \structure{Source}
- \begin{footnotesize}
- \begin{block}{The Preamble of the Slides}\vspace{-\baselineskip}
-\begin{semiverbatim}
-\\usepackage\{lisp-on-tex\}
-
-\\lispinterp\{
- (\\define \\fact
- (\\lambda (\\n)
- (\\lispif (\\= \\n :0) :1
- (\\* (\\fact (\\- \\n :1)) \\n))))\}
-\end{semiverbatim}\vspace{-\baselineskip}
- \end{block}
- \end{footnotesize}
- \structure{Result}\mbox{}\\
- \strut\alt<2->{$10!=\lispinterp{(\texprint (\fact :10))}$}%
- {\footnotesize
- \texttt{\$10!=\string\lispinterp\{(\string\texprint (\string
- \fact :10))\}\$}}
- \begin{center}\color{red}\Large
- \onslide<3->{LISP codes were evaluated!}
- \end{center}
-\end{frame}
-
- \begin{frame}{Examples (2/2)}
- \begin{center}
- \alt<2>{\includegraphics[scale=0.38]{dest_mandel.png}}
- {\includegraphics[scale=0.3]{source_mandel.png}}
- \end{center}
- \end{frame}
-
-
- \begin{frame}{Memory Management Problems}
- \begin{itemize}
- \item LISP on \TeX{} uses a lot of memory.
- \begin{itemize}
- \item Yato showed that LISP on \TeX{} stalls
- when using a lot of LISP objects\footnote{%
- \url{http://d.hatena.ne.jp/zrbabbler/20121116/1353068217} (Japanese Only)}.
- \end{itemize}
- \item It is caused by spending a lot of control sequences.
- \item Building a garbage collection system is one of our future work.
- \end{itemize}
- \end{frame}
-
-
- \section{Comparison}
- \begin{frame}{Comparison to other approaches}
- We compared LISP on \TeX{} and other approaches
- by three benchmarks.
- \begin{itemize}
- \item CPU Core i7 2.2GHz, 8GByte Memory, W32TeX
- \end{itemize}
- \begin{center}
- \begin{tabular}{|c||c|c|c|}\hline
- & tarai[sec] & asterisks[sec] & Mandelbrot[sec] \\ \hline\hline
- LISP on \TeX & 13 & $1.6 \times 10^2$ & $2.1 \times 10^4$\\ \hline
- Perl\TeX & 1.0 & 1.0 & $1.6 \times 10^2$ \\ \hline
- Lua\TeX & 0.45 & 0.55 & 7.6 \\ \hline
- \TeX{} macros & 0.24 & 0.22 & $1.2 \times 10^2$ \\ \hline
- expl3 & 1.1 & 1.0 & $5.7 \times 10^3$\\ \hline
- \end{tabular}
- \end{center}
- \begin{itemize}
- \item It shows that LISP on \TeX{} is too slow... :-(
- \begin{itemize}
- \item It is caused by reading \TeX{} tokens repeatedly.
- \item[$\Rightarrow$] We can make LISP on \TeX{} faster
- with improving the code.
- \end{itemize}
- \end{itemize}
- \end{frame}
-
-
- \section{Conclusion}
- \begin{frame}{Conclusion}
- \begin{itemize}
- \item We implemented LISP on \TeX{}, a LISP interpreter
- written only with \TeX{} macros.
- \item It works well, but the product has
- problems about memory usage and speed.
- \end{itemize}
- \end{frame}
-
- \begin{frame}{Why LISP is Selected?}
- There are two reasons why we select LISP.
- \begin{enumerate}
- \item LISP is Turing complete, so it contains all essence of
- programming languages.
- \item Because LISP has simple syntax and semantics, we can
- implement LISP easily.
- \end{enumerate}
- \end{frame}
-
-\end{document} \ No newline at end of file