summaryrefslogtreecommitdiff
path: root/perl9.buetow.org/content/Better-Than-Others.sub
diff options
context:
space:
mode:
Diffstat (limited to 'perl9.buetow.org/content/Better-Than-Others.sub')
-rw-r--r--perl9.buetow.org/content/Better-Than-Others.sub/Lisp.xml22
-rw-r--r--perl9.buetow.org/content/Better-Than-Others.sub/PHP.xml5
-rw-r--r--perl9.buetow.org/content/Better-Than-Others.sub/Python.xml17
-rw-r--r--perl9.buetow.org/content/Better-Than-Others.sub/home.xml5
4 files changed, 49 insertions, 0 deletions
diff --git a/perl9.buetow.org/content/Better-Than-Others.sub/Lisp.xml b/perl9.buetow.org/content/Better-Than-Others.sub/Lisp.xml
new file mode 100644
index 0000000..d0e0b27
--- /dev/null
+++ b/perl9.buetow.org/content/Better-Than-Others.sub/Lisp.xml
@@ -0,0 +1,22 @@
+<?xml version="1.0" encoding="ISO-8859-1" standalone="yes" ?>
+<content>
+ <pagetitle>Common Lisp users will love Perl 9!</pagetitle>
+ <text>Lisp users will love Perl 9 because you can use paranthesis everywhere!</text>
+ <code>
+(for (set (range 0 (subtract (elems @bar) 1)) $i)
+ (do
+ (set $foo (elem @foo $i))
+ (set $bar (elem @bar $i))
+ (set $baz (elem @baz $i))
+ (for (set (range 0 (subtract (elems (ptr $bar)) 1)) $j)
+ (do
+ (set $foo_ (elem (ptr $foo) $j))
+ (set $bar_ (elem (ptr $bar) $j))
+ (set $baz_ (elem (ptr $baz) $j))
+ (for (set (range 0 (subtract (elems (ptr $bar_)) 1)) $k)
+ (push (ptr $baz_)
+ (add
+ (elem (ptr $foo_) $k)
+ (elem (ptr $bar_) $k))))))))
+ </code>
+</content>
diff --git a/perl9.buetow.org/content/Better-Than-Others.sub/PHP.xml b/perl9.buetow.org/content/Better-Than-Others.sub/PHP.xml
new file mode 100644
index 0000000..92edd25
--- /dev/null
+++ b/perl9.buetow.org/content/Better-Than-Others.sub/PHP.xml
@@ -0,0 +1,5 @@
+<?xml version="1.0" encoding="ISO-8859-1" standalone="yes" ?>
+<content>
+ <pagetitle>Perl 9 has now more core functions!</pagetitle>
+ <text>Perl 9 has now more functions in the core than PHP does! Because all PHP functions are in the Perl 9 core included! All PHP programmers will feel home in Perl 9!</text>
+</content>
diff --git a/perl9.buetow.org/content/Better-Than-Others.sub/Python.xml b/perl9.buetow.org/content/Better-Than-Others.sub/Python.xml
new file mode 100644
index 0000000..edfb60c
--- /dev/null
+++ b/perl9.buetow.org/content/Better-Than-Others.sub/Python.xml
@@ -0,0 +1,17 @@
+<?xml version="1.0" encoding="ISO-8859-1" standalone="yes" ?>
+<content>
+ <pagetitle>Python users will love Perl 9!</pagetitle>
+ <text>Perl 9 can be programmed without using semicolons by just using indented tabs! The Perl AI engine will decide if you are using Python style oder old Perlish style for programming! Here is some sample code: (Btw.: Python is just a dialect of Perl)</code>
+ <code>
+for 0 .. @bar.elems -1 -&gt; $i
+ my $foo = @foo[$i]
+ my $bar = @bar[$i]
+ my $baz = @baz[$i]
+ for 0 .. $bar->elems -1 -&gt; $j
+ my $foo_ = $foo->[$j]
+ my $bar_ = $bar->[$j]
+ my $baz_ = $baz->[$j]
+ for 0 .. $bar_->elems -1 -&gt; $k
+ push @$baz_, $foo_->[$k] + $bar_-&gt;[$k]
+ </code>
+</content>
diff --git a/perl9.buetow.org/content/Better-Than-Others.sub/home.xml b/perl9.buetow.org/content/Better-Than-Others.sub/home.xml
new file mode 100644
index 0000000..20b8de4
--- /dev/null
+++ b/perl9.buetow.org/content/Better-Than-Others.sub/home.xml
@@ -0,0 +1,5 @@
+<?xml version="1.0" encoding="ISO-8859-1" standalone="yes" ?>
+<content>
+ <pagetitle>Perl 9 is better...</pagetitle>
+ <text>...than other programming languages. Just click on the top menu to find out!</text>
+</content>