|
|
Line 790: |
Line 790: |
|
(()()()()) |
|
(()()()()) |
|
</pre> |
|
</pre> |
|
|
|
|
|
|
|
|
=={{header|Kotlin}}== |
|
=={{header|Kotlin}}== |
Line 944: |
Line 943: |
|
([{}][][]) |
|
([{}][][]) |
|
([][][][])</pre> |
|
([][][][])</pre> |
|
|
|
⚫ |
|
|
⚫ |
Bags are represented by Perl 6 type [http://doc.perl6.org/type/Bag <code>Bag</code>]. |
|
|
|
|
⚫ |
|
|
|
|
|
⚫ |
multi expand-tree ( Bag $tree ) { |
|
⚫ |
bag(bag(bag()) (+) $tree) (+) |
|
⚫ |
|
|
⚫ |
|
|
⚫ |
$^a.&expand-tree.map: * (+) ( $tree (-) bag($^a) ) |
|
⚫ |
|
|
⚫ |
|
|
⚫ |
|
|
|
|
|
⚫ |
multi expand-trees ( Bag $trees ) { |
|
⚫ |
[(+)] $trees.keys.map: { $_.&expand-tree } ; |
|
⚫ |
|
|
|
|
|
⚫ |
|
|
⚫ |
for ( bag(), bag(bag()), *.&expand-trees ... * )[$n] { |
|
⚫ |
|
|
⚫ |
|
|
⚫ |
|
|
⚫ |
|
|
⚫ |
|
|
⚫ |
|
|
⚫ |
1. bag(bag(), bag(bag()(2))) => 2 |
|
⚫ |
2. bag(bag(bag()(3))) => 1 |
|
⚫ |
3. bag(bag(bag(bag()), bag())) => 2 |
|
⚫ |
4. bag(bag(bag(bag(bag())))) => 1 |
|
⚫ |
5. bag(bag(bag())(2)) => 1 |
|
⚫ |
6. bag(bag(bag(bag()(2)))) => 1 |
|
⚫ |
7. bag(bag(), bag(bag(bag()))) => 2 |
|
⚫ |
8. bag(bag(bag()), bag()(2)) => 2 |
|
⚫ |
|
|
⚫ |
|
|
⚫ |
The bag <code>bag(bag(bag()), bag()(2))</code> coresponds with <code>((())()())</code>. There are two independent ways how we can get it by nesting 4 bags. |
|
|
|
|
|
|
=={{header|Phix}}== |
|
=={{header|Phix}}== |
Line 1,254: |
Line 1,215: |
|
((((())))) |
|
((((())))) |
|
#t</pre> |
|
#t</pre> |
|
|
|
|
⚫ |
|
|
|
(formerly Perl 6) |
|
⚫ |
Bags are represented by Perl 6 type [http://doc.perl6.org/type/Bag <code>Bag</code>]. |
|
|
|
|
⚫ |
|
|
|
|
|
⚫ |
multi expand-tree ( Bag $tree ) { |
|
⚫ |
bag(bag(bag()) (+) $tree) (+) |
|
⚫ |
|
|
⚫ |
|
|
⚫ |
$^a.&expand-tree.map: * (+) ( $tree (-) bag($^a) ) |
|
⚫ |
|
|
⚫ |
|
|
⚫ |
|
|
|
|
|
⚫ |
multi expand-trees ( Bag $trees ) { |
|
⚫ |
[(+)] $trees.keys.map: { $_.&expand-tree } ; |
|
⚫ |
|
|
|
|
|
⚫ |
|
|
⚫ |
for ( bag(), bag(bag()), *.&expand-trees ... * )[$n] { |
|
⚫ |
|
|
⚫ |
|
|
⚫ |
|
|
⚫ |
|
|
⚫ |
|
|
⚫ |
|
|
⚫ |
1. bag(bag(), bag(bag()(2))) => 2 |
|
⚫ |
2. bag(bag(bag()(3))) => 1 |
|
⚫ |
3. bag(bag(bag(bag()), bag())) => 2 |
|
⚫ |
4. bag(bag(bag(bag(bag())))) => 1 |
|
⚫ |
5. bag(bag(bag())(2)) => 1 |
|
⚫ |
6. bag(bag(bag(bag()(2)))) => 1 |
|
⚫ |
7. bag(bag(), bag(bag(bag()))) => 2 |
|
⚫ |
8. bag(bag(bag()), bag()(2)) => 2 |
|
⚫ |
|
|
⚫ |
|
|
⚫ |
The bag <code>bag(bag(bag()), bag()(2))</code> coresponds with <code>((())()())</code>. There are two independent ways how we can get it by nesting 4 bags. |
|
|
|
|
|
=={{header|REXX}}== |
|
=={{header|REXX}}== |