added links to authors and licens

Author: lichtkind

Diff for: AUTHORS

@@ -0,0 +1,2 @@
+
+Herbert Breunung <[email protected]>

Diff for: README.md

@@ -2,5 +2,7 @@
 
    * extensive Perl 6 tutorial covers all major language parts,
    * building step by step (chapter by chapter) an useful application,
-   * has parallel Perl 5 tutorial under [bitbucket](https://bitbucket.org/lichtkind/perl-tut-problem-solver)
+   * has parallel Perl 5 tutorial under [bitbucket](https://bitbucket.org/lichtkind/perl-tut-problemsolver)
    * start reading from [Menu](/menu.md)
+   * published under the [license](/LICENSE) CC BY-SA 4.0
+   * written by [Authors](AUTHORS)

Diff for: chapter_2/bn2.pl6

@@ -2,7 +2,6 @@ use v6;
 
 my $file = 'notes2.txt';
 my @note;
-
 @note = lines $file.IO if $file.IO.r;
 
 say 'Press h and <Enter> for help, just <Enter> to exit.';

Diff for: chapter_3/bn3.pl6

@@ -8,7 +8,8 @@ loop {
     for @note.kv {say "$^nr : $^text"}
 
     given prompt 'Write a new note? ' {
-        when /^$/                { last }
+        when ''                  { last }
+        when 'da'                { @note = () }
         when /^ \s+(.+)/         { push @note, $0 }
         when /^a\s*(.+)/         { push @note, $0 }
         when /^p\s*(.+)/         { unshift @note, $0 }
@@ -20,7 +21,6 @@ loop {
                splice( @note, $1, 0, splice( @note, $0, 1));
             }     
         }
-        when '^da$'              { @note = (); }
         default { 
             say q:to/END/;
                 general format: <1 letter = command> <voluntary space> ...

Diff for: chapter_4/bn4.pl6

@@ -8,7 +8,8 @@ loop {
     for @note.kv {say "$^nr : $^text"}
 
     given prompt 'Write a new note? ' {
-        when /^$/                { last }
+        when ''                  { last }
+        when 'da'                { @note = () }
         when /^ \s+(.+)/         { push @note, $0 }
         when /^a\s*(.+)/         { push @note, $0 }
         when /^p\s*(.+)/         { unshift @note, $0 }
@@ -20,7 +21,6 @@ loop {
                splice( @note, $1, 0, splice( @note, $0, 1));
             }     
         }
-        when '^da$'              { @note = (); }
         default { 
             say q:to/END/;
                 general format: <1 letter = command> <voluntary space> ...

Diff for: menu.md

@@ -4,8 +4,8 @@
    + [Chapter 2](/chapter_2/text2.md)    [Code](/chapter_2/bn2.pl6)
    + [Chapter 3](/chapter_3/text3.md)    [Code](/chapter_3/bn3.pl6)
    + [Chapter 4](/chapter_4/text4.md)    [Code](/chapter_4/bn4.pl6)
-   + Chapter 5
-   + Chapter 6
+   + [Chapter 5](/chapter_5/text5.md)    [Code](/chapter_5/bn5.pl6)
+   + [Chapter 6](/chapter_6/text6.md)    [Code](/chapter_6/bn6.pl6)
    + Chapter 7
    + Chapter 8
    + Chapter 9