2016 Update
This commit is contained in:
Tina Müller
parent
948b86eafa
commit
dcf5d15da3
7965 changed files with 139854 additions and 31002 deletions
|
|
@ -3,4 +3,6 @@ Define the data structure for a complete Doubly Linked List.
|
|||
* The structure should support adding elements to the head, tail and middle of the list.
|
||||
* The structure should not allow circular loops
|
||||
|
||||
|
||||
{{Template:See also lists}}
|
||||
<br><br>
|
||||
|
|
|
|||
|
|
@ -0,0 +1,8 @@
|
|||
$list = New-Object -TypeName 'Collections.Generic.LinkedList[PSCustomObject]'
|
||||
|
||||
for($i=1; $i -lt 10; $i++)
|
||||
{
|
||||
$list.AddLast([PSCustomObject]@{ID=$i; X=100+$i;Y=200+$i}) | Out-Null
|
||||
}
|
||||
|
||||
$list
|
||||
|
|
@ -0,0 +1,3 @@
|
|||
$list.AddFirst([PSCustomObject]@{ID=123; X=123;Y=123}) | Out-Null
|
||||
|
||||
$list
|
||||
|
|
@ -0,0 +1,14 @@
|
|||
$current = $list.First
|
||||
|
||||
while(-not ($current -eq $null))
|
||||
{
|
||||
If($current.Value.X -eq 105)
|
||||
{
|
||||
$list.AddAfter($current, [PSCustomObject]@{ID=345;X=345;Y=345}) | Out-Null
|
||||
break
|
||||
}
|
||||
|
||||
$current = $current.Next
|
||||
}
|
||||
|
||||
$list
|
||||
|
|
@ -0,0 +1,3 @@
|
|||
$list.AddLast([PSCustomObject]@{ID=789; X=789;Y=789}) | Out-Null
|
||||
|
||||
$list
|
||||
|
|
@ -1,70 +1,44 @@
|
|||
/*REXX program that implements various List Manager functions. */
|
||||
/*┌────────────────────────────────────────────────────────────────────┐
|
||||
┌─┘ ☼☼☼☼☼☼☼☼☼☼☼ Functions of the List Manager ☼☼☼☼☼☼☼☼☼☼☼ └─┐
|
||||
│ @init ─── initializes the List. │
|
||||
│ │
|
||||
│ @size ─── returns the size of the List [could be 0 (zero)]. │
|
||||
│ │
|
||||
│ @show ─── shows (displays) the complete List. │
|
||||
│ @show k,1 ─── shows (displays) the Kth item. │
|
||||
│ @show k,m ─── shows (displays) M items, starting with Kth item.│
|
||||
│ @show ,,─1 ─── shows (displays) the complete List backwards. │
|
||||
│ │
|
||||
│ @get k ─── returns the Kth item. │
|
||||
│ @get k,m ─── returns the M items starting with the Kth item. │
|
||||
│ │
|
||||
│ @put x ─── adds the X items to the end (tail) of the List. │
|
||||
│ @put x,0 ─── adds the X items to the start (head) of the List. │
|
||||
│ @put x,k ─── adds the X items to before of the Kth item. │
|
||||
│ │
|
||||
│ @del k ─── deletes the item K. │
|
||||
└─┐ @del k,m ─── deletes the M items starting with item K. ┌─┘
|
||||
└────────────────────────────────────────────────────────────────────┘*/
|
||||
call sy 'initializing the list.' ; call @init
|
||||
call sy 'building list: Was it a cat I saw'; call @put 'Was it a cat I saw'
|
||||
call sy 'displaying list size.' ; say 'list size='@size()
|
||||
call sy 'forward list' ; call @show
|
||||
call sy 'backward list' ; call @show ,,-1
|
||||
call sy 'showing 4th item' ; call @show 4,1
|
||||
call sy 'showing 5th & 6th items' ; call @show 5,2
|
||||
call sy 'adding item before item 4: black' ; call @put 'black',4
|
||||
call sy 'showing list' ; call @show
|
||||
call sy 'adding to tail: there, in the ...'; call @put 'there, in the shadows, stalking its prey (and next meal).'
|
||||
call sy 'showing list' ; call @show
|
||||
call sy 'adding to head: Oy!' ; call @put 'Oy!',0
|
||||
call sy 'showing list' ; call @show
|
||||
exit /*stick a fork in it, we're done.*/
|
||||
/*──────────────────────────────────subroutines─────────────────────────*/
|
||||
p: return word(arg(1), 1) /*pick the first word of many. */
|
||||
sy: say; say left('', 30) "───" arg(1) '───'; return
|
||||
@init: $.@=; @adjust: $.@=space($.@); $.#=words($.@); return
|
||||
@hasopt: arg o; return pos(o, opt)\==0
|
||||
/*REXX program implements various List Manager functions (see the documentation above).*/
|
||||
call sy 'initializing the list.' ; call @init
|
||||
call sy 'building list: Was it a cat I saw' ; call @put "Was it a cat I saw"
|
||||
call sy 'displaying list size.' ; say "list size="@size()
|
||||
call sy 'forward list' ; call @show
|
||||
call sy 'backward list' ; call @show ,,-1
|
||||
call sy 'showing 4th item' ; call @show 4,1
|
||||
call sy 'showing 5th & 6th items' ; call @show 5,2
|
||||
call sy 'adding item before item 4: black' ; call @put "black",4
|
||||
call sy 'showing list' ; call @show
|
||||
call sy 'adding to tail: there, in the ...' ; call @put "there, in the shadows, stalking its prey (and next meal)."
|
||||
call sy 'showing list' ; call @show
|
||||
call sy 'adding to head: Oy!' ; call @put "Oy!",0
|
||||
call sy 'showing list' ; call @show
|
||||
exit /*stick a fork in it, we're all done. */
|
||||
/*──────────────────────────────────────────────────────────────────────────────────────*/
|
||||
p: return word(arg(1), 1) /*pick the first word out of many items*/
|
||||
sy: say; say left('', 30) "───" arg(1) '───'; return
|
||||
@init: $.@=; @adjust: $.@=space($.@); $.#=words($.@); return
|
||||
@hasopt: arg o; return pos(o, opt)\==0
|
||||
@size: return $.#
|
||||
|
||||
/*──────────────────────────────────────────────────────────────────────────────────────*/
|
||||
@del: procedure expose $.; arg k,m; call @parms 'km'
|
||||
_=subword($.@, k, k-1) subword($.@, k+m)
|
||||
$.@=_; call @adjust
|
||||
return
|
||||
|
||||
$.@=_; call @adjust; return
|
||||
/*──────────────────────────────────────────────────────────────────────────────────────*/
|
||||
@get: procedure expose $.; arg k,m,dir,_
|
||||
call @parms 'kmd'
|
||||
do j=k for m by dir while j>0 & j<=$.#
|
||||
do j=k for m by dir while j>0 & j<=$.#
|
||||
_=_ subword($.@, j, 1)
|
||||
end /*j*/
|
||||
return strip(_)
|
||||
|
||||
@parms: arg opt /*define a variable based on OPT.*/
|
||||
if @hasopt('k') then k=min($.#+1, max(1,p(k 1)))
|
||||
if @hasopt('m') then m=p(m 1)
|
||||
if @hasopt('d') then dir=p(dir 1)
|
||||
/*──────────────────────────────────────────────────────────────────────────────────────*/
|
||||
@parms: arg opt /*define a variable based on an option.*/
|
||||
if @hasopt('k') then k=min($.#+1, max(1, p(k 1)))
|
||||
if @hasopt('m') then m=p(m 1)
|
||||
if @hasopt('d') then dir=p(dir 1); return
|
||||
/*──────────────────────────────────────────────────────────────────────────────────────*/
|
||||
@put: procedure expose $.; parse arg x,k; k=p(k $.#+1); call @parms 'k'
|
||||
$.@=subword($.@, 1, max(0, k-1)) x subword($.@, k); call @adjust
|
||||
return
|
||||
|
||||
@put: procedure expose $.; parse arg x,k ; k=p(k $.#+1)
|
||||
call @parms 'k'
|
||||
$.@=subword($.@, 1, max(0, k-1)) x subword($.@, k)
|
||||
call @adjust
|
||||
return
|
||||
|
||||
@show: procedure expose $.; parse arg k,m,dir
|
||||
if dir==-1 & k=='' then k=$.#; m=p(m $.#)
|
||||
call @parms 'kmd'; say @get(k,m, dir); return
|
||||
/*──────────────────────────────────────────────────────────────────────────────────────*/
|
||||
@show: procedure expose $.; parse arg k,m,dir; if dir==-1 & k=='' then k=$.#
|
||||
m=p(m $.#); call @parms 'kmd'; say @get(k,m, dir); return
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue