Board logo

标题: [游戏娱乐] 批处理线性结构类库 [打印本页]
作者: 老刘1号    时间: 2019-3-28 21:43     标题: 批处理线性结构类库

本帖最后由 老刘1号 于 2020-4-29 11:24 编辑

介绍
让你在批处理编程中优雅的使用线性结构。
代码&文档
约定：
        <必选参数> [可选参数]
        默认传入变量名，有?包裹代表可传入数值、可传入变量名。
        返回值在!ErrorLevel!，默认0为成功，其它为失败。

LinearList_LSS_SLL.txt
库名：线性表
实现：
        链式储存结构-单向链表（含头结点）。
        （Linked Storage Structure - Singly Linked List）
结点字段：
        Data 储存结点的数据。
        Next 指向结点对应的下一个结点。
用法：Call LinearList_LSS_SLL 函数名 参数
函数：
        :Init <ListName>
                建立空的线性表。
                返回后，变量ListName即为头指针，头指针指向头结点。
        :Clear <?ListName?>
                清空线性表。
        elete <ListName>
                删除线性表。
                变量ListName也会被删除。
        :IsEmpty <?ListName?>
                判断线性表是否为空表。
        :GetLength <?ListName?>
                返回线性表的元素个数（不计头结点）。
        :GetNextNodePtr <?NodePtr?>
                返回下一个结点的指针，0表示不存在下个结点。
        :InsertNextNode        <?NodePtr?> <VarToInsert>
                在当前指针指向结点后插入新结点。
                将返回新结点的指针。
        :DeleteNextNode <?NodePtr?> [VarToSaveNextNodeElemValue]
                删除指针指向结点的后一结点，可以返回后一结点的值。
        :GetNodeElem <?NodePtr?> <VarToSaveElemValue>
                得到指针指向结点的值。
        :EditNodeElem <?NodePtr?> <VarToReplaceElemValue>
                修改指针指向结点的值。

