#=euler.pl - Berechnung der Euler'schen Zahl in Perl 6
use v6;
sub infix:«>?» ($a, $b) { $a > $b ?? $a :: $b }
sub postfix:<!> ($x) { [*] 1..$x >? 1 }
sub e {
	my $ret = 0;

	for 0..1000 -> $i {
		my $old = $ret;
		$ret += 1 / $i!;
		return $ret if $ret-$old < 1e-50
	}	
}
say "e={e()}";