Nested templated data: Difference between revisions

Explicitly not using strings, using one data structure to fill in another. Since it ''isn't'' a string, the output format removes the newlines from the template; line feeds aren't particularly significant in Perl 6 data structures. It does preserve the nesting though. In the second example, payload "buckets" that don't exist result in an undefined value being inserted; by default: Any.

<lang perl6>my @payloads = <

Payload#0

Payload#1

Payload#2

Payload#3

Payload#4

Payload#5

Payload#6

>;

sub template ($pattern) { @payloads[|$pattern] };

say ' Template: ', $_.perl;

say "Data structure: { template($_).perl }\n";

<pre> Template: $(((1, 2), (3, 4, 1), 5),)