initial commit

diagramm

@@ -0,0 +1,22 @@
+
+
+
+
+             +------------------------------------+
+             |  your_code.pl6                     |
+             |                                    |
+             +------------------------------------+
+             +------------------------------------+
+             |                                    |
+             |   Rakudo (Compiler)                |
+             |                                    |
+             +------------------------------------+
+             +------------------------------------+
+             |   MoarVM                           |
+             |                                    |
+             +------------------------------------+
+             +---------------++------------------+
+             |               ||                  |
+             |  CPU          ||  OS              |
+             |               ||                  |
+             +---------------++------------------+

experimente/03-01-todays-date.pl

@@ -0,0 +1,14 @@
+#!/usr/bin/env perl6
+use v6;
+
+=begin pod
+=TITLE Today's Date
+=AUTHOR stmuk
+You want year, month and day for today's date.
+=end pod
+
+my $d = Date.today;
+
+say  "{$d.year} {$d.month} {$d.day}";
+
+# vim: expandtab shiftwidth=4 ft=perl6

experimente/loop_test/loop_test.java

@@ -0,0 +1,19 @@
+
+class loop_test
+{
+  public static void main(String[] args)
+  {
+      int[] array_1 = { 1,2,3,4,5,6,7,8,9,10 };
+      int[] array_2 = { 0,0,0,0,0,0,0,0,0,0  };
+
+      for (int i = 1; i <= 100000; i++)
+      {
+          for (int j=0 ;j < 10 ; j++ )
+          {
+              array_2[j] = array_1[j];
+          }
+
+      }
+
+  }
+}

experimente/loop_test/perl5.pl

@@ -0,0 +1,13 @@
+#!/usr/bin/env perl
+
+my @array_1 = (1,2,3,4,5,6,7,8,9,10);
+my @array_2 = (0,0,0,0,0,0,0,0,0,0);
+
+for (1..100_000)
+{
+    for $i (0..9)
+    {
+        $array_2[$i] = $array_1[$i];
+    }
+
+}

experimente/loop_test/perl6.pl

@@ -0,0 +1,16 @@
+#!/usr/bin/env perl6
+use v6;
+
+my @array_1 = (1,2,3,4,5,6,7,8,9,10);
+my @array_2 = (0,0,0,0,0,0,0,0,0,0);
+
+for (1..100_000) -> $index
+{
+    for (1..10) -> $i
+    {
+        @array_2[$i] = @array_1[$i]
+    }
+
+}
+
+#say ( @array_2[3].type() );

experimente/loop_test/python3.4.py

@@ -0,0 +1,8 @@
+#!/usr/bin/env python3
+
+array_1 = [ 1,2,3,4,5,6,7,8,9,10 ];
+array_2 = [ 0,0,0,0,0,0,0,0,0,0  ];
+
+for index in range(100000):
+    for i in range(10):
+        array_2[i] = array_1[i]

perl6_vortrag.org

@@ -0,0 +1,39 @@
+
+* Inhaltsübersicht(plan) (vorschlag)
+** überblick und theorie (beispiele)
+** Tools:
+*** rakudo compiler (und rakudobrew)
+*** panda paketsystem
+*** emacs mode
+*** in den files muss oben "use v6" stehen
+** Typsystem
+** sigil invarianz
+** konkrete beispiele und Performance vergleiche (perl6, perl5, python3)
+*** hier auch: typ von etwas auslesen (das komische introspection makro)
+*** --optimize= verwneden
+*** zeigen wie es besser wird durch type annotations
+*** fun: java beispiel
+** Die geilheit von compact arrays
+** Übersicht modulsystem
+** perl5 module in perl6 usen (und performance)
+   - ist vermutl nicht inperformant
+** reguläre ausdrücke
+** kurz: Objektorientierung?
+*** (implizite getter und setter)
+*** Es gibt exceptions (sie sind okay)
+** Was weggelasen wurde
+
+*** auch: anschauen, läuft wirklich ein 2. prozess
+*** etvl. gutes beispiel: xml parsing foo library
+*** C Code in perl6 (nativecall)
+*** Macros (lisp style)
+*** spezifikation
+*** junctions und autoparallelisierung
+*** async support
+*** gather
+** Schlussgedanken:
+*** Zur Größe/Komplexizität
+*** Wird perl6 groß? (so groß wie perl5)
+    - perl6 will in eine domäne die schon voll ist
+    - stostrup zitat
+    - wird eher was schönes für enthusiasten