codegay

回复 15# taofan712


    我不懂批处理。

taofan712

回复 16# codegay


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

terse

回复 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!)
)COPY

523066680

回复 14# codegay


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

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

happy886rr

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

codegay

回复 20# happy886rr


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

老刘

回复 20# happy886rr


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

happy886rr

回复 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
	PDCOPY

::*****************************************************************************
  @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)+1COPY

happy886rr

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

happy886rr

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

老刘

回复 25# happy886rr


    嘿嘿，这个号就当小号了

老刘1号

回复 25# happy886rr


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

happy886rr

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

CrLf

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

CrLf

另类解：

@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
    )
  )
)COPY