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

羅蓋仙

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

/ v* a% a9 j/ H#1=1234.
+ [* j, o$ r3 u% T, y#11=ABS[FIX[#1]]
9 a3 G5 V; h- B, \#500=0.
: y6 _  h, S: k* AWHILE[#11GT0.]DO1
% U. }8 D. C: ~" ]4 Q3 V#22=[#11/10.-FIX[#11/10.]]*10.
IF[#22 EQ 1.]TH #500=#500 OR 1.
' W  h- e# f& Y* _9 j# ?IF[#22 EQ 1.]GO3
! @6 b: V8 i8 r% @IF[#22 EQ 2.]TH #500=#500 OR 2.
IF[#22 EQ 2.]GO3
IF[#22 EQ 3.]TH #500=#500 OR 4.
IF[#22 EQ 3.]GO3
. W" e$ a; p" r2 g  EIF[#22 EQ 4.]TH #500=#500 OR 8.
5 j, u) O: A$ `' i/ }7 z+ g8 O$ Y# iIF[#22 EQ 4.]GO3
% t  U+ b1 V  S% S/ m4 N* A#3000=1.(#1-MODE-ERROR)
4 I8 ~; |7 S! |2 \! j+ wN3 #11=FIX[#11/10.]
6 d% w* B3 W- m" C" |6 d, gEND1
7 o9 ~, P2 [6 a( Y0 rM99
- [6 t/ u- \$ k3 T: ~6 k4 ^5 k
以下为画蛇添足，多此一举。花拳欺敌法。目的搞死敌人
（逻辑运算有改）（WH里面的比较式有改）（除的变乘的;乘的变除的）
9 M; |$ ^: L9 B( O/ ]) o1 V' K
#1=1234.
% G8 R0 Z) E. C% R# k- e#11=FIX[ABS[#1]]
2 {, l6 d4 r1 R7 I) M) S0 F+ [' G#500=15.(全部装满，让下面逐一减去)
WHILE[#11GE1.]DO1
' f  K8 T2 t, p' g9 F& I& O#22=[#11*0.1-FIX[#11*0.1]]*/0.1
IF[#22 OR 1. EQ 1.]TH #500=#500 XOR 1.
2 n: s% \0 {; [IF[#22 EQ 1.]GO3
4 f  ~/ r5 S7 t" D. G% Y+ JIF[#22 OR 2. EQ 1.]TH #500=#500 XOR 2.
IF[#22 EQ 2.]GO3
+ S" L$ k; b6 M" ^5 H7 fIF[#22 OR 3. EQ 1.]TH #500=#500 XOR 4.
IF[#22 EQ 3.]GO3
IF[#22 OR 4. EQ 1.]TH #500=#500 XOR 8.
0 L. i4 L, y+ N" V, ?* ~IF[#22 EQ 4.]GO3
- ^/ w1 `6 Q  G1 A! |, r4 Y#3000=1.(#1-MODE-ERROR)
# x7 v7 @2 r; n4 ZN3 #11=FIX[#11*0.1]
END1
; l; f5 D1 ^3 xM99
9 p6 C6 y( k0 F4 _

! F, D. V1 u5 N7 x4 \# F' _
#1=1234.
#500=15.
$ o' i! `1 f7 M$ B6 F+ W#11=ABS[FIX[#1]]
% S+ N7 D/ M4 EWHILE[#11GT0.]DO1
& }& M* F5 ?: I- R/ Q  ]' S#22=[#11/10.-FIX[#11/10.]]*10.
IF[#22 - 1. EQ 0.]TH #500=#500 - 1.
IF[#22 EQ 1.]GO3
) i% E0 C, x( ^- sIF[#22 - 2. EQ 0.]TH #500=#500 - 2.
2 b! T  I! s0 t( ZIF[#22 EQ 2.]GO3
# }0 Q9 F( X* }5 L- Y! ^, dIF[#22 - 3. EQ 0.]TH #500=#500 - 4.
* a# M: K  W. |& G5 M& d8 t  iIF[#22 EQ 3.]GO3
IF[#22 - 4. EQ 0.]TH #500=#500 - 8.
' A6 D9 Q. J) O/ dIF[#22 EQ 4.]GO3
#3000=1.(#1-MODE-ERROR)
4 V* f! N/ u' e) \* |+ D. b. _. ^( b( wN3 #11=FIX[#11/10.]
$ |) X' a& r" FEND1
5 L  W" R+ b6 U  A5 T  t4 TM99


9 {7 G4 f! J* d# U: g/ c
#1=1234.
* c4 M2 u2 h2 M4 \- N/ O% a- ]#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
IF[#22 XOR 2. EQ 0.]TH #500=#500 OR 2.
IF[#22 EQ 2.]GO3
IF[#22 XOR 3. EQ 0.]TH #500=#500 OR 4.
IF[#22 EQ 3.]GO3
; N, L) N! l; v9 \IF[#22 XOR 4. EQ 0.]TH #500=#500 OR 8.
IF[#22 EQ 4.]GO3
#3000=1.(#1-MODE-ERROR)
! \  U( W6 V8 z2 g2 Q3 |# ON3 #11=FIX[#11/10.]
END1
M99

羅蓋仙

最底下紫字也可以改成
2 D- c- d( X+ _. `7 f; v% L#500=#500 + 1.
#500=#500 + 2.
#500=#500 + 4.
#500=#500 + 8.

感想是使用OR最安全
; p7 s' \% a' i7 W) W2 G& w用其他可能会被累加或被累减

渊源灼

厉害

rfonaqx

我顶啊。接着顶
8 }; J) I, P5 x! y



$ w: Y2 w2 Y. {& A+ k5 N. m0 k( L
; a& t$ k' q+ K

3 g+ e; m6 r$ c" m

+ |" I9 O& n( f, H1 Y. N- n1 F; }- J
  k3 i: `1 b7 S/ V4 Q& b1 S
3 a  m% N0 ]( atudouyoukuso.org/   kutensale.net/sitemap.html   ylmba.com/sitemap.html

liziang0509

谢谢分享。。。

蕾蕾

回复 5# liziang0509

* m0 e' H! j, L* V3 S
    靠。。。这么nx

52106813

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

jy0668

感谢分享，帮顶一下

zxwen

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

1365944322

支持宏程序，哈哈