LinearList_LSS_SLL.bat
  1. ::Code by OldLiu

  2. ::老刘编写

  3. 

  4. ::Start

  5. 	Set "_TMP_Arguments_=%*"

  6. 	If "!_TMP_Arguments_:~,1!" Equ ":" (

  7. 		Set "_TMP_Arguments_=!_TMP_Arguments_:~1!"

  8. 	)

  9. 	Call :LinearList_LSS_SLL_!_TMP_Arguments_!

  10. 	Set _TMP_Arguments_=

  11. Goto :Eof

  12. 

  13. ::LinearList_LSS_SLL Begin

  14. 	:LinearList_LSS_SLL_GetRandom

  15. 		Set /A ErrorLevel=%random%%%10000+%random%*10000

  16. 		If !ErrorLevel! Equ 0 Goto GetRandom

  17. 		If Defined Memory[!ErrorLevel!].Data Goto GetRandom

  18. 	Goto :Eof

  19. 

  20. 	:LinearList_LSS_SLL_Init ListName

  21. 		Call :LinearList_LSS_SLL_GetRandom

  22. 		Set /A %~1=ErrorLevel

  23. 		Set Memory[!ErrorLevel!].Data=ListHead

  24. 		Set /A Memory[!ErrorLevel!].Next=0

  25. 		Set /A ErrorLevel=0

  26. 	Goto :Eof

  27. 

  28. 	:LinearList_LSS_SLL_Clear ListName

  29. 		Call :LinearList_LSS_SLL_DeleteNextNode "%~1"

  30. 		If !ErrorLevel! Equ 0 Goto :LinearList_LSS_SLL_Clear

  31. 		Set /A ErrorLevel=0

  32. 	Goto :Eof

  33. 

  34. 	:LinearList_LSS_SLL_Delete ListName

  35. 		Call :LinearList_LSS_SLL_Clear "%~1"

  36. 		Set Memory[!%~1!].Data=

  37. 		Set Memory[!%~1!].Next=

  38. 		Set /A ErrorLevel=0

  39. 	Goto :Eof

  40. 

  41. 	:LinearList_LSS_SLL_GetLength ListName

  42. 		Set /A _LinearList_LSS_SLL_GetLength_TMP_ListLength_=0

  43. 		Set /A _LinearList_LSS_SLL_GetLength_TMP_Next_Node_Ptr_=%~1

  44. 		:LinearList_LSS_SLL_GetLength_Loop

  45. 			Call :LinearList_LSS_SLL_GetNextNodePtr _LinearList_LSS_SLL_GetLength_TMP_Next_Node_Ptr_

  46. 			Set /A _LinearList_LSS_SLL_GetLength_TMP_Next_Node_Ptr_=ErrorLevel

  47. 			If !_LinearList_LSS_SLL_GetLength_TMP_Next_Node_Ptr_! Neq 0 (

  48. 				Set /A _LinearList_LSS_SLL_GetLength_TMP_ListLength_+=1

  49. 				Goto LinearList_LSS_SLL_GetLength_Loop

  50. 			)

  51. 		Set /A ErrorLevel=_LinearList_LSS_SLL_GetLength_TMP_ListLength_

  52. 		Set _LinearList_LSS_SLL_GetLength_TMP_ListLength_=

  53. 		Set _LinearList_LSS_SLL_GetLength_TMP_Next_Node_Ptr_=

  54. 	Goto :Eof

  55. 

  56. 	:LinearList_LSS_SLL_IsEmpty ListName

  57. 	:LinearList_LSS_SLL_GetNextNodePtr NodePtr

  58. 		Set /A _LinearList_LSS_SLL_GetNextNodePtr_TMP_NodePtr_=%~1

  59. 		Set /A ErrorLevel=Memory[!_LinearList_LSS_SLL_GetNextNodePtr_TMP_NodePtr_!].Next

  60. 		Set _LinearList_LSS_SLL_GetNextNodePtr_TMP_NodePtr_=

  61. 	Goto :Eof

  62. 

  63. 	:LinearList_LSS_SLL_InsertNextNode NodePtr VarToInsert

  64. 		Set /A _LinearList_LSS_SLL_InsertNextNode_TMP_NodePtr_=%~1

  65. 		Set /A _LinearList_LSS_SLL_InsertNextNode_TMP_NextNodePtr_=Memory[!_LinearList_LSS_SLL_InsertNextNode_TMP_NodePtr_!].Next

  66. 		Call :LinearList_LSS_SLL_GetRandom

  67. 		Set /A Memory[!_LinearList_LSS_SLL_InsertNextNode_TMP_NodePtr_!].Next=ErrorLevel

  68. 		Set /A Memory[!ErrorLevel!].Next=_LinearList_LSS_SLL_InsertNextNode_TMP_NextNodePtr_

  69. 		Set "Memory[!ErrorLevel!].Data=!%~2!"

  70. 		Set _LinearList_LSS_SLL_InsertNextNode_TMP_NextNodePtr_=

  71. 		Set _LinearList_LSS_SLL_InsertNextNode_TMP_NodePtr_=

  72. 	Goto :Eof

  73. 

  74. 	:LinearList_LSS_SLL_DeleteNextNode NodePtr [VarToSaveNextNodeElemValue]

  75. 		Set /A _LinearList_LSS_SLL_DeleteNextNode_TMP_NodePtr_=%~1

  76. 		Set /A _LinearList_LSS_SLL_DeleteNextNode_TMP_Next_Node_Ptr_=Memory[!_LinearList_LSS_SLL_DeleteNextNode_TMP_NodePtr_!].Next

  77. 		If !_LinearList_LSS_SLL_DeleteNextNode_TMP_Next_Node_Ptr_! Equ 0 (

  78. 			Set _LinearList_LSS_SLL_DeleteNextNode_TMP_Next_Node_Ptr_=

  79. 			Set _LinearList_LSS_SLL_DeleteNextNode_TMP_NodePtr_=

  80. 			Set /A ErrorLevel=1

  81. 			Goto :Eof

  82. 		)

  83. 		Set /A Memory[!_LinearList_LSS_SLL_DeleteNextNode_TMP_NodePtr_!].Next=Memory[!_LinearList_LSS_SLL_DeleteNextNode_TMP_Next_Node_Ptr_!].Next

  84. 		If "%~2" Neq "" Call Set "%~2=%%Memory[!_LinearList_LSS_SLL_DeleteNextNode_TMP_Next_Node_Ptr_!].Data%%"

  85. 		Set Memory[!_LinearList_LSS_SLL_DeleteNextNode_TMP_Next_Node_Ptr_!].Next=

  86. 		Set Memory[!_LinearList_LSS_SLL_DeleteNextNode_TMP_Next_Node_Ptr_!].Data=

  87. 		Set _LinearList_LSS_SLL_DeleteNextNode_TMP_Next_Node_Ptr_=

  88. 		Set _LinearList_LSS_SLL_DeleteNextNode_TMP_NodePtr_=

  89. 		Set /A ErrorLevel=0

  90. 	Goto :Eof

  91. 

  92. 	:LinearList_LSS_SLL_GetNodeElem NodePtr VarToSaveElemValue

  93. 		Set /A LinearList_LSS_SLL_GetNodeElem_TMP_NodePtr_=%~1

  94. 		Call Set "%~2=%%Memory[!LinearList_LSS_SLL_GetNodeElem_TMP_NodePtr_!].Data%%"

  95. 		Set LinearList_LSS_SLL_GetNodeElem_TMP_NodePtr_=

  96. 		Set /A ErrorLevel=0

  97. 	Goto :Eof

  98. 

  99. 	:LinearList_LSS_SLL_EditNodeElem NodePtr VarToReplaceElemValue

  100. 		Set /A LinearList_LSS_SLL_EditNodeElem_TMP_NodePtr_=%~1

  101. 		Set "Memory[!LinearList_LSS_SLL_EditNodeElem_TMP_NodePtr_!].Data=!%~2!"

  102. 		Set LinearList_LSS_SLL_EditNodeElem_TMP_NodePtr_=

  103. 		Set /A ErrorLevel=0

  104. 	Goto :Eof

  105. ::LinearList_LSS_SLL End
复制代码
LinearList_SSS.txt
库名：线性表
实现：
        顺序储存结构
        （Sequence Storage Structure）
用法：Call LinearList_SSS 函数名 参数
函数：
        :Init <ListName> <?MaxLength?>
                初始化操作，建立一个空的线性表。
                表最多可储存MaxLength个元素。
        :Clear <ListName>
                清空线性表。
        :Delete <ListName>
                删除线性表。
        :GetElem <ListName> <?Index?> <VarToReturn>
                将线性表中第Index（从1开始）个元素的值返回。
        :EditElem <ListName> <?Index?> <VarToReplaceWith>
                修改线性表中第Index个位置的元素值。

LinearList_SSS.bat
  1. ::Code by OldLiu

  2. ::老刘编写

  3. 

  4. ::Start

  5. 	Set "_TMP_Arguments_=%*"

  6. 	If "!_TMP_Arguments_:~,1!" Equ ":" (

  7. 		Set "_TMP_Arguments_=!_TMP_Arguments_:~1!"

  8. 	)

  9. 	Call :LinearList_SSS_!_TMP_Arguments_!

  10. 	Set _TMP_Arguments_=

  11. Goto :Eof

  12. 

  13. ::LinearList_SSS Begin

  14. 	:LinearList_SSS_Init ListName MaxLength

  15. 		Set /A "%~1.MaxLength=%~2"

  16. 		Set /A ErrorLevel=0

  17. 	Goto :Eof

  18. 

  19. 	:LinearList_SSS_Clear ListName

  20. 		For /L %%a In (1 1 !%~1.MaxLength!) Do (

  21. 			Set "%~1.Element[%%a]="

  22. 		)

  23. 		Set /A ErrorLevel=0

  24. 	Goto :Eof

  25. 

  26. 	:LinearList_SSS_Delete ListName

  27. 		Call :LinearList_SSS_Clear "%~1"

  28. 		Set "%~1.MaxLength="

  29. 		Set /A ErrorLevel=0

  30. 	Goto :Eof

  31. 

  32. 	:LinearList_SSS_GetElem ListName Index VarToReturn

  33. 		Set /A _LinearList_SSS_GetElem_TMP_Index=%~2

  34. 		If !_LinearList_SSS_GetElem_TMP_Index! Lss 1 (Set /A ErrorLevel=1 & Goto :Eof)

  35. 		If !_LinearList_SSS_GetElem_TMP_Index! Gtr !%~1.MaxLength! (Set /A ErrorLevel=1 & Goto :Eof)

  36. 		Call Set "%~3=%%%~1.Element[!_LinearList_SSS_GetElem_TMP_Index!]%%"

  37. 		Set _LinearList_SSS_GetElem_TMP_Index=

  38. 		Set /A ErrorLevel=0

  39. 	Goto :Eof

  40. 

  41. 	:LinearList_SSS_EditElem ListName Index VarToReplaceWith

  42. 		Set /A _LinearList_SSS_EditElem_TMP_Index=%~2

  43. 		If !_LinearList_SSS_EditElem_TMP_Index! Lss 1 (Set /A ErrorLevel=1 & Goto :Eof)

  44. 		If !_LinearList_SSS_EditElem_TMP_Index! Gtr !%~1.MaxLength! (Set /A ErrorLevel=1 & Goto :Eof)

  45. 		Set "%~1.Element[!_LinearList_SSS_EditElem_TMP_Index!]=!%~3!"

  46. 		Set _LinearList_SSS_EditElem_TMP_Index=

  47. 		Set /A ErrorLevel=0

  48. 	Goto :Eof

  49. ::LinearList_SSS End
复制代码
Queue_LSS.txt
库名：队列
实现：
        链式储存结构-单向链表（含头结点）。
        （Linked Storage Structure - Singly Linked List）
用法：Call Queue_LSS 函数名 参数
函数：
        :Init <QueueName>
                建立空的队列。
        :Clear <?QueueName?>
                清空队列。
        :Delete <QueueName>
                删除队列。
                变量QueueName也会被删除。
        :IsEmpty <?QueueName?>
                判断队列是否为空。
        :Enqueue <?QueueName?> <VarToInsert>
                将VarToInsert插入队列。
        :Dequeue <?QueueName?> [VarToReturn]
                将队头数据元素从队列中删除并返回。
        eep <?QueueName?> <VarToReturn>
                返回队头元素但不删除。

