
tcl编程练习1
发布日期:2022-01-31 02:52:45
浏览次数:3
分类:技术文章
本文共 1540 字,大约阅读时间需要 5 分钟。
1.用函数来实现对任意长度任意数列进行排序的功能,要求通过参数来选择从大到小排序,还是从小到大排序; 并将结果输出到一个文件里。例如,当输入2,9,4,3时,从大到小排序输出结果为:9,4,3,2。
set string { 2,9,4,3}set newlist_file [open "newlist.txt" w] #w,以只写方式写入文件set list [split $string ,]puts $listputs "please select mode:" #选择升序还是降序排列set mode [gets stdin] #从键盘读取输入if { [string match "up" $mode]} { set newlist [join [lsort -integer -increasing $list] ","]puts $newlist puts $newlist_file $newlist } elseif { [string match "down" $mode]} { set newlist [join [lsort -integer -decreasing $list] ","]puts $newlist puts $newlist_file $newlist }close $newlist_file
程序运行结果
[li@localhost test]$ tclsh test.tcl2 9 4 3please select mode:up2,3,4,9[li@localhost test]$ tclsh test.tcl2 9 4 3please select mode:down9,4,3,2[li@localhost test]$
2.在第一道题的基础上,去掉数列中重复的数字,即每个数字只能出现一次。如9,4,3,2,2的输出结果应该是9,4,3,2
set string { 2,2,9,4,3}set newlist_file [open "newlist.txt" w]set list [split $string ,]puts $listputs "please select mode:"set mode [gets stdin]if { [string match "up" $mode]} { set newlist [join [lsort -unique -integer -increasing $list] ","] #加上unique选项puts $newlist puts $newlist_file $newlist } elseif { [string match "down" $mode]} { set newlist [join [lsort -unique -integer -decreasing $list] ","]puts $newlist puts $newlist_file $newlist }close $newlist_file
程序运行结果
[li@localhost test]$ tclsh test.tcl2 2 9 4 3please select mode:up2,3,4,9[li@localhost test]$ tclsh test.tcl2 2 9 4 3please select mode:down9,4,3,2[li@localhost test]$
更多技术干货,欢迎关注微信公众号:IC小白
转载地址:https://blog.csdn.net/qq_36480087/article/details/108502354 如侵犯您的版权,请留言回复原文章的地址,我们会给您删除此文章,给您带来不便请您谅解!
发表评论
最新留言
路过按个爪印,很不错,赞一个!
[***.219.124.196]2023年09月11日 07时54分27秒
关于作者

喝酒易醉,品茶养心,人生如梦,品茶悟道,何以解忧?唯有杜康!
-- 愿君每日到此一游!
推荐文章
c++ 信息雨
2019-03-07
【设计模式之禅】六大原则的解读
2019-03-07
【设计模式之禅】单例模式
2019-03-07
【设计模式之禅】工厂方法模式
2019-03-07
【Dubbo】Spring Boot整合Dubbo
2019-03-07
【Dubbo】在开发联调的时候需要做什么?
2019-03-07
【设计模式之禅】模板方法模式
2019-03-07
【设计模式之禅】代理模式
2019-03-07
【Java】JSON字符串与Map互转
2019-03-07
【前端】Centos_7安装VS code
2019-03-07
【前端】windows10环境下iceworks(飞冰)安装
2019-03-07
空间数据库管理
2019-03-07
【前端】HTTP状态码,200,304,404等
2019-03-07
【Java】函数返回值泛型<T> T 与 T的用法
2019-03-07
【Java】@Data注解 与 lombok插件
2019-03-07
在cmd控制台调用Jar包
2019-03-07
IDEA环境下java项目打包
2019-03-07
MPI的运行
2019-03-07
C++多个文件共用一个全局变量
2019-03-07
Cuda的数学函数最大值、最小值、次方、平方根
2019-03-07