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

羅蓋仙

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

#1=1234.
/ c. e6 X" u  v#11=ABS[FIX[#1]]
#500=0.
WHILE[#11GT0.]DO1
5 \: ~% \5 t2 Y5 d! R1 k- _3 s#22=[#11/10.-FIX[#11/10.]]*10.
( Z7 Z0 n" e, v7 SIF[#22 EQ 1.]TH #500=#500 OR 1.
IF[#22 EQ 1.]GO3
IF[#22 EQ 2.]TH #500=#500 OR 2.
- ^9 q6 x" H6 AIF[#22 EQ 2.]GO3
9 o2 B8 W1 O* ~$ X0 \- k5 hIF[#22 EQ 3.]TH #500=#500 OR 4.
' t* j2 Z# T% fIF[#22 EQ 3.]GO3
IF[#22 EQ 4.]TH #500=#500 OR 8.
* _2 M9 Y6 F$ YIF[#22 EQ 4.]GO3
8 k. W4 L: ]* E+ Q. P4 k, u#3000=1.(#1-MODE-ERROR)
" w" k% Q! {; w! }N3 #11=FIX[#11/10.]
( q) E0 D$ K/ {# u) vEND1
$ J" S# f6 C" x' C6 P3 WM99

: K5 _9 A# o" }, f以下为画蛇添足，多此一举。花拳欺敌法。目的搞死敌人
（逻辑运算有改）（WH里面的比较式有改）（除的变乘的;乘的变除的）
4 Y5 _9 m( ]' L) R6 G( {
8 h- t. m% o8 V4 o% N! Y$ _* I#1=1234.
. R8 x) C" d8 r5 r( o' o! z3 k2 \% y#11=FIX[ABS[#1]]
; V$ ?$ q" R3 h) J#500=15.(全部装满，让下面逐一减去)
WHILE[#11GE1.]DO1
3 v' x8 \- e8 Y( ?, X' l% A: g#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
( d9 F, ?: y: U! IIF[#22 OR 2. EQ 1.]TH #500=#500 XOR 2.
/ G& x+ c+ \$ t/ D6 h5 w! d4 wIF[#22 EQ 2.]GO3
IF[#22 OR 3. EQ 1.]TH #500=#500 XOR 4.
IF[#22 EQ 3.]GO3
& G1 Z6 S8 E, ZIF[#22 OR 4. EQ 1.]TH #500=#500 XOR 8.
. n* u6 a9 R. E* EIF[#22 EQ 4.]GO3
/ b8 p0 e* y: s# |) d$ ]#3000=1.(#1-MODE-ERROR)
N3 #11=FIX[#11*0.1]
5 n0 z  s, N( d. x% ~) C$ ^5 KEND1
M99


' o1 n% N2 L3 S$ b
#1=1234.
# i1 E# O9 z. b1 c5 [/ S#500=15.
+ i; O2 e! v8 ~  |% `  a#11=ABS[FIX[#1]]
$ w- [5 d( ?5 T4 {WHILE[#11GT0.]DO1
#22=[#11/10.-FIX[#11/10.]]*10.
IF[#22 - 1. EQ 0.]TH #500=#500 - 1.
5 g" Z' H0 `  g0 uIF[#22 EQ 1.]GO3
IF[#22 - 2. EQ 0.]TH #500=#500 - 2.
' V6 B* e1 @. u2 N8 [IF[#22 EQ 2.]GO3
IF[#22 - 3. EQ 0.]TH #500=#500 - 4.
* E5 _4 O; q: f' h) p4 TIF[#22 EQ 3.]GO3
IF[#22 - 4. EQ 0.]TH #500=#500 - 8.
IF[#22 EQ 4.]GO3
#3000=1.(#1-MODE-ERROR)
- T2 E( ]5 {6 \N3 #11=FIX[#11/10.]
END1
M99


$ m5 S- o1 z( z! Y
' |, H+ e3 z) M4 i0 E- k#1=1234.
0 o# t$ p- W0 J) j, B. r2 s#11=ABS[FIX[#1]]
#500=0.
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
8 m8 n4 X8 n; ^0 p5 H! L0 L% ^IF[#22 XOR 2. EQ 0.]TH #500=#500 OR 2.
IF[#22 EQ 2.]GO3
2 P6 a$ Z% L: H* EIF[#22 XOR 3. EQ 0.]TH #500=#500 OR 4.
. d7 I, ]: d$ {( P. ?: SIF[#22 EQ 3.]GO3
IF[#22 XOR 4. EQ 0.]TH #500=#500 OR 8.
6 i( C4 l7 M, |2 U, \' `IF[#22 EQ 4.]GO3
( K( u5 f& S$ s: [" R' ^#3000=1.(#1-MODE-ERROR)
N3 #11=FIX[#11/10.]
END1
- c$ W5 m8 E' oM99

羅蓋仙

最底下紫字也可以改成
/ d# c3 o" `' ]3 B' V#500=#500 + 1.
#500=#500 + 2.
#500=#500 + 4.
* k7 Y* Q$ A# r- ~4 k" ~#500=#500 + 8.

6 B( @) B8 C! y& ^, b$ l$ |# D$ \感想是使用OR最安全
) H) N: h( ?( x4 k用其他可能会被累加或被累减

渊源灼

厉害

rfonaqx

我顶啊。接着顶

& ]; G* F8 J$ t5 v$ `. P0 ~. C' k






2 P0 ^9 W% O/ D! z. M4 |( ]3 ?
$ O* _, x. O) _5 X: P

tudouyoukuso.org/   kutensale.net/sitemap.html   ylmba.com/sitemap.html

liziang0509

谢谢分享。。。

蕾蕾

回复 5# liziang0509
4 U1 N7 W* Y" W& |. {! j9 @
( U2 |& C, @; R# i7 R& H  a
    靠。。。这么nx

52106813

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

jy0668

感谢分享，帮顶一下

zxwen

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

1365944322

支持宏程序，哈哈