From 025e15b2ba7f54f87cf409fd7c3dd77746c72858 Mon Sep 17 00:00:00 2001
From: Paul Buetow <paul@buetow.org>
Date: Sun, 3 Feb 2013 10:44:49 +0100
Subject: add hosts

---
 .../Extended-Features.sub/Infinite-Loops.xml       | 34 ++++++++++++++++++++++
 1 file changed, 34 insertions(+)
 create mode 100644 perl9.buetow.org/content/Extended-Features.sub/Infinite-Loops.xml

(limited to 'perl9.buetow.org/content/Extended-Features.sub/Infinite-Loops.xml')

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>
-- 
cgit v1.2.3