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

羅蓋仙

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

- c. x% c$ [+ {8 s( z; ^7 L! p#1=1234.
#11=ABS[FIX[#1]]
7 O+ r; z" c: J, x  X, m#500=0.
WHILE[#11GT0.]DO1
0 n  e' O* [. Q! c: u' s#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.
% r/ _- o' U! i9 ]* x' e6 PIF[#22 EQ 2.]GO3
) v4 b- I  f! b; f& `. \2 U2 K( R3 ?IF[#22 EQ 3.]TH #500=#500 OR 4.
9 q) |% G& |% b! s  n* MIF[#22 EQ 3.]GO3
, D! P2 Y8 d' f5 V) BIF[#22 EQ 4.]TH #500=#500 OR 8.
IF[#22 EQ 4.]GO3
, M4 g* V4 h# `#3000=1.(#1-MODE-ERROR)
N3 #11=FIX[#11/10.]
END1
' k6 l9 G6 C$ cM99
3 A- _5 r6 Z! v6 N- }
* j5 `% k6 ?: i6 H& W以下为画蛇添足，多此一举。花拳欺敌法。目的搞死敌人
/ @0 `9 N# ~% W1 I! i, O1 |（逻辑运算有改）（WH里面的比较式有改）（除的变乘的;乘的变除的）
2 |! L& H% h% t: e8 `, ~  z
0 T) g$ T8 R# ]( M0 w#1=1234.
#11=FIX[ABS[#1]]
( }, o4 y3 I0 ^9 g7 |#500=15.(全部装满，让下面逐一减去)
WHILE[#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.
IF[#22 EQ 2.]GO3
, ~. ^) L- j$ y0 m* g: n+ U: ^IF[#22 OR 3. EQ 1.]TH #500=#500 XOR 4.
! a9 M# P  K& `5 Q: ?9 YIF[#22 EQ 3.]GO3
IF[#22 OR 4. EQ 1.]TH #500=#500 XOR 8.
( e. |8 ?1 @+ \3 G. TIF[#22 EQ 4.]GO3
#3000=1.(#1-MODE-ERROR)
N3 #11=FIX[#11*0.1]
END1
. ^. f1 g/ _7 q" d' y4 [M99

3 w( P% ]  s1 b. H: C6 y

& |; _( ^3 F9 p; x#1=1234.
#500=15.
  s1 t) c* N: z- O8 y1 K7 K#11=ABS[FIX[#1]]
WHILE[#11GT0.]DO1
#22=[#11/10.-FIX[#11/10.]]*10.
IF[#22 - 1. EQ 0.]TH #500=#500 - 1.
# y2 ]9 V; z+ ^8 e9 t, QIF[#22 EQ 1.]GO3
9 Q, z# @+ j" h% F4 \3 k: kIF[#22 - 2. EQ 0.]TH #500=#500 - 2.
2 d4 R, S0 b3 f, r4 q! @' H* z( bIF[#22 EQ 2.]GO3
IF[#22 - 3. EQ 0.]TH #500=#500 - 4.
IF[#22 EQ 3.]GO3
+ J* h; r5 S$ f! L5 qIF[#22 - 4. EQ 0.]TH #500=#500 - 8.
1 G6 Q; P3 I$ cIF[#22 EQ 4.]GO3
#3000=1.(#1-MODE-ERROR)
0 X: W  C) j" h! DN3 #11=FIX[#11/10.]
END1
M99
+ F- l8 y, a7 Z6 M* e

# K6 j, N" N9 d9 O2 r, M
#1=1234.
#11=ABS[FIX[#1]]
, H* j8 |; H' |#500=0.
WHILE[#11GT0.]DO1
#22=[#11/10.-FIX[#11/10.]]*10.
2 v. j) w! ?' v  S$ zIF[#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
IF[#22 XOR 4. EQ 0.]TH #500=#500 OR 8.
IF[#22 EQ 4.]GO3
#3000=1.(#1-MODE-ERROR)
/ g2 @6 i4 o/ F* h0 X% {/ `: ?# nN3 #11=FIX[#11/10.]
4 R% F" p6 L: r  {5 Y* c. X1 VEND1
M99

羅蓋仙

最底下紫字也可以改成
#500=#500 + 1.
+ ]7 O3 F7 E0 F7 a#500=#500 + 2.
$ s. u. y/ z8 h#500=#500 + 4.
) _( B' r' S. D#500=#500 + 8.
/ Z- r7 Y0 L) p# U% }
7 S7 G$ c: A5 u6 f; e4 C1 y0 r. H4 J感想是使用OR最安全
( r1 I: j' v& O" _用其他可能会被累加或被累减

渊源灼

厉害

rfonaqx

我顶啊。接着顶

# o) l5 ^- H7 D. V5 f9 K  d! F
( J1 N! W4 t! K- S% {: C

, F) `* n0 B- f) f. s8 z/ i; i
/ M7 o9 a( T+ o9 B" ^
3 Y( n$ v- g# h& r* T. c




# Y$ i" n: y5 i& q4 Itudouyoukuso.org/   kutensale.net/sitemap.html   ylmba.com/sitemap.html

liziang0509

谢谢分享。。。

蕾蕾

回复 5# liziang0509


  H: }5 r5 P% _! T    靠。。。这么nx

52106813

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

jy0668

感谢分享，帮顶一下

zxwen

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

1365944322

支持宏程序，哈哈