批处理编程挑战题“物以类聚”-将字母按大小写归并

codegay · 发表于 2017-4-11 18:46:14

回复 15# taofan712

我不懂批处理。

taofan712 · 发表于 2017-4-11 19:04:23

回复 16# codegay

谢谢，因为经常见到你的id...现在才注意到你主要在python区发帖 ^_^

terse · 发表于 2017-4-11 20:19:32

回复 17# taofan712
去掉一个FOR

for /l %%a in (0 1 14) do (
if not "!str:~%%a,1!"=="!str_bp:~%%a,1!" (set lc=!lc!!str:~%%a,1!) else ( set uc=!uc!!str_bp:~%%a,1!)
)

复制代码

523066680 · 发表于 2017-4-11 20:38:47

本帖最后由 523066680 于 2017-4-11 22:28 编辑

回复 14# codegay

一行正则可以啊，加循环算不算... 只要有小写跟在大写后面，就反转，直到没有这种情况为止

$s = "cDbEFa";
while ( $s =~s/([A-Z])([a-z])/$2$1/) {}
print $s

复制代码

happy886rr · 发表于 2017-4-14 23:27:53

回复 19# 523066680
顾森，北京大学中国语言文学系应用语言专业07级本科生，Matrix67博客作者。Matrix67名字来源：“有一次申请邮箱，matrix这个id被人占用了，于是我就开始往后面加数字。”试过123，试过456，直到67才最终定下来。这就是Matrix67的来历，它也成为了顾森在网络这个虚拟世界上的大名。 2006年以文科生身份参加全国信息学奥林匹克竞赛获夏令营银牌，并保送至中文系应用语言专业。现任启明星学校初中奥数教师、果壳网“死理性派”栏目编辑。大三由于忙于一些事物，休学一年。个人主页：http://www.matrix67.com/blog/ 果壳网主页http://www.guokr.com/i/0376718656/

codegay · 发表于 2017-4-14 23:35:40

回复 20# happy886rr

他从果壳离职都好几年了。

老刘 · 发表于 2017-4-14 23:38:48

回复 20# happy886rr

我开始怀疑我为何要注册老刘1号
这个号还不是一样没被占用么……
不明白一年前的心理……
不过可能和那位有些雷同吧，
轻易不换昵称的我《<v<《

happy886rr · 发表于 2017-4-14 23:39:50

本帖最后由 happy886rr 于 2017-4-15 00:14 编辑

回复 19# 523066680
酷语言分形
1.地毯（图片均为外链）

2.树

3.圆

.
.
请使用CLGO解释器3.0版运行。下载地址:http://www.bathome.net/thread-43178-1-1.html

::*****************************************************************************
@ECHO OFF&MODE CON COLS=100 LINES=30&CLGO "%~F0"&PAUSE>NUL&EXIT /B
::*****************************************************************************
/*
谢尔宾斯基地毯，酷码；
*/
//入口函数
TO MAIN
FOR :A 1 6
CS
WAIT 10
MAKE :PENX=-330 :PENY=220
TEXT 22 3 8 微软雅黑 Sierpinski-Level:{:A}
MAKE :PENX=-200 :PENY=-200 :PENC=6 :PENW=10 :PENS=0
XEBD 380 :A
WAIT 500
]
//谢尔宾斯基主循环
TO XEBD :L :N
REPEAT 4
FD :L
RT 90
]
XK :L
XEB :L/3 :N-1
//地毯分循环
TO XEB :L :N
IF :N=0
STOP
]
XK :L
XEB :L/3 :N-1
REPEAT 2
PU
FD :L
PD
XK :L
XEB :L/3 :N-1
]
REPEAT 2
PU
RT 90
FD :L
LT 90
PD
XK :L
XEB :L/3 :N-1
]
REPEAT 2
PU
BK :L
PD
XK :L
XEB :L/3 :N-1
]
PU
LT 90
FD :L
RT 90
PD
XK :L
XEB :L/3 :N-1
PU
LT 90
FD :L
RT 90
PD
//细节补枝
TO XK :L
PU
FD :L/3
RT 90
FD :L/3
LT 90
PD
REPEAT 4
FD :L/3
RT 90
]
MAKE :PENC=RAND(15)+1
PU
BK :L/3
LT 90
FD :L/3
RT 90
PD

复制代码

::*****************************************************************************
@ECHO OFF&MODE CON COLS=100 LINES=30&CLGO "%~F0"&PAUSE>NUL&EXIT /B
::*****************************************************************************
//入口函数
TO MAIN
FOR :A 2 12
CS
WAIT 10
MAKE :PENX=-330 :PENY=220
TEXT 22 3 8 微软雅黑 Sierpinski-Level:{:A}
MAKE :PENX=0 :PENY=-200 :PENC=6 :PENW=2 :PENS=2
TREE 100 :A 20 0.75
WAIT 50
]
TO TREE :L :N :ANGEL :RATE
IF :N=0
STOP
]
FD :L
RT :ANGEL
TREE :L*:RATE :N-1 :ANGEL :RATE
LT :ANGEL*2
TREE :L*:RATE :N-1 :ANGEL :RATE
RT :ANGEL
BK :L
MAKE :PENC=RAND(15)+1

复制代码

happy886rr · 发表于 2017-4-14 23:47:25

回复 21# codegay
哦，我都不知道，不过他文章写得好。

happy886rr · 发表于 2017-4-14 23:48:25

本帖最后由 happy886rr 于 2017-4-14 23:49 编辑

回复 22# 老刘
你这账号太嫩了，还是一号好点。对了，酷语言也能彩色地毯。

老刘 · 发表于 2017-4-14 23:50:10

回复 25# happy886rr

嘿嘿，这个号就当小号了

老刘1号 · 发表于 2017-4-14 23:52:15

回复 25# happy886rr

酷语言在绘图上果然不是一般的给力啊
已测试，很震撼

happy886rr · 发表于 2017-4-15 00:12:42

回复 27# 老刘1号
只要代码巧妙，理论上没有画不出的图来，你就当他是控制台上的ppt吧。ICMD, Capis也能干这些，不过没酷语言绘图速度快。

CrLf · 发表于 2017-4-15 02:12:15

echo bBAathToHOMmEe | sed -r ":a;s/([a-z])([A-Z])/\2\1/;ta"

复制代码

CrLf · 发表于 2017-4-15 02:33:54

另类解：

@echo off & setlocal enabledelayedexpansion
%1 echo bBAathToHOMmEe | %1 cmd /c %0 : & exit /b
set "list=#ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"
for /l %%a in () do (
choice /c %list:~1% /cs >nul 2>nul
for %%e in (!errorlevel!) do (
if %%e leq 26 (
set uppercase=!uppercase!!list:~%%e,1!
) else if %%e leq 52 (
set lowercase=!lowercase!!list:~%%e,1!
) else (
echo !lowercase!!uppercase!
pause
exit /b
)
)
)

复制代码

		自动登录	找回密码
密码			注册

[新手上路]批处理新手入门导读	[视频教程]批处理基础视频教程	[视频教程]VBS基础视频教程	[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动	[批处理精品]CMD命令50条不能说的秘密	[在线下载]第三方命令行工具	[在线帮助]VBScript / JScript 在线参考

批处理编程挑战题“物以类聚”-将字母按大小写归并

评分

评分

评分

浏览过的版块