Queue_LSS.BAT
  1. ::Code by OldLiu

  2. ::老刘编写

  3. 

  4. ::Start

  5. 	Set "_TMP_Arguments_=%*"

  6. 	If "!_TMP_Arguments_:~,1!" Equ ":" (

  7. 		Set "_TMP_Arguments_=!_TMP_Arguments_:~1!"

  8. 	)

  9. 	Call :Queue_LSS_!_TMP_Arguments_!

  10. 	Set _TMP_Arguments_=

  11. Goto :Eof

  12. 

  13. ::Queue_LSS(require LinearList_LSS_SLL) Begin

  14. 	:Queue_LSS_Init QueueName

  15. 		Call :LinearList_LSS_SLL_Init "%~1"

  16. 		Call :LinearList_LSS_SLL_EditNodeElem "%~1" "%~1"

  17. 	Goto :Eof

  18. 	

  19. 	:Queue_LSS_Clear QueueName

  20. 		Call :LinearList_LSS_SLL_Clear "%~1"

  21. 		Set /A _Queue_LSS_Clear_TMP_HeadNodePtr=%~1

  22. 		Call :LinearList_LSS_SLL_EditNodeElem "%~1" "_Queue_LSS_Clear_TMP_HeadNodePtr"

  23. 		Set _Queue_LSS_Clear_TMP_HeadNodePtr=

  24. 	Goto :Eof

  25. 	

  26. 	:Queue_LSS_Delete QueueName

  27. 		Call :LinearList_LSS_SLL_Delete "%~1"

  28. 	Goto :Eof

  29. 	

  30. 	:Queue_LSS_IsEmpty QueueName

  31. 		Call :LinearList_LSS_SLL_IsEmpty "%~1"

  32. 	Goto :Eof

  33. 	

  34. 	:Queue_LSS_Enqueue QueueName VarToInsert

  35. 		Call :LinearList_LSS_SLL_GetNodeElem "%~1" _Queue_LSS_Enqueue_TMP_QueueRearPtr

  36. 		Call :LinearList_LSS_SLL_InsertNextNode _Queue_LSS_Enqueue_TMP_QueueRearPtr "%~2"

  37. 		Call :LinearList_LSS_SLL_EditNodeElem "%~1" ErrorLevel

  38. 	Goto :Eof

  39. 	

  40. 	:Queue_LSS_Dequeue QueueName [VarToReturn]

  41. 		Call :LinearList_LSS_SLL_DeleteNextNode "%~1" "%~2"

  42. 		If !ErrorLevel! Neq 0 Goto :Eof

  43. 		Call :Queue_LSS_IsEmpty "%~1"

  44. 		If !ErrorLevel! Equ 0 Call :Queue_LSS_Clear "%~1"

  45. 		Set /A ErrorLevel=0

  46. 	Goto :Eof

  47. 	

  48. 	:Queue_LSS_Peep QueueName VarToReturn

  49. 		Call :LinearList_LSS_SLL_GetNextNodePtr "%~1"

  50. 		Call :LinearList_LSS_SLL_GetNodeElem ErrorLevel "%~2"

  51. 	Goto :Eof

  52. ::Queue_LSS End

  53. 

  54. ::LinearList_LSS_SLL Begin

  55. 	:LinearList_LSS_SLL_GetRandom

  56. 		Set /A ErrorLevel=%random%%%10000+%random%*10000

  57. 		If !ErrorLevel! Equ 0 Goto GetRandom

  58. 		If Defined Memory[!ErrorLevel!].Data Goto GetRandom

  59. 	Goto :Eof

  60. 

  61. 	:LinearList_LSS_SLL_Init ListName

  62. 		Call :LinearList_LSS_SLL_GetRandom

  63. 		Set /A %~1=ErrorLevel

  64. 		Set Memory[!ErrorLevel!].Data=ListHead

  65. 		Set /A Memory[!ErrorLevel!].Next=0

  66. 		Set /A ErrorLevel=0

  67. 	Goto :Eof

  68. 

  69. 	:LinearList_LSS_SLL_Clear ListName

  70. 		Call :LinearList_LSS_SLL_DeleteNextNode "%~1"

  71. 		If !ErrorLevel! Equ 0 Goto :LinearList_LSS_SLL_Clear

  72. 		Set /A ErrorLevel=0

  73. 	Goto :Eof

  74. 

  75. 	:LinearList_LSS_SLL_Delete ListName

  76. 		Call :LinearList_LSS_SLL_Clear "%~1"

  77. 		Set Memory[!%~1!].Data=

  78. 		Set Memory[!%~1!].Next=

  79. 		Set /A ErrorLevel=0

  80. 	Goto :Eof

  81. 

  82. 	:LinearList_LSS_SLL_GetLength ListName

  83. 		Set /A _LinearList_LSS_SLL_GetLength_TMP_ListLength_=0

  84. 		Set /A _LinearList_LSS_SLL_GetLength_TMP_Next_Node_Ptr_=%~1

  85. 		:LinearList_LSS_SLL_GetLength_Loop

  86. 			Call :LinearList_LSS_SLL_GetNextNodePtr _LinearList_LSS_SLL_GetLength_TMP_Next_Node_Ptr_

  87. 			Set /A _LinearList_LSS_SLL_GetLength_TMP_Next_Node_Ptr_=ErrorLevel

  88. 			If !_LinearList_LSS_SLL_GetLength_TMP_Next_Node_Ptr_! Neq 0 (

  89. 				Set /A _LinearList_LSS_SLL_GetLength_TMP_ListLength_+=1

  90. 				Goto LinearList_LSS_SLL_GetLength_Loop

  91. 			)

  92. 		Set /A ErrorLevel=_LinearList_LSS_SLL_GetLength_TMP_ListLength_

  93. 		Set _LinearList_LSS_SLL_GetLength_TMP_ListLength_=

  94. 		Set _LinearList_LSS_SLL_GetLength_TMP_Next_Node_Ptr_=

  95. 	Goto :Eof

  96. 

  97. 	:LinearList_LSS_SLL_IsEmpty ListName

  98. 	:LinearList_LSS_SLL_GetNextNodePtr NodePtr

  99. 		Set /A _LinearList_LSS_SLL_GetNextNodePtr_TMP_NodePtr_=%~1

  100. 		Set /A ErrorLevel=Memory[!_LinearList_LSS_SLL_GetNextNodePtr_TMP_NodePtr_!].Next

  101. 		Set _LinearList_LSS_SLL_GetNextNodePtr_TMP_NodePtr_=

  102. 	Goto :Eof

  103. 

  104. 	:LinearList_LSS_SLL_InsertNextNode NodePtr VarToInsert

  105. 		Set /A _LinearList_LSS_SLL_InsertNextNode_TMP_NodePtr_=%~1

  106. 		Set /A _LinearList_LSS_SLL_InsertNextNode_TMP_NextNodePtr_=Memory[!_LinearList_LSS_SLL_InsertNextNode_TMP_NodePtr_!].Next

  107. 		Call :LinearList_LSS_SLL_GetRandom

  108. 		Set /A Memory[!_LinearList_LSS_SLL_InsertNextNode_TMP_NodePtr_!].Next=ErrorLevel

  109. 		Set /A Memory[!ErrorLevel!].Next=_LinearList_LSS_SLL_InsertNextNode_TMP_NextNodePtr_

  110. 		Set "Memory[!ErrorLevel!].Data=!%~2!"

  111. 		Set _LinearList_LSS_SLL_InsertNextNode_TMP_NextNodePtr_=

  112. 		Set _LinearList_LSS_SLL_InsertNextNode_TMP_NodePtr_=

  113. 	Goto :Eof

  114. 

  115. 	:LinearList_LSS_SLL_DeleteNextNode NodePtr [VarToSaveNextNodeElemValue]

  116. 		Set /A _LinearList_LSS_SLL_DeleteNextNode_TMP_NodePtr_=%~1

  117. 		Set /A _LinearList_LSS_SLL_DeleteNextNode_TMP_Next_Node_Ptr_=Memory[!_LinearList_LSS_SLL_DeleteNextNode_TMP_NodePtr_!].Next

  118. 		If !_LinearList_LSS_SLL_DeleteNextNode_TMP_Next_Node_Ptr_! Equ 0 (

  119. 			Set _LinearList_LSS_SLL_DeleteNextNode_TMP_Next_Node_Ptr_=

  120. 			Set _LinearList_LSS_SLL_DeleteNextNode_TMP_NodePtr_=

  121. 			Set /A ErrorLevel=1

  122. 			Goto :Eof

  123. 		)

  124. 		Set /A Memory[!_LinearList_LSS_SLL_DeleteNextNode_TMP_NodePtr_!].Next=Memory[!_LinearList_LSS_SLL_DeleteNextNode_TMP_Next_Node_Ptr_!].Next

  125. 		If "%~2" Neq "" Call Set "%~2=%%Memory[!_LinearList_LSS_SLL_DeleteNextNode_TMP_Next_Node_Ptr_!].Data%%"

  126. 		Set Memory[!_LinearList_LSS_SLL_DeleteNextNode_TMP_Next_Node_Ptr_!].Next=

  127. 		Set Memory[!_LinearList_LSS_SLL_DeleteNextNode_TMP_Next_Node_Ptr_!].Data=

  128. 		Set _LinearList_LSS_SLL_DeleteNextNode_TMP_Next_Node_Ptr_=

  129. 		Set _LinearList_LSS_SLL_DeleteNextNode_TMP_NodePtr_=

  130. 		Set /A ErrorLevel=0

  131. 	Goto :Eof

  132. 

  133. 	:LinearList_LSS_SLL_GetNodeElem NodePtr VarToSaveElemValue

  134. 		Set /A LinearList_LSS_SLL_GetNodeElem_TMP_NodePtr_=%~1

  135. 		Call Set "%~2=%%Memory[!LinearList_LSS_SLL_GetNodeElem_TMP_NodePtr_!].Data%%"

  136. 		Set LinearList_LSS_SLL_GetNodeElem_TMP_NodePtr_=

  137. 		Set /A ErrorLevel=0

  138. 	Goto :Eof

  139. 

  140. 	:LinearList_LSS_SLL_EditNodeElem NodePtr VarToReplaceElemValue

  141. 		Set /A LinearList_LSS_SLL_EditNodeElem_TMP_NodePtr_=%~1

  142. 		Set "Memory[!LinearList_LSS_SLL_EditNodeElem_TMP_NodePtr_!].Data=!%~2!"

  143. 		Set LinearList_LSS_SLL_EditNodeElem_TMP_NodePtr_=

  144. 		Set /A ErrorLevel=0

  145. 	Goto :Eof

  146. ::LinearList_LSS_SLL End
