小鱼老师的智能钻孔──我另有新启发

羅蓋仙

以下是我的理论请参考，我并没有写得很周全

) i1 p& d4 w: c! t0 J9 N#1=1234.
#11=ABS[FIX[#1]]
/ e! Z8 }( u4 v( h1 z#500=0.
WHILE[#11GT0.]DO1
2 p1 E! E! M% a#22=[#11/10.-FIX[#11/10.]]*10.
IF[#22 EQ 1.]TH #500=#500 OR 1.
IF[#22 EQ 1.]GO3
IF[#22 EQ 2.]TH #500=#500 OR 2.
& m) ~9 N! K+ A1 ~7 f: BIF[#22 EQ 2.]GO3
+ ~- q* Z5 K1 X0 `IF[#22 EQ 3.]TH #500=#500 OR 4.
/ X. e' ^7 \+ XIF[#22 EQ 3.]GO3
IF[#22 EQ 4.]TH #500=#500 OR 8.
1 c5 G2 w( O2 f$ l, \9 v, b9 gIF[#22 EQ 4.]GO3
( e* V+ a3 f$ \7 p9 }* |+ S. l#3000=1.(#1-MODE-ERROR)
N3 #11=FIX[#11/10.]
END1
& ~4 t. v, v. @% y8 i) e# SM99
9 _$ {* I3 ?7 N; {6 w9 M7 O+ L% A
& y1 m0 y1 x# L0 \) K+ L; y以下为画蛇添足，多此一举。花拳欺敌法。目的搞死敌人
（逻辑运算有改）（WH里面的比较式有改）（除的变乘的;乘的变除的）
3 @7 e5 H! B' g1 d
% K( E: _" S! e  m" h0 R#1=1234.
' Z9 t- n* u* j$ r8 M& e7 I: ^7 m#11=FIX[ABS[#1]]
#500=15.(全部装满，让下面逐一减去)
' C2 O) d- W  S( b( w2 E3 ~3 c- fWHILE[#11GE1.]DO1
. B! {  C2 D! m6 E5 k' ]+ B" p#22=[#11*0.1-FIX[#11*0.1]]*/0.1
& u- X& r) W- O% w9 _6 x  hIF[#22 OR 1. EQ 1.]TH #500=#500 XOR 1.
IF[#22 EQ 1.]GO3
IF[#22 OR 2. EQ 1.]TH #500=#500 XOR 2.
IF[#22 EQ 2.]GO3
IF[#22 OR 3. EQ 1.]TH #500=#500 XOR 4.
+ f: {1 {$ s1 dIF[#22 EQ 3.]GO3
, U! P8 s0 N  d* d# ^: p. `+ V- X9 fIF[#22 OR 4. EQ 1.]TH #500=#500 XOR 8.
IF[#22 EQ 4.]GO3
: e1 h7 |4 Q) O, G8 A5 o$ s$ a#3000=1.(#1-MODE-ERROR)
0 _9 a. E) R/ U0 JN3 #11=FIX[#11*0.1]
END1
M99
! z3 x3 A2 k1 @! n

  q2 M* e6 \/ D- w! d
$ t5 i# g  T8 V* [#1=1234.
#500=15.
1 b: g- |5 b/ a: q0 X9 R$ j  P#11=ABS[FIX[#1]]
WHILE[#11GT0.]DO1
8 [& W7 i" m" t+ M#22=[#11/10.-FIX[#11/10.]]*10.
8 Z5 U. y( E) \' Z. Q7 jIF[#22 - 1. EQ 0.]TH #500=#500 - 1.
7 o: M( {" ], {3 I1 z" E: _- CIF[#22 EQ 1.]GO3
IF[#22 - 2. EQ 0.]TH #500=#500 - 2.
IF[#22 EQ 2.]GO3
# ^) N! _% i  b  E6 XIF[#22 - 3. EQ 0.]TH #500=#500 - 4.
IF[#22 EQ 3.]GO3
IF[#22 - 4. EQ 0.]TH #500=#500 - 8.
# K3 t: D- p7 S& x% w3 L7 tIF[#22 EQ 4.]GO3
4 b8 r2 T+ c9 j2 \+ K0 G1 h' E& a$ h#3000=1.(#1-MODE-ERROR)
N3 #11=FIX[#11/10.]
0 m; H+ [9 l( F* J& I( |& y' P8 wEND1
- J1 x+ P$ \  C8 Y/ LM99
# S* @& p  |1 B+ x
9 s/ h+ C- \' L1 {5 s  ]

+ L0 a& V& Z- L& t7 J# s#1=1234.
#11=ABS[FIX[#1]]
8 f. M3 F) |/ r7 B  m. ~3 e#500=0.
WHILE[#11GT0.]DO1
#22=[#11/10.-FIX[#11/10.]]*10.
" P) V) E+ c8 Z* d4 O2 |IF[#22 XOR 1. EQ 0.]TH #500=#500 OR 1.
IF[#22 EQ 1.]GO3
- P! X5 ^6 f  ?" w4 YIF[#22 XOR 2. EQ 0.]TH #500=#500 OR 2.
6 a$ C9 P  H' {" AIF[#22 EQ 2.]GO3
IF[#22 XOR 3. EQ 0.]TH #500=#500 OR 4.
, j$ j; T& L. x3 aIF[#22 EQ 3.]GO3
1 X( n, W, _) H: n  P: F( ^IF[#22 XOR 4. EQ 0.]TH #500=#500 OR 8.
IF[#22 EQ 4.]GO3
3 R5 M1 N; Q* S#3000=1.(#1-MODE-ERROR)
/ w$ ?1 H8 d" d$ _& i1 @/ DN3 #11=FIX[#11/10.]
. i- [' Y& T2 B" A: {3 {/ \7 [END1
) |5 |& Z' ^" W4 _2 b( MM99

羅蓋仙

最底下紫字也可以改成
#500=#500 + 1.
  W/ x5 }( R; X: t#500=#500 + 2.
#500=#500 + 4.
5 c2 M2 C! v' P, E% _2 \#500=#500 + 8.

感想是使用OR最安全
1 F; N! W& ]% _- w用其他可能会被累加或被累减

渊源灼

厉害

rfonaqx

我顶啊。接着顶
3 ?9 b* h) O% S9 Q6 K% x( V


- q; ~0 W; N( z/ j- s- Q+ ?



/ i2 E# }! V, |  Q
! ^0 r0 V2 }& d/ S- g$ Q6 K

. e. s$ J8 g* A3 L2 C' w
tudouyoukuso.org/   kutensale.net/sitemap.html   ylmba.com/sitemap.html

liziang0509

谢谢分享。。。

蕾蕾

回复 5# liziang0509


) p! U- k, I" m  z    靠。。。这么nx

52106813

拿来研究一下，怎么不用WHILE-DO，IF-GO跳转不如WHILE-DO顺畅

jy0668

感谢分享，帮顶一下

zxwen

谢谢分享。。。。。。。。。。。。

1365944322

支持宏程序，哈哈