Give $NR a more idiomatic Perl 6 example without using a meta-operator

Raku · Jun 4, 2018 · 4234cc2 · 4234cc2 · rafaelschipiura · Jun 4, 2018
1 parent 936bad2
commit 4234cc2
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/doc/Language/5to6-perlvar.pod6 b/doc/Language/5to6-perlvar.pod6
@@ -483,8 +483,8 @@ you can L<zip|/language/operators#index-entry-Z_%28zip_meta_operator%29> with
 a L<Range>:
 
 =begin code
-for 1..* Z "foo".IO.lines -> ($ln, $text) {
-    say "$ln: $text"
+for "foo".IO.lines.kv -> $n, $line {
+    say "{$n + 1}: $line"
 }
 # OUTPUT:
 # 1: a