expl3 (couche de programmation LaTeX3), 65 octets
Ce qui suit définit une fonction qui imprime le résultat sur le terminal (a malheureusement expl3
des noms de fonction très verbeux):
\def\1#1{\fp_show:n{1/(\clist_map_function:nN{#1}\2)}}\def\2{+1/}
Un script complet qui peut être exécuté depuis le terminal comprenant tous les cas de test ainsi que la configuration pour entrer expl3
:
\RequirePackage{expl3}\ExplSyntaxOn
\def\1#1{\fp_show:n{1/(\clist_map_function:nN{#1}\2)}}\def\2{+1/}
\1{1, 1}
\1{1, 1, 1}
\1{4, 6, 3}
\1{20, 14, 18, 8, 2, 12}
\1{10, 10, 20, 30, 40, 50, 60, 70, 80, 90}
\stop
Si exécuté avec pdflatex <filename>
ce qui suit est la sortie de la console:
This is pdfTeX, Version 3.14159265-2.6-1.40.20 (TeX Live 2019) (preloaded format=pdflatex)
restricted \write18 enabled.
entering extended mode
(./cg_resistance.tex
LaTeX2e <2018-12-01>
(/usr/local/texlive/2019/texmf-dist/tex/latex/unravel/unravel.sty
(/usr/local/texlive/2019/texmf-dist/tex/latex/l3kernel/expl3.sty
(/usr/local/texlive/2019/texmf-dist/tex/latex/l3kernel/expl3-code.tex)
(/usr/local/texlive/2019/texmf-dist/tex/latex/l3backend/l3backend-pdfmode.def))
(/usr/local/texlive/2019/texmf-dist/tex/latex/l3packages/xparse/xparse.sty)
(/usr/local/texlive/2019/texmf-dist/tex/generic/gtl/gtl.sty))
> 1/(\clist_map_function:nN {1,1}\2)=0.5.
<recently read> }
l.3 \1{1, 1}
?
> 1/(\clist_map_function:nN {1,1,1}\2)=0.3333333333333333.
<recently read> }
l.4 \1{1, 1, 1}
?
> 1/(\clist_map_function:nN {4,6,3}\2)=1.333333333333333.
<recently read> }
l.5 \1{4, 6, 3}
?
> 1/(\clist_map_function:nN {20,14,18,8,2,12}\2)=1.129538323621694.
<recently read> }
l.6 \1{20, 14, 18, 8, 2, 12}
?
> 1/(\clist_map_function:nN
{10,10,20,30,40,50,60,70,80,90}\2)=2.611669603067675.
<recently read> }
l.7 \1{10, 10, 20, 30, 40, 50, 60, 70, 80, 90}
?
)
No pages of output.
Transcript written on cg_resistance.log.
Explication
\fp_show:n
: évalue son argument comme une expression à virgule flottante et imprime le résultat sur le terminal, chaque macro extensible est développée pendant ce processus.
\clist_map_function:nN
: prend deux arguments, une liste séparée par des virgules et une fonction / macro, si elle est appelée comme \clist_map_function:nN { l1, l2, l3 } \foo
elle se développe en quelque chose comme \foo{l1}\foo{l2}\foo{l3}
. Dans notre cas, au lieu de \foo
la macro \2
est utilisée, qui se développe pour +1/
que l'expression se développe pour+1/{l1}+1/{l2}+1/{l3}