DouKaku? Language detail: TeX

10000 まで探すには stack size の設定変更しないと無理っぽい．

\documentclass{article}

\usepackage{amsmath,amssymb}

\makeatletter
\def\mod#1#2{%
 \ifnum#1<#2%
 \else
   \advance#1-#2%
   \expandafter\mod{#1}{#2}%
 \fi
}

\newcount\@sm@i
\newcount\@sm@m
\newcount\@sm@n
\newcount\@sm@n@
\def\sum@measure#1{%
 \@sm@n=#1%
 \@sm@n@=#1%
 \divide\@sm@n@2
 \advance\@sm@n@\@ne
 #1=\@ne
 \@sm@i=\@ne
 \@whilenum \@sm@i < \@sm@n@ \do{%
   \advance\@sm@i\@ne
   \@sm@m=\@sm@n
   \mod\@sm@m\@sm@i
   \ifnum\@sm@m=\z@
     \advance#1\@sm@i
   \fi
 }%
}

\newcount\@var@i
\newcount\@var@m
\newcount\@var@n
\def\doublePN#1{%
 \@var@i=\z@
 \@var@n=2
 \@whilenum \@var@n < #1 \do{%
   \advance\@var@n\@ne
   \@var@m=\@var@n
   \sum@measure\@var@m
   \advance\@var@m-\@var@n
   \ifnum\@var@m=\@var@n
     \advance\@var@i\@ne
     \ifnum\@var@i=\@ne\else , \fi
     \the\@var@n
   \fi
}}
\makeatother

\begin{document}

\newcount\foo
\newcount\bar
\foo=1000
\bar=\foo
\advance\bar-1
\begin{eqnarray*}
 \Biggl\{n \Biggm| n \in \mathbb{Z}; 1 \le n \le \the\foo,
 \sum^{\the\bar}_{\substack{i = 1\\ n \equiv 0 \mkern-10mu\pmod{i}}}
 \mkern-24mu i\mkern16mu = 2n\Biggr\}
 = \{\doublePN{\foo}\}
\end{eqnarray*}

\end{document}

リストを逆順に表示 (Nested Flatten)

こんな方法もあったりして．

\documentclass{article}

\begin{document}

\def\list{1,2,3,4,5}

\makeatletter
\setbox0=\hbox{\list}%
\null\hskip\wd0
\newlength\TempDim
\TempDim 0pt
\@for\c:=\list\do{%
  \llap{\c,\hskip\TempDim}%
  \advance\TempDim 1em}%
\makeatother

\end{document}

いったん文字列に保存しちゃうのは反則でしょうか？

\documentclass{article}

\begin{document}

\def\list{1,2,3,4,5}

\makeatletter
\def\tsil{}%
\@for\c:=\list\do{\edef\tsil{\c, \tsil}}%
\makeatother

\tsil

\end{document}

Hello, world! PDF版 (Nested Flatten)

#!/bin/bash

cat << EOS > foo
\documentclass{article}
\usepackage{type1cm}
\begin{document}
{\fontsize{200pt}{220pt}\selectfont Hello World}
\end{document}
EOS

latex foo
dvipdfm foo

Hello, world!その２ (Nested Flatten)

十二年ぶりにTeXbookを見ました。
l が３つ出てくるのが厄介です。

1	H^^65^^6c^^,o, w^^6frl^^64!\end

Hello, world! (Nested Flatten)

% tex helloworld.tex
This is TeX, Version 3.141592 (Web2C 7.5.4)
(./helloworld.tex [1] )
Output written on helloworld.dvi (1 page, 228 bytes).
Transcript written on helloworld.log.

1	Hello, world!\end

DouKaku?

Language detail: TeX

Unsolved challenges

codes

Index

Feed

Other

Link

Pathtraq