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

羅蓋仙

以下是我的理论请参考，我并没有写得很周全
' }1 B; N8 k4 w* D
#1=1234.
. C% N8 H  K% V& i& g#11=ABS[FIX[#1]]
#500=0.
WHILE[#11GT0.]DO1
/ C1 O0 P% u% d#22=[#11/10.-FIX[#11/10.]]*10.
IF[#22 EQ 1.]TH #500=#500 OR 1.
IF[#22 EQ 1.]GO3
$ ~4 p% \( n; u6 F. k( e5 u; CIF[#22 EQ 2.]TH #500=#500 OR 2.
IF[#22 EQ 2.]GO3
; Q( k! t1 S: y) G3 U/ u/ D( N# G$ PIF[#22 EQ 3.]TH #500=#500 OR 4.
3 j  h- o: ]6 f( a4 }IF[#22 EQ 3.]GO3
IF[#22 EQ 4.]TH #500=#500 OR 8.
: \* M$ _4 C, bIF[#22 EQ 4.]GO3
; g7 p. J( Q* P6 [/ F4 U2 j6 E#3000=1.(#1-MODE-ERROR)
8 x$ H2 O( g) [+ S9 l3 A2 gN3 #11=FIX[#11/10.]
END1
* }1 P: U7 {$ S/ c9 J+ g6 D; g+ [; ZM99
- Y3 b7 d0 V! K/ p% ]
以下为画蛇添足，多此一举。花拳欺敌法。目的搞死敌人
（逻辑运算有改）（WH里面的比较式有改）（除的变乘的;乘的变除的）

5 q( r1 \! N% I2 a* `0 P#1=1234.
, F- M4 H7 q( k3 x+ R#11=FIX[ABS[#1]]
" u" [* ~3 X6 I7 @5 n5 _0 ?#500=15.(全部装满，让下面逐一减去)
! \4 I  O7 b7 o: s, {/ q) x$ TWHILE[#11GE1.]DO1
#22=[#11*0.1-FIX[#11*0.1]]*/0.1
IF[#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.
3 B& E- N5 u& n$ bIF[#22 EQ 2.]GO3
IF[#22 OR 3. EQ 1.]TH #500=#500 XOR 4.
5 s9 ]& V+ P; K# ~& v, d" \8 SIF[#22 EQ 3.]GO3
IF[#22 OR 4. EQ 1.]TH #500=#500 XOR 8.
IF[#22 EQ 4.]GO3
#3000=1.(#1-MODE-ERROR)
N3 #11=FIX[#11*0.1]
END1
M99


3 |5 d0 w! Q" C4 i8 W) S% }
& W/ ^& @1 G' i. Z* Q#1=1234.
6 i% {& J6 A7 u/ T#500=15.
( N& Z& {! S2 }: O% N2 c0 X* h#11=ABS[FIX[#1]]
0 j1 v1 R/ f- p: x0 i) z% ^WHILE[#11GT0.]DO1
#22=[#11/10.-FIX[#11/10.]]*10.
IF[#22 - 1. EQ 0.]TH #500=#500 - 1.
$ a% c, w. _" `7 FIF[#22 EQ 1.]GO3
2 s* E4 d' v( f& V* x5 J" B1 LIF[#22 - 2. EQ 0.]TH #500=#500 - 2.
, ]0 P4 T6 P/ h+ `, \8 h, dIF[#22 EQ 2.]GO3
IF[#22 - 3. EQ 0.]TH #500=#500 - 4.
4 K/ v* R' |: s5 w1 t5 UIF[#22 EQ 3.]GO3
IF[#22 - 4. EQ 0.]TH #500=#500 - 8.
. W, }) f7 b! B$ w! V4 d( W4 AIF[#22 EQ 4.]GO3
9 Z$ T7 o' p; _7 m8 o#3000=1.(#1-MODE-ERROR)
N3 #11=FIX[#11/10.]
END1
M99
3 Z$ T. S1 M% X/ \' Z/ ?' g
& e3 b  Z2 q! o0 |% H0 d
! ^' r5 N, m/ R8 j) g& G# E
#1=1234.
#11=ABS[FIX[#1]]
+ \5 j# j0 @5 E1 F#500=0.
/ o/ `2 F2 a3 R2 I+ z' W% }WHILE[#11GT0.]DO1
#22=[#11/10.-FIX[#11/10.]]*10.
IF[#22 XOR 1. EQ 0.]TH #500=#500 OR 1.
IF[#22 EQ 1.]GO3
0 I3 l5 i8 v2 k; T& @, {IF[#22 XOR 2. EQ 0.]TH #500=#500 OR 2.
- l" }* T: \, LIF[#22 EQ 2.]GO3
IF[#22 XOR 3. EQ 0.]TH #500=#500 OR 4.
IF[#22 EQ 3.]GO3
IF[#22 XOR 4. EQ 0.]TH #500=#500 OR 8.
) v  ~$ v+ L( E+ Q# NIF[#22 EQ 4.]GO3
#3000=1.(#1-MODE-ERROR)
N3 #11=FIX[#11/10.]
END1
M99

羅蓋仙

最底下紫字也可以改成
#500=#500 + 1.
9 ~" I; V" F8 f#500=#500 + 2.
4 D  y) E, c% i% Q  E+ [: |#500=#500 + 4.
: v' x! ^/ H) i0 j3 f#500=#500 + 8.
# v) Z5 S* B- b7 e; U3 i1 r2 J( q
感想是使用OR最安全
+ o* i# r  g* z用其他可能会被累加或被累减

渊源灼

厉害

rfonaqx

我顶啊。接着顶

4 p% ]' s$ ~. Y% M0 K, h
3 L, k0 q* a# v- A: B% G  I2 t






" F+ M( h2 ~( L: j
" C: R, M, V; x' [$ Q7 u
+ @" l) S( m+ O8 U% g% xtudouyoukuso.org/   kutensale.net/sitemap.html   ylmba.com/sitemap.html

liziang0509

谢谢分享。。。

蕾蕾

回复 5# liziang0509
% l& t. _2 q$ n' T+ n: Y. a+ {
1 k7 q% y( m* W( _& }, q
    靠。。。这么nx

52106813

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

jy0668

感谢分享，帮顶一下

zxwen

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

1365944322

支持宏程序，哈哈