% Vendredi 28 Mai 2004 à 04:44:21

\begin{center}
  Syracuse
\end{center}
Il aurait été criminel de ne pas donner cet exemple sur le site de Syracuse!

La commande \verb+\Syracuse{n}+ donne la suite de Syracuse du nombre $n$ 
jusqu'à l'obtention d'un~1.

Si le programme ne devait pas se terminer, merci de signaler ce \og bogue \fg{} 
à l'auteur qui transmettra à qui de droit :-)
\newcommand\Syracuse[1]{%
  \opcopy{#1}{un}%
  \loop
  \opprint{un}%
  \opcmp{un}{1}%
  \ifopneq
    ,
    \opidiv*{un}{2}{un1}{r}%
    \opcmp{r}{0}%
    \ifopneq
      \opexpr{3*un+1}{un1}%
    \fi
    \opcopy{un1}{un}%
  \repeat
}

\medskip
\Syracuse{5}

\medskip
\Syracuse{97}