复制代码
Stack_LSS.txt
库名：堆栈
实现：
        链式储存结构-单向链表（含头结点）。
        （Linked Storage Structure - Singly Linked List）
        头结点的Next指向栈顶结点。
结点字段：
        Data 储存结点的数据。
        Next 指向结点对应的下一个结点。
用法：Call Stack_LSS 函数名 参数
函数：
        :Init <StackName>
                初始化操作，建立一个空的堆栈。
        :Clear <?StackName?>
                清空堆栈。
        :Delete <StackName>
                删除堆栈。
        :IsEmpty <?StackName?>
                判断堆栈是否为空。
        :GetLength <?StackName?>
                ErrorLevel返回堆栈中的元素个数。
        :Push <?StackName?> <VarToPush>
                变量入栈。
        :Pop <?StackName?> <VarToReturn>
                变量出栈。
        :GetTopElem <?StackName?> <VarToReturn>
                得到栈顶元素。
        :EditTopElem <?StackName?> <VarToReplaceWith>
                修改栈顶元素。

Stack_LSS.bat
  1. ::Code by OldLiu

  2. ::老刘编写

  3. 

  4. ::Start

  5. 	Set "_TMP_Arguments_=%*"

  6. 	If "!_TMP_Arguments_:~,1!" Equ ":" (

  7. 		Set "_TMP_Arguments_=!_TMP_Arguments_:~1!"

  8. 	)

  9. 	Call :Stack_LSS_!_TMP_Arguments_!

  10. 	Set _TMP_Arguments_=

  11. Goto :Eof

  12. 

  13. ::Stack_LSS(require LinearList_LSS_SLL) Begin

  14. 	:Stack_LSS_Init StackName

  15. 		Call :LinearList_LSS_SLL_Init "%~1"

  16. 	Goto :Eof

  17. 

  18. 	:Stack_LSS_Clear StackName

  19. 		Call :LinearList_LSS_SLL_Clear "%~1"

  20. 	Goto :Eof

  21. 	

  22. 	:Stack_LSS_Delete StackName

  23. 		Call :LinearList_LSS_SLL_Delete "%~1"

  24. 	Goto :Eof

  25. 	

  26. 	:Stack_LSS_IsEmpty StackName

  27. 		Call :LinearList_LSS_SLL_IsEmpty "%~1"

  28. 	Goto :Eof

  29. 	

  30. 	:Stack_LSS_GetLength StackName

  31. 		Call :LinearList_LSS_SLL_GetLength "%~1"

  32. 	Goto :Eof

  33. 	

  34. 	:Stack_LSS_Push StackName VarToPush

  35. 		Call :LinearList_LSS_SLL_InsertNextNode "%~1" "%~2"

  36. 		Set /A ErrorLevel=0

  37. 	Goto :Eof

  38. 	

  39. 	:Stack_LSS_Pop StackName VarToReturn

  40. 		Call :LinearList_LSS_SLL_DeleteNextNode "%~1" "%~2"

  41. 	Goto :Eof

  42. 	

  43. 	:Stack_LSS_GetTopElem StackName VarToReturn

  44. 		Call :LinearList_LSS_SLL_GetNextNodePtr "%~1"

  45. 		If !ErrorLevel! Equ 0 (

  46. 			Set /A ErrorLevel=1

  47. 			Goto :Eof

  48. 		)

  49. 		Call :LinearList_LSS_SLL_GetNodeElem ErrorLevel "%~2"

  50. 	Goto :Eof

  51. 

  52. 	:Stack_LSS_EditTopElem StackName VarToReplaceWith

  53. 		Call :LinearList_LSS_SLL_GetNextNodePtr "%~1"

  54. 		If !ErrorLevel! Equ 0 (

  55. 			Set /A ErrorLevel=1

  56. 			Goto :Eof

  57. 		)

  58. 		Call :LinearList_LSS_SLL_EditNodeElem ErrorLevel "%~2"

  59. 	Goto :Eof

  60. ::Stack_LSS End

  61. 

  62. ::LinearList_LSS_SLL Begin

  63. 	:LinearList_LSS_SLL_GetRandom

  64. 		Set /A ErrorLevel=%random%%%10000+%random%*10000

  65. 		If !ErrorLevel! Equ 0 Goto GetRandom

  66. 		If Defined Memory[!ErrorLevel!].Data Goto GetRandom

  67. 	Goto :Eof

  68. 

  69. 	:LinearList_LSS_SLL_Init ListName

  70. 		Call :LinearList_LSS_SLL_GetRandom

  71. 		Set /A %~1=ErrorLevel

  72. 		Set Memory[!ErrorLevel!].Data=ListHead

  73. 		Set /A Memory[!ErrorLevel!].Next=0

  74. 		Set /A ErrorLevel=0

  75. 	Goto :Eof

  76. 

  77. 	:LinearList_LSS_SLL_Clear ListName

  78. 		Call :LinearList_LSS_SLL_DeleteNextNode "%~1"

  79. 		If !ErrorLevel! Equ 0 Goto :LinearList_LSS_SLL_Clear

  80. 		Set /A ErrorLevel=0

  81. 	Goto :Eof

  82. 

  83. 	:LinearList_LSS_SLL_Delete ListName

  84. 		Call :LinearList_LSS_SLL_Clear "%~1"

  85. 		Set Memory[!%~1!].Data=

  86. 		Set Memory[!%~1!].Next=

  87. 		Set /A ErrorLevel=0

  88. 	Goto :Eof

  89. 

  90. 	:LinearList_LSS_SLL_GetLength ListName

  91. 		Set /A _LinearList_LSS_SLL_GetLength_TMP_ListLength_=0

  92. 		Set /A _LinearList_LSS_SLL_GetLength_TMP_Next_Node_Ptr_=%~1

  93. 		:LinearList_LSS_SLL_GetLength_Loop

  94. 			Call :LinearList_LSS_SLL_GetNextNodePtr _LinearList_LSS_SLL_GetLength_TMP_Next_Node_Ptr_

  95. 			Set /A _LinearList_LSS_SLL_GetLength_TMP_Next_Node_Ptr_=ErrorLevel

  96. 			If !_LinearList_LSS_SLL_GetLength_TMP_Next_Node_Ptr_! Neq 0 (

  97. 				Set /A _LinearList_LSS_SLL_GetLength_TMP_ListLength_+=1

  98. 				Goto LinearList_LSS_SLL_GetLength_Loop

  99. 			)

  100. 		Set /A ErrorLevel=_LinearList_LSS_SLL_GetLength_TMP_ListLength_

  101. 		Set _LinearList_LSS_SLL_GetLength_TMP_ListLength_=

  102. 		Set _LinearList_LSS_SLL_GetLength_TMP_Next_Node_Ptr_=

  103. 	Goto :Eof

  104. 

  105. 	:LinearList_LSS_SLL_IsEmpty ListName

  106. 	:LinearList_LSS_SLL_GetNextNodePtr NodePtr

  107. 		Set /A _LinearList_LSS_SLL_GetNextNodePtr_TMP_NodePtr_=%~1

  108. 		Set /A ErrorLevel=Memory[!_LinearList_LSS_SLL_GetNextNodePtr_TMP_NodePtr_!].Next

  109. 		Set _LinearList_LSS_SLL_GetNextNodePtr_TMP_NodePtr_=

  110. 	Goto :Eof

  111. 

  112. 	:LinearList_LSS_SLL_InsertNextNode NodePtr VarToInsert

  113. 		Set /A _LinearList_LSS_SLL_InsertNextNode_TMP_NodePtr_=%~1

  114. 		Set /A _LinearList_LSS_SLL_InsertNextNode_TMP_NextNodePtr_=Memory[!_LinearList_LSS_SLL_InsertNextNode_TMP_NodePtr_!].Next

  115. 		Call :LinearList_LSS_SLL_GetRandom

  116. 		Set /A Memory[!_LinearList_LSS_SLL_InsertNextNode_TMP_NodePtr_!].Next=ErrorLevel

  117. 		Set /A Memory[!ErrorLevel!].Next=_LinearList_LSS_SLL_InsertNextNode_TMP_NextNodePtr_

  118. 		Set "Memory[!ErrorLevel!].Data=!%~2!"

  119. 		Set _LinearList_LSS_SLL_InsertNextNode_TMP_NextNodePtr_=

  120. 		Set _LinearList_LSS_SLL_InsertNextNode_TMP_NodePtr_=

  121. 	Goto :Eof

  122. 

  123. 	:LinearList_LSS_SLL_DeleteNextNode NodePtr [VarToSaveNextNodeElemValue]

  124. 		Set /A _LinearList_LSS_SLL_DeleteNextNode_TMP_NodePtr_=%~1

  125. 		Set /A _LinearList_LSS_SLL_DeleteNextNode_TMP_Next_Node_Ptr_=Memory[!_LinearList_LSS_SLL_DeleteNextNode_TMP_NodePtr_!].Next

  126. 		If !_LinearList_LSS_SLL_DeleteNextNode_TMP_Next_Node_Ptr_! Equ 0 (

  127. 			Set _LinearList_LSS_SLL_DeleteNextNode_TMP_Next_Node_Ptr_=

  128. 			Set _LinearList_LSS_SLL_DeleteNextNode_TMP_NodePtr_=

  129. 			Set /A ErrorLevel=1

  130. 			Goto :Eof

  131. 		)

  132. 		Set /A Memory[!_LinearList_LSS_SLL_DeleteNextNode_TMP_NodePtr_!].Next=Memory[!_LinearList_LSS_SLL_DeleteNextNode_TMP_Next_Node_Ptr_!].Next

  133. 		If "%~2" Neq "" Call Set "%~2=%%Memory[!_LinearList_LSS_SLL_DeleteNextNode_TMP_Next_Node_Ptr_!].Data%%"

  134. 		Set Memory[!_LinearList_LSS_SLL_DeleteNextNode_TMP_Next_Node_Ptr_!].Next=

  135. 		Set Memory[!_LinearList_LSS_SLL_DeleteNextNode_TMP_Next_Node_Ptr_!].Data=

  136. 		Set _LinearList_LSS_SLL_DeleteNextNode_TMP_Next_Node_Ptr_=

  137. 		Set _LinearList_LSS_SLL_DeleteNextNode_TMP_NodePtr_=

  138. 		Set /A ErrorLevel=0

  139. 	Goto :Eof

  140. 

  141. 	:LinearList_LSS_SLL_GetNodeElem NodePtr VarToSaveElemValue

  142. 		Set /A LinearList_LSS_SLL_GetNodeElem_TMP_NodePtr_=%~1

  143. 		Call Set "%~2=%%Memory[!LinearList_LSS_SLL_GetNodeElem_TMP_NodePtr_!].Data%%"

  144. 		Set LinearList_LSS_SLL_GetNodeElem_TMP_NodePtr_=

  145. 		Set /A ErrorLevel=0

  146. 	Goto :Eof

  147. 

  148. 	:LinearList_LSS_SLL_EditNodeElem NodePtr VarToReplaceElemValue

  149. 		Set /A LinearList_LSS_SLL_EditNodeElem_TMP_NodePtr_=%~1

  150. 		Set "Memory[!LinearList_LSS_SLL_EditNodeElem_TMP_NodePtr_!].Data=!%~2!"

  151. 		Set LinearList_LSS_SLL_EditNodeElem_TMP_NodePtr_=

  152. 		Set /A ErrorLevel=0

  153. 	Goto :Eof

  154. ::LinearList_LSS_SLL End
