ns变量提取第二版：Search'enALL 2

Cyvre · 发表于 2010-10-24 20:13:24

在缩减体积的同时增强了功能支持各种苛刻的代数式（比如带sin(等函数的，变量是weei_12_fs970_dsfhskjhlsk之类的）
程序就不发了，直接上源码，大家随便使用

Define checkchar(str)=
Prgm
If getType(str)≠"STR"
string(str）→str
characters:={_,a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z,0,1,2,3,4,5,6,7,8,9}
times:=1
For times,1,37,1
inString(str,string(character[times]））→checkresult
If checkresult≠0
Exit
EndFor
If checkresult≠0 Then
If 1≤times≤27 Then
checkresult:=1
ElseIf 28≤times≤37 Then
checkresult:=2
EndIf
EndIf
Delvar characters,times
EndPrgm
-----------------------------------------------------------------------------------------------
-----------------------------------------------------------------------------------------------
Define getvar(str)=
Prgm
If getType(str)≠"STR"
string(str)→str
dim(str)→size
times0:=0
checkresult:=0
Lbl start
While checkresult≠1 and times0-1≤size
times0:=times0+1
checkchar(right(left(str,times0),1))
EndWhile
times1:=times0
While checkresult≠0 and times0-1≤size
checkchar(right(left(str,times0),1))
times0:=times0+1
EndWhile
If right(left(str,times0-1),1)="(" Then
times0-1→times0
Goto start
EndIf
right(left(str,times0-2),times0-times1-1）→variable
Disp variable
Delvar size,times0,times1,checkresult,variable
EndPrgm

复制代码

Cyvre · 发表于 2010-10-24 20:14:40

最近还打算编一个三国杀 for ns

Cichol · 发表于 2010-11-6 23:04:04

三国杀我做过
不过中途没耐性失败了
有些地方很烦。。
期待你能做出

imath · 发表于 2010-11-7 11:51:11

你也玩三国杀？
我是彻底的新手

diameter · 发表于 2010-11-7 12:22:55

写一个仙剑 for ns吧
我在写仙剑 for 9750

imath · 发表于 2010-11-7 17:30:37

for ns？
实时游戏几乎不可能

Cyvre · 发表于 2010-11-7 18:17:11

写一个仙剑 for ns吧
我在写仙剑 for 9750
diameter 发表于 2010-11-7 12:22

No way……

diameter · 发表于 2010-11-7 21:06:06

…………我就知道……

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

[TI-Nspire系列] ns变量提取第二版：Search'enALL 2