Doubly-linked list/Element insertion: Difference between revisions
Content added Content deleted
m (→{{header|REXX}}: changed the style of the output. -- ~~~~) |
(→{{header|Perl 6}}: add entry) |
||
Line 603: | Line 603: | ||
my $node_c = { %node_model }; |
my $node_c = { %node_model }; |
||
insert($node_a, $node_c);</lang> |
insert($node_a, $node_c);</lang> |
||
=={{header|Perl 6}}== |
|||
Using the generic definitions from other entries: |
|||
<lang perl6>class DLElem_Str does DLElem[Str] {} |
|||
class DLList_Str does DLList[DLElem_Str] {} |
|||
my $sdll = DLList_Str.new; |
|||
my $b = $sdll.first.post-insert('A').post-insert('B'); |
|||
$b.pre-insert('C'); |
|||
say $sdll.list; # A C B</lang> |
|||
{{out}} |
|||
<pre>A C B</pre> |
|||
=={{header|PicoLisp}}== |
=={{header|PicoLisp}}== |