diff options
author | Karl Berry <karl@freefriends.org> | 2015-10-25 22:26:36 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2015-10-25 22:26:36 +0000 |
commit | 2e5f14f60a516e247773eb44e16fdf71b24ffc6b (patch) | |
tree | dcf766a159ceb803ff37d6fc6093f14de9a57741 /Master/texmf-dist/doc/latex/lisp-on-tex/tug2013 | |
parent | b21104f52f6a326c74adaf89be9b55745d4e65ba (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')
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 Binary files differdeleted file mode 100644 index 2594f8edb14..00000000000 --- a/Master/texmf-dist/doc/latex/lisp-on-tex/tug2013/bench/expl3/mandel.pdf +++ /dev/null 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 Binary files differdeleted file mode 100644 index aa9b72aa3b2..00000000000 --- a/Master/texmf-dist/doc/latex/lisp-on-tex/tug2013/bench/expl3/tarai.pdf +++ /dev/null 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 Binary files differdeleted file mode 100644 index 90245a28c72..00000000000 --- a/Master/texmf-dist/doc/latex/lisp-on-tex/tug2013/bench/latex/mandel.pdf +++ /dev/null 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 Binary files differdeleted file mode 100644 index 60898e3f228..00000000000 --- a/Master/texmf-dist/doc/latex/lisp-on-tex/tug2013/bench/latex/tarai.pdf +++ /dev/null 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 Binary files differdeleted file mode 100644 index d07e5497bfe..00000000000 --- a/Master/texmf-dist/doc/latex/lisp-on-tex/tug2013/bench/lot/asts.pdf +++ /dev/null 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 Binary files differdeleted file mode 100644 index fafec50f93e..00000000000 --- a/Master/texmf-dist/doc/latex/lisp-on-tex/tug2013/bench/lot/mandel.pdf +++ /dev/null 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 Binary files differdeleted file mode 100644 index 5f562c98116..00000000000 --- a/Master/texmf-dist/doc/latex/lisp-on-tex/tug2013/bench/lot/tarai.pdf +++ /dev/null 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 Binary files differdeleted file mode 100644 index d77b8459695..00000000000 --- a/Master/texmf-dist/doc/latex/lisp-on-tex/tug2013/bench/luatex/asts.pdf +++ /dev/null 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 Binary files differdeleted file mode 100644 index f604a37d4a6..00000000000 --- a/Master/texmf-dist/doc/latex/lisp-on-tex/tug2013/bench/luatex/mandel.pdf +++ /dev/null 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 Binary files differdeleted file mode 100644 index a4c5ddd3f0f..00000000000 --- a/Master/texmf-dist/doc/latex/lisp-on-tex/tug2013/bench/luatex/tarai.pdf +++ /dev/null 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 Binary files differdeleted file mode 100644 index d36057e5eb5..00000000000 --- a/Master/texmf-dist/doc/latex/lisp-on-tex/tug2013/bench/perltex/ast.pdf +++ /dev/null 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 Binary files differdeleted file mode 100644 index c4713aa121a..00000000000 --- a/Master/texmf-dist/doc/latex/lisp-on-tex/tug2013/bench/perltex/mandel.pdf +++ /dev/null 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 Binary files differdeleted file mode 100644 index 22b8504926e..00000000000 --- a/Master/texmf-dist/doc/latex/lisp-on-tex/tug2013/bench/perltex/tarai.pdf +++ /dev/null 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 |