复制代码
Stack_SSS.txt
库名：堆栈
实现：
        顺序储存结构
        （Sequence Storage Structure）
用法：Call Stack_SSS 函数名 参数
函数：
        :Init <StackName> <?MaxLength?>
                初始化操作，建立一个空的堆栈。
                堆栈最多可储存MaxLength个元素。
        :Clear <StackName>
                清空堆栈。
        :Delete <StackName>
                删除堆栈。
        :IsEmpty <StackName>
                判断堆栈是否为空。
        :IsFull <StackName>
                判断堆栈是否已满。
        :GetLength <StackName>
                ErrorLevel返回堆栈中的元素个数。
        :Push <StackName> <VarToPush>
                变量入栈。
        :Pop <StackName> <VarToReturn>
                变量出栈。
        :GetTopElem <StackName> <VarToReturn>
                得到栈顶元素。
        :EditTopElem <StackName> <VarToReplaceWith>
                修改栈顶元素。

Stack_SSS.bat
  1. ::Code by OldLiu

  2. ::老刘编写

  3. 

  4. ::Start

  5. 	Set "_TMP_Arguments_=%*"

  6. 	If "!_TMP_Arguments_:~,1!" Equ ":" (

  7. 		Set "_TMP_Arguments_=!_TMP_Arguments_:~1!"

  8. 	)

  9. 	Call :Stack_SSS_!_TMP_Arguments_!

  10. 	Set _TMP_Arguments_=

  11. Goto :Eof

  12. 

  13. ::Stack_SSS(require LinearList_SSS) Begin

  14. 	:Stack_SSS_Init StackName MaxLength

  15. 		Call :LinearList_SSS_Init "%~1" "%~2"

  16. 		Set /A %~1.StackTop=0

  17. 	Goto :Eof

  18. 

  19. 	:Stack_SSS_Clear StackName

  20. 		Call :LinearList_SSS_Clear "%~1"

  21. 		Set /A %~1.StackTop=0

  22. 	Goto :Eof

  23. 	

  24. 	:Stack_SSS_Delete StackName

  25. 		Call :LinearList_SSS_Delete "%~1"

  26. 		Set %~1.StackTop=

  27. 	Goto :Eof

  28. 	

  29. 	:Stack_SSS_GetLength StackName

  30. 	:Stack_SSS_IsEmpty StackName

  31. 		Set /A ErrorLevel=%~1.StackTop

  32. 	Goto :Eof

  33. 	

  34. 	:Stack_SSS_IsFull StackName

  35. 		Set /A ErrorLevel=%~1.MaxLength-%~1.StackTop

  36. 	Goto :Eof

  37. 	

  38. 	:Stack_SSS_Push StackName VarToPush

  39. 		Call :Stack_SSS_IsFull "%~1"

  40. 		If "!ErrorLevel!" Equ "0" (

  41. 			Set /A ErrorLevel=1

  42. 			Goto :Eof

  43. 		)

  44. 		Set /A %~1.StackTop+=1

  45. 		Call :Stack_SSS_EditTopElem "%~1" "%~2"

  46. 		Set /A ErrorLevel=0

  47. 	Goto :Eof

  48. 	

  49. 	:Stack_SSS_Pop StackName VarToReturn

  50. 		Call :Stack_SSS_IsEmpty "%~1"

  51. 		If "!ErrorLevel!" Equ "0" (

  52. 			Set /A ErrorLevel=1

  53. 			Goto :Eof

  54. 		)

  55. 		Call :Stack_SSS_GetTopElem "%~1" "%~2"

  56. 		Set /A %~1.StackTop-=1

  57. 		Set /A ErrorLevel=0

  58. 	Goto :Eof

  59. 	

  60. 	:Stack_SSS_GetTopElem StackName VarToReturn

  61. 		Call :LinearList_SSS_GetElem "%~1" "%~1.StackTop" "%~2"

  62. 	Goto :Eof

  63. 

  64. 	:Stack_SSS_EditTopElem StackName VarToReplaceWith

  65. 		Call :LinearList_SSS_EditElem "%~1" "%~1.StackTop" "%~2"

  66. 	Goto :Eof

  67. ::Stack_SSS End

  68. 

  69. ::LinearList_SSS Begin

  70. 	:LinearList_SSS_Init ListName MaxLength

  71. 		Set /A "%~1.MaxLength=%~2"

  72. 		Set /A ErrorLevel=0

  73. 	Goto :Eof

  74. 

  75. 	:LinearList_SSS_Clear ListName

  76. 		For /L %%a In (1 1 !%~1.MaxLength!) Do (

  77. 			Set "%~1.Element[%%a]="

  78. 		)

  79. 		Set /A ErrorLevel=0

  80. 	Goto :Eof

  81. 

  82. 	:LinearList_SSS_Delete ListName

  83. 		Call :LinearList_SSS_Clear "%~1"

  84. 		Set "%~1.MaxLength="

  85. 		Set /A ErrorLevel=0

  86. 	Goto :Eof

  87. 

  88. 	:LinearList_SSS_GetElem ListName Index VarToReturn

  89. 		Set /A _LinearList_SSS_GetElem_TMP_Index=%~2

  90. 		If !_LinearList_SSS_GetElem_TMP_Index! Lss 1 (Set /A ErrorLevel=1 & Goto :Eof)

  91. 		If !_LinearList_SSS_GetElem_TMP_Index! Gtr !%~1.MaxLength! (Set /A ErrorLevel=1 & Goto :Eof)

  92. 		Call Set "%~3=%%%~1.Element[!_LinearList_SSS_GetElem_TMP_Index!]%%"

  93. 		Set _LinearList_SSS_GetElem_TMP_Index=

  94. 		Set /A ErrorLevel=0

  95. 	Goto :Eof

  96. 

  97. 	:LinearList_SSS_EditElem ListName Index VarToReplaceWith

  98. 		Set /A _LinearList_SSS_EditElem_TMP_Index=%~2

  99. 		If !_LinearList_SSS_EditElem_TMP_Index! Lss 1 (Set /A ErrorLevel=1 & Goto :Eof)

  100. 		If !_LinearList_SSS_EditElem_TMP_Index! Gtr !%~1.MaxLength! (Set /A ErrorLevel=1 & Goto :Eof)

  101. 		Set "%~1.Element[!_LinearList_SSS_EditElem_TMP_Index!]=!%~3!"

  102. 		Set _LinearList_SSS_EditElem_TMP_Index=

  103. 		Set /A ErrorLevel=0

  104. 	Goto :Eof

  105. ::LinearList_SSS End
