设为首页收藏本站
切换到宽版

 找回密码
 注册
搜索
批处理之家»论坛 › 批处理专区: BAT CMD DOS › BAT原创&转载 › 批处理线性结构类库
[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发新帖
查看: 21956|回复: 2

[游戏娱乐] 批处理线性结构类库

[复制链接]
老刘1号
发表于 2019-3-28 21:43:09 | 显示全部楼层 |阅读模式
本帖最后由 老刘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. ::老刘编写

  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

  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

  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

  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

  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

  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

  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

  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

  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

  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

  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. ::老刘编写

  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

  13. ::LinearList_SSS Begin
  14.         :LinearList_SSS_Init ListName MaxLength
  15.                 Set /A "%~1.MaxLength=%~2"
  16.                 Set /A ErrorLevel=0
  17.         Goto :Eof

  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

  26.         :LinearList_SSS_Delete ListName
  27.                 Call :LinearList_SSS_Clear "%~1"
  28.                 Set "%~1.MaxLength="
  29.                 Set /A ErrorLevel=0
  30.         Goto :Eof

  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

  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. ::老刘编写

  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

  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

  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

  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

  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

  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

  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

  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

  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

  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

  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

  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. ::老刘编写

  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

  13. ::Stack_LSS(require LinearList_LSS_SLL) Begin
  14.         :Stack_LSS_Init StackName
  15.                 Call :LinearList_LSS_SLL_Init "%~1"
  16.         Goto :Eof

  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

  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

  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

  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

  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

  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

  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

  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

  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

  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

  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

  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. ::老刘编写

  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

  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

  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

  64.         :Stack_SSS_EditTopElem StackName VarToReplaceWith
  65.                 Call :LinearList_SSS_EditElem "%~1" "%~1.StackTop" "%~2"
  66.         Goto :Eof
  67. ::Stack_SSS End

  69. ::LinearList_SSS Begin
  70.         :LinearList_SSS_Init ListName MaxLength
  71.                 Set /A "%~1.MaxLength=%~2"
  72.                 Set /A ErrorLevel=0
  73.         Goto :Eof

  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

  82.         :LinearList_SSS_Delete ListName
  83.                 Call :LinearList_SSS_Clear "%~1"
  84.                 Set "%~1.MaxLength="
  85.                 Set /A ErrorLevel=0
  86.         Goto :Eof

  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

  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
复制代码
算法实例
堆栈应用：批处理版逆波兰四则计算器
单向循环链表应用：约瑟夫问题
快慢指针：腾讯面试题-寻找单链表的中间节点
队列应用：一元多项式相加算法

评分

参与人数 2PB +32 技术 +1 收起 理由
523066680 + 12 + 1 大工程
CrLf + 20 先码为敬

查看全部评分

回复

举报

老刘1号
 楼主| 发表于 2019-4-9 01:26:14 | 显示全部楼层
本帖最后由 老刘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_!
复制代码
回复

举报

yhcfsr
发表于 2019-3-28 23:57:19 | 显示全部楼层
明天来我司【震惊部】上班吧
回复

举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|手机版|小黑屋|批处理之家 ( 渝ICP备10000708号 )

GMT+8, 2026-3-16 20:18 , Processed in 0.027040 second(s), 10 queries , File On.

Powered by Discuz! X3.5

© 2001-2026 Discuz! Team.

快速回复 返回顶部 返回列表