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

羅蓋仙

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

/ N+ m0 N& K  Z6 P  t! }1 R' l#1=1234.
) h6 m; J8 U. w: B5 K; E& X#11=ABS[FIX[#1]]
#500=0.
$ I; P4 }) @( k  w5 dWHILE[#11GT0.]DO1
#22=[#11/10.-FIX[#11/10.]]*10.
IF[#22 EQ 1.]TH #500=#500 OR 1.
IF[#22 EQ 1.]GO3
5 u0 ?5 R; Y: RIF[#22 EQ 2.]TH #500=#500 OR 2.
IF[#22 EQ 2.]GO3
5 z: T  L( G4 h5 Z4 {: r5 p6 p$ a1 nIF[#22 EQ 3.]TH #500=#500 OR 4.
' b0 K  c' P1 `7 C, j/ kIF[#22 EQ 3.]GO3
# M. O9 D  y' Z6 N  IIF[#22 EQ 4.]TH #500=#500 OR 8.
7 `. l0 }8 W9 r# K9 A4 y7 fIF[#22 EQ 4.]GO3
#3000=1.(#1-MODE-ERROR)
) k  b: }! ^, T) M0 RN3 #11=FIX[#11/10.]
END1
M99
. \2 \$ l4 J: v0 v9 H
* ~& M% m5 X9 S- Z2 l8 A. w以下为画蛇添足，多此一举。花拳欺敌法。目的搞死敌人
（逻辑运算有改）（WH里面的比较式有改）（除的变乘的;乘的变除的）

#1=1234.
#11=FIX[ABS[#1]]
, G! P9 S8 e/ k0 ?#500=15.(全部装满，让下面逐一减去)
6 @& x" d: l( r; e& B& R8 wWHILE[#11GE1.]DO1
#22=[#11*0.1-FIX[#11*0.1]]*/0.1
* l$ j7 J2 E) V; Z: E& yIF[#22 OR 1. EQ 1.]TH #500=#500 XOR 1.
# i( R' B  X8 d( ~$ M5 V9 RIF[#22 EQ 1.]GO3
+ ~, T* R0 W4 Z  I& ~; `IF[#22 OR 2. EQ 1.]TH #500=#500 XOR 2.
8 X; \2 `  L1 B( ~% O% x6 HIF[#22 EQ 2.]GO3
+ D2 I3 {8 f  x, E( F6 s# R$ y% R) vIF[#22 OR 3. EQ 1.]TH #500=#500 XOR 4.
- w% n% D2 v9 [* ?1 G+ FIF[#22 EQ 3.]GO3
IF[#22 OR 4. EQ 1.]TH #500=#500 XOR 8.
2 p5 z" Y# x! J9 k- pIF[#22 EQ 4.]GO3
#3000=1.(#1-MODE-ERROR)
N3 #11=FIX[#11*0.1]
END1
* @1 y) Q) X+ y6 k/ N% e' q1 iM99



$ p) m$ d2 E  S8 {5 m#1=1234.
#500=15.
#11=ABS[FIX[#1]]
. @1 T) Q6 w- @( @% d( ?  o/ YWHILE[#11GT0.]DO1
& V$ w& s# z$ o+ f#22=[#11/10.-FIX[#11/10.]]*10.
IF[#22 - 1. EQ 0.]TH #500=#500 - 1.
- M3 \; S- N/ Y1 ^$ o# rIF[#22 EQ 1.]GO3
IF[#22 - 2. EQ 0.]TH #500=#500 - 2.
IF[#22 EQ 2.]GO3
& D' e8 @1 R1 \4 H9 k8 T8 G( iIF[#22 - 3. EQ 0.]TH #500=#500 - 4.
# w0 C7 N' c4 L& K0 w  rIF[#22 EQ 3.]GO3
IF[#22 - 4. EQ 0.]TH #500=#500 - 8.
9 i, z) `% ?* W  zIF[#22 EQ 4.]GO3
#3000=1.(#1-MODE-ERROR)
( |- Y: K% M: q0 h1 }+ @) lN3 #11=FIX[#11/10.]
END1
M99

0 e' v2 E# t- ]" W5 O1 Y0 H
$ J' D' _) r& \5 s% W
! G& w1 c7 m! G% f. [" Q#1=1234.
  h2 h, n. t' L, ?  ?1 s#11=ABS[FIX[#1]]
#500=0.
WHILE[#11GT0.]DO1
#22=[#11/10.-FIX[#11/10.]]*10.
' @1 Q3 G2 _: v/ t7 p9 w/ UIF[#22 XOR 1. EQ 0.]TH #500=#500 OR 1.
3 n0 D4 r- j# V' T* V( }9 u$ {IF[#22 EQ 1.]GO3
3 l5 _' Q% U( d5 ?, r: t8 k8 M1 NIF[#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.
$ h- f: B5 H7 J' b$ Y3 D$ zIF[#22 EQ 3.]GO3
IF[#22 XOR 4. EQ 0.]TH #500=#500 OR 8.
. U  s0 X% R$ C2 SIF[#22 EQ 4.]GO3
#3000=1.(#1-MODE-ERROR)
N3 #11=FIX[#11/10.]
5 A$ [9 P* c/ W2 D( _7 zEND1
M99

羅蓋仙

最底下紫字也可以改成
#500=#500 + 1.
5 T- \( S4 R6 [5 g4 I5 O# h& H#500=#500 + 2.
3 Y! j7 p! d5 `* r3 X3 y, g#500=#500 + 4.
% K) A) b" {. ?1 ~( |- B, H- j8 f#500=#500 + 8.

7 V, ^% |5 b5 _感想是使用OR最安全
用其他可能会被累加或被累减

渊源灼

厉害

rfonaqx

我顶啊。接着顶

& C# J, f2 u. |  B3 I% I



1 z% }8 @# j* X3 R0 H% T
! J1 H* i, C1 B) D+ D1 D




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

liziang0509

谢谢分享。。。

蕾蕾

回复 5# liziang0509


/ ], x8 t6 X6 F; d    靠。。。这么nx

52106813

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

jy0668

感谢分享，帮顶一下

zxwen

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

1365944322

支持宏程序，哈哈