Parametric polymorphism: Difference between revisions
Content added Content deleted
m (→{{header|REXX}}: added/changed comments and whitespace.) |
SqrtNegInf (talk | contribs) m (→{{header|Raku}}: .perl not needed) |
||
Line 1,048: | Line 1,048: | ||
=={{header|Raku}}== |
=={{header|Raku}}== |
||
(formerly Perl 6) |
(formerly Perl 6) |
||
{{works with|Rakudo|2020.08.1}} |
|||
<lang perl6>role BinaryTree[::T] { |
<lang perl6>role BinaryTree[::T] { |
||
has T $.value; |
has T $.value; |
||
Line 1,067: | Line 1,068: | ||
$it.replace-all(42); |
$it.replace-all(42); |
||
say $it |
say $it;</lang> |
||
{{out}} |
{{out}} |
||
<pre>IntTree.new(value => 42, left => IntTree.new(value => 42, left => BinaryTree[T], right => BinaryTree[T]), right => IntTree.new(value => 42, left => BinaryTree[T], right => BinaryTree[T]))</pre> |
<pre>IntTree.new(value => 42, left => IntTree.new(value => 42, left => BinaryTree[T], right => BinaryTree[T]), right => IntTree.new(value => 42, left => BinaryTree[T], right => BinaryTree[T]))</pre> |