Wie gesagt, für Berechnungen gibt's eine Abhandlung über Zwischenergebnisse, die man ein wenig über Compileroption und eval(r) (R hat nichts mit Rundung zu tun) beeinflussen kann.

Mit %editc(nn:'X') an Stelle von %char kann ich mir das Auszählen der Nullen sparen, wenn ich sowieso "evalr" verwende.