add hosts

1 files changed, 34 insertions, 0 deletions

diff --git a/perl9.buetow.org/content/Extended-Features.sub/Infinite-Loops.xml b/perl9.buetow.org/content/Extended-Features.sub/Infinite-Loops.xml
new file mode 100644
index 0000000..d8658b7
--- /dev/null
+++ b/perl9.buetow.org/content/Extended-Features.sub/Infinite-Loops.xml
@@ -0,0 +1,34 @@
+<?xml version="1.0" encoding="ISO-8859-1" standalone="yes" ?>
+<content>
+  <pagetitle>Perl 9 has now infinite loops!</pagetitle>
+  <text>Perl 9 supports an infinite loop which needs only 1 second of runtime. Which is faster than every other language needs to do this. This is possible because of very modern algorithms of the Perl 9 internals.</text>
+  <code>
+#!/usr/bin/perl9
+
+my $pi;
+infinite {
+	$pi = calculate_pi;
+	say $pi; # Prints out THE EXACT number Pi!
+}
+
+
+# Will need infinite time to print Pi because not in the infinite loop!
+say $pi; 
+  </code>
+  <text>It is also possible to run several infinite loops in parallell using threads!</text>
+  <code>
+my $pi;
+my $code1 = infinite {
+	$pi = calculate_pi;
+	say $pi; # Prints out THE EXACT number Pi!
+}
+my $euler;
+my $code2 = infinite {
+	$euler = calculate_euler;
+	say $euler; # Prints out THE EXACT number euler!
+}
+
+Thread.new(code => $code1).run;
+Thread.new(code => $code2).run;
+  </code>
+</content>