无限多态双向循环链表

weixing1531 · 发表于 2019-9-16 13:10:31

本帖最后由 weixing1531 于 2019-9-23 10:52 编辑

本模块在GitHub上大牛Robert Rüger项目Fortran Template Library (FTL)的基础上进行了如下修改：
1.用无限多态class(*)代替预处理宏进行通用类型操作
2.ftlList类增加了Set, Get, Change, WriteList, EraseVal, InsertVal, FindIt, GetFront, GetBack等实例方法，并将实例变量front, back设为私有
3.ftlListIterator类增加了GetValue实例方法，并将实例变量value设为私有
4.增加了模块方法WriteNode

程序使用范例

[Fortran] 纯文本查看 复制代码

01program main
02        use ftlListMod
03        implicit none
04 
05        type(ftlList) :: o !无限多态双向循环链表
06        type(ftlListIterator) :: it !链表迭代器
07        integer :: i
08        real(kind=4) :: r
09        character(len=:),allocatable :: c !递延长度字符串
10 
11        call o%New([5,13,41,97,17,10,88]) !构造方法
12 
13        write(*,*)o%Size() !元素个数
14        call o%WriteList() !打印链表
15        call o%PushBack("123") !尾部压入元素
16        call o%WriteList() !打印链表
17 
18        select type(p=>o%GetBack()) !o%GetBack()为链表尾节点元素
19                type is(character(*))
20                        c=p !无限多态类型赋值字符串类型
21        end select
22 
23        write(*,*)c
24 
25        call WriteNode(o%PopBack(),"Node") !尾部压出元素并打印该元素
26        call o%WriteList() !打印链表
27        call o%PushFront(0.123) !头部压入元素
28        call o%WriteList() !打印链表
29 
30        select type(p=>o%GetFront()) !o%GetFront()为链表头节点元素
31                type is(real(kind=4))
32                        r=p !无限多态类型赋值单精度整数类型
33        end select
34 
35        write(*,*)r
36 
37        call WriteNode(o%PopFront(),"Node") !头部压出元素并打印该元素
38        call o%WriteList() !打印链表
39        call o%Change(2,55) !第2个元素值更改为55
40        call o%WriteList() !打印链表
41        call o%Erase(7) !删除第7个元素
42        call o%WriteList() !打印链表
43        call o%Insert(2,33) !第2个元素前插入新元素33
44        call o%WriteList() !打印链表
45        call WriteNode(o%Get(6),"Node") !获取第6个元素值并打印该元素
46 
47        select type(p=>o%Get(6))
48                type is(integer)
49                        i=p !无限多态类型赋值整数类型
50        end select
51 
52        write(*,*)i
53 
54        write(*,*)"以下正向遍历链表"
55        it=o%Begin() !链表头节点
56 
57        do while(it/=o%End())
58                call WriteNode(it%GetValue(),"Node") !打印节点元素
59                call it%Inc() !下一节点
60        end do
61 
62        write(*,*)"以下反向遍历链表"
63        it=o%End() !链表哨兵节点
64        call it%Dec() !上一节点即尾节点
65 
66        do while(it/=o%End())
67                call WriteNode(it%GetValue(),"Node") !打印节点元素
68                call it%Dec() !上一节点
69        end do
70 
71        read(*,*)
72end program

双向循环链表源代码

ftlListModTest.F90 (27.28 KB, 下载次数: 4)

当然也有无限多态单向循环链表，少了前指针，无法使用PopBack方法。

单向循环链表源代码

ftlSingleListModTest.F90 (27.52 KB, 下载次数: 6)

总结：目前Fortran无限多态class(*)也能实现C++一部分模板功能，但有很多限制。

胡文刚 · 发表于 2019-9-21 09:56:05

WriteList
WriteNode
这些过程其实也可以绑定

Generic :: Write(Formatted) => WriteList

这样做的好处就是，用户可以
type( ftlList) :: List_Var
write( UNIT , * ) "List is:" , List_var

weixing1531 · 发表于 2019-9-21 11:38:21

胡文刚发表于 2019-9-21 09:56
WriteList
WriteNode
这些过程其实也可以绑定

这些冷门特性用得少

[通用算法] 无限多态双向循环链表

规矩勋章

元老勋章

新人勋章