diff options
| author | Paul Buetow <paul@buetow.org> | 2013-02-03 10:44:49 +0100 |
|---|---|---|
| committer | Paul Buetow <paul@buetow.org> | 2013-02-03 10:44:49 +0100 |
| commit | 025e15b2ba7f54f87cf409fd7c3dd77746c72858 (patch) | |
| tree | 007c5af4f921aa85665f4db56f6f4309668a5dab /perl9.buetow.org/content/Better-Than-Others.sub | |
| parent | fc0acd318710aa0bb566329a36d886b1455c21ec (diff) | |
add hosts
Diffstat (limited to 'perl9.buetow.org/content/Better-Than-Others.sub')
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 -> $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] + </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> |