复制代码
算法实例
堆栈应用：批处理版逆波兰四则计算器
单向循环链表应用：约瑟夫问题
快慢指针：腾讯面试题-寻找单链表的中间节点
队列应用：一元多项式相加算法
作者: yhcfsr    时间: 2019-3-28 23:57

明天来我司【震惊部】上班吧
作者: 老刘1号    时间: 2019-4-9 01:26

本帖最后由 老刘1号 于 2020-4-10 21:46 编辑

腾讯面试题：快速找到未知长度单链表的中间节点。
中间节点（n∈N*）
        表长为2n        中间节点为n
        表长为2n-1        中间结点为n
End
快慢指针解法.BAT
  1. @Echo off

  2. rem 参数：头指针数值

  3. Set /A _TMP_Ptr_Slow_=_TMP_Ptr_Fast_=%~1,_TMP_Index_=0

  4. Goto J

  5. :Loop

  6. 	Set /A _TMP_Index_+=1

  7. 	Set /A _TMP_Ptr_Slow_=Memory[!_TMP_Ptr_Slow_!].Next

  8. 	Set /A _TMP_Ptr_Fast_=Memory[!_TMP_Ptr_Fast_!].Next

  9. 	Set /A _TMP_Ptr_Fast_=Memory[!_TMP_Ptr_Fast_!].Next

  10. 	:J

  11. 	For %%a in (Memory[!_TMP_Ptr_Fast_!].Next) Do (

  12. 		If !%%a! Neq 0 (

  13. 			Goto Loop

  14. 		) Else (

  15. 			Goto Print

  16. 		)

  17. 	)

  18. 	For %%a in (Memory[!_TMP_Ptr_Fast_!].Next) Do (

  19. 		For %%b in (Memory[!%%a!].Next) Do (

  20. 			If !%%b! Neq 0 (

  21. 				Goto Loop

  22. 			) Else (

  23. 				Set /A _TMP_Index_+=1

  24. 			)

  25. 		)

  26. 	)

  27. :Print

  28. Echo !_TMP_Index_!
复制代码




欢迎光临 批处理之家 (http://www.bathome.net/) Powered by Discuz! 7.2