Schleifchen-Poetik

[jens87]

my $i = 0;
say ++$i while($i < 10);
         # solange $i kleiner 10

$i = 0;
say ++$i until($i == 10);
         # bis $i gleich 10

  
naja ... so wär's ja einfach.  
  
Das Problem ist, dass ich nur das Konstrukt einer Kopfgesteuerten while-Schleife zur Verfügung habe und nicht weiß, wie ich damit ein "do ... until( x < 1e-12 )" ersetzen kann. - da liegt der Hase im Pfeffer.  
  
jens87