From 025e15b2ba7f54f87cf409fd7c3dd77746c72858 Mon Sep 17 00:00:00 2001 From: Paul Buetow Date: Sun, 3 Feb 2013 10:44:49 +0100 Subject: add hosts --- .../content/Better-Than-Others.sub/Lisp.xml | 22 ++++++++++++++++++++++ .../content/Better-Than-Others.sub/PHP.xml | 5 +++++ .../content/Better-Than-Others.sub/Python.xml | 17 +++++++++++++++++ .../content/Better-Than-Others.sub/home.xml | 5 +++++ 4 files changed, 49 insertions(+) create mode 100644 perl9.buetow.org/content/Better-Than-Others.sub/Lisp.xml create mode 100644 perl9.buetow.org/content/Better-Than-Others.sub/PHP.xml create mode 100644 perl9.buetow.org/content/Better-Than-Others.sub/Python.xml create mode 100644 perl9.buetow.org/content/Better-Than-Others.sub/home.xml (limited to 'perl9.buetow.org/content/Better-Than-Others.sub') 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 @@ + + + Common Lisp users will love Perl 9! + Lisp users will love Perl 9 because you can use paranthesis everywhere! + +(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)))))))) + + 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 @@ + + + Perl 9 has now more core functions! + 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! + 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 @@ + + + Python users will love Perl 9! + 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) + +for 0 .. @bar.elems -1 -> $i + my $foo = @foo[$i] + my $bar = @bar[$i] + my $baz = @baz[$i] + for 0 .. $bar->elems -1 -> $j + my $foo_ = $foo->[$j] + my $bar_ = $bar->[$j] + my $baz_ = $baz->[$j] + for 0 .. $bar_->elems -1 -> $k + push @$baz_, $foo_->[$k] + $bar_->[$k] + + 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 @@ + + + Perl 9 is better... + ...than other programming languages. Just click on the top menu to find out! + -- cgit v1.2.3