diff options
Diffstat (limited to 'perl9.buetow.org/content/Extended-Features.sub')
7 files changed, 0 insertions, 135 deletions
diff --git a/perl9.buetow.org/content/Extended-Features.sub/Hypergoto.xml b/perl9.buetow.org/content/Extended-Features.sub/Hypergoto.xml deleted file mode 100644 index 5d910c7..0000000 --- a/perl9.buetow.org/content/Extended-Features.sub/Hypergoto.xml +++ /dev/null @@ -1,17 +0,0 @@ -<?xml version="1.0" encoding="ISO-8859-1" standalone="yes" ?> -<content> - <pagetitle>Perl 9 supports hypergotos!</pagetitle> - <text>Perl 9 has the fastest goto ever! hypergoto is faster than everything you ve seen so far. A very fast loop can be programmed like this:</text> - <code> -+$counter+; -hypergoto ENDLOOP if $counter = 1000; -hypergoto LOOP; -ENDLOOP: -'End very fast goto'<-say; - </code> - <text>It is also possible to goto into different programs!</text> - <code> -hypergoto $pid, $routine, $instruction; - </code> - <text>...jumps into the process with the id $pid and the specified routine/instruction number.</text> -</content> diff --git a/perl9.buetow.org/content/Extended-Features.sub/Infinite-Loops.xml b/perl9.buetow.org/content/Extended-Features.sub/Infinite-Loops.xml deleted file mode 100644 index d8658b7..0000000 --- a/perl9.buetow.org/content/Extended-Features.sub/Infinite-Loops.xml +++ /dev/null @@ -1,34 +0,0 @@ -<?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> diff --git a/perl9.buetow.org/content/Extended-Features.sub/Megahyper-Operators.xml b/perl9.buetow.org/content/Extended-Features.sub/Megahyper-Operators.xml deleted file mode 100644 index 7bcd5a1..0000000 --- a/perl9.buetow.org/content/Extended-Features.sub/Megahyper-Operators.xml +++ /dev/null @@ -1,50 +0,0 @@ -<?xml version="1.0" encoding="ISO-8859-1" standalone="yes" ?> -<content> - <pagetitle>Hyper- mega hyper and mega mega hyper!</pagetitle> - <text>You probably already know the so called Hyperoperators of Perl 6!</text> - <code> -# This code -my @baz = @foo >>+<< @bar; - -# Is the same as: -loop ($i = 0; $i < @bar.elems; ++$i) { - push @baz, @foo[$i] + @bar[$i]; -} - </code> - <text>A mega hyper operator takes you to the next level:</text> - <code> -# This code -my @baz = @foo >>>>+<<<< @bar; - -# Is the same as: -loop ($i = 0; $i < @bar.elems; ++$i) { - my $foo = @foo[$i]; - my $bar = @bar[$i]; - my $baz = @baz[$i]; - loop ($j = 0; $j < $bar->elems; ++$j) { - push @$baz, $foo->[$j] + $bar->[$j]; - } -} - </code> - <text>And a mega mega hyper operator does this:</text> - <code> -# This code -my @baz = @foo >>>>>>+<<<<<< @bar; - -# Is the same as: -loop ($i = 0; $i <&t; @bar.elems; ++$i) { - my $foo = @foo[$i]; - my $bar = @bar[$i]; - my $baz = @baz[$i]; - loop ($j = 0; $j < $bar->elems; ++$j) { - my $foo_ = $foo->[$j]; - my $bar_ = $bar->[$j]; - my $baz_ = $baz->[$j]; - loop ($k = 0; $k < $bar_->elems; ++$k) { - push @$baz_, $foo_->[$k] + $bar_->[$k]; - } - } -} - </code> - <text>Etc... As you can see, its helping you to write less code!</text> -</content> diff --git a/perl9.buetow.org/content/Extended-Features.sub/Mixed-Contexes.xml b/perl9.buetow.org/content/Extended-Features.sub/Mixed-Contexes.xml deleted file mode 100644 index d6b2feb..0000000 --- a/perl9.buetow.org/content/Extended-Features.sub/Mixed-Contexes.xml +++ /dev/null @@ -1,10 +0,0 @@ -<?xml version="1.0" encoding="ISO-8859-1" standalone="yes" ?> -<content> - <pagetitle>Perl 9 can now mix up contexes!</pagetitle> - <text>As you know from previous versions of Perl, you use the contexes void, list and scalar to program in. Now you are able to mix those together within the same variable!</text> - <code> -my $@scaarr = ("Hello", (1, 2, 3, 4)); -$@scaarr.scalar.say; # Prints Hello -local $, = ' '; $@scaarr.say; # Prints 1 2 3 4 - </code> -</content> diff --git a/perl9.buetow.org/content/Extended-Features.sub/Random-Number-Generator.xml b/perl9.buetow.org/content/Extended-Features.sub/Random-Number-Generator.xml deleted file mode 100644 index ff8148a..0000000 --- a/perl9.buetow.org/content/Extended-Features.sub/Random-Number-Generator.xml +++ /dev/null @@ -1,8 +0,0 @@ -<?xml version="1.0" encoding="ISO-8859-1" standalone="yes" ?> -<content> - <pagetitle>Real random number generator!</pagetitle> - <text>Perl 9 now has got a REAL random number generator. No more psydo random generators. The perl process goes outside of your computer and looks for some random stuff to capture. Here is an example:</text> - <code> -random(10).say; # Prints out a real random number >=0 and < 10 - </code> -</content> diff --git a/perl9.buetow.org/content/Extended-Features.sub/Reverse-Methods.xml b/perl9.buetow.org/content/Extended-Features.sub/Reverse-Methods.xml deleted file mode 100644 index 9df5b41..0000000 --- a/perl9.buetow.org/content/Extended-Features.sub/Reverse-Methods.xml +++ /dev/null @@ -1,11 +0,0 @@ -<?xml version="1.0" encoding="ISO-8859-1" standalone="yes" ?> -<content> - <pagetitle>Perl 9 has now reverse method operators!</pagetitle> - <text>You don't have to call $object.method or $object->method any more! You can also do method<-$object instead! This leads to a new level of flexibility and programming experience!</text> - <code> -#!/usr/bin/perl9 - -your $result = 1->add(1) / mult(2)<-2; -say<-$result; # Will print 0.5 - </code> -</content> diff --git a/perl9.buetow.org/content/Extended-Features.sub/home.xml b/perl9.buetow.org/content/Extended-Features.sub/home.xml deleted file mode 100644 index 1826442..0000000 --- a/perl9.buetow.org/content/Extended-Features.sub/home.xml +++ /dev/null @@ -1,5 +0,0 @@ -<?xml version="1.0" encoding="ISO-8859-1" standalone="yes" ?> -<content> - <pagetitle>Perl 9 has improved old techniques</pagetitle> - <text>Here are the most exciting feature extendings of Perl 9 listed. Just click on the top menu on the desired feature and you will see the examples!</text> -</content> |