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

羅蓋仙

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

. G( u* G8 W1 R7 k; ?#1=1234.
9 p9 U, `( V% ^$ D#11=ABS[FIX[#1]]
#500=0.
0 O* n8 o' }1 K$ [/ jWHILE[#11GT0.]DO1
7 R% N9 v- Z* v" |1 @#22=[#11/10.-FIX[#11/10.]]*10.
1 k3 y7 C/ |! |5 e# TIF[#22 EQ 1.]TH #500=#500 OR 1.
+ j8 P0 K/ H0 w& V0 i9 s  wIF[#22 EQ 1.]GO3
) g- |3 n1 C& _5 l6 {5 o6 W2 tIF[#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
IF[#22 EQ 4.]TH #500=#500 OR 8.
0 P# @- ?- P8 q( y/ E4 ]IF[#22 EQ 4.]GO3
#3000=1.(#1-MODE-ERROR)
; i/ v! n4 Y3 t5 {N3 #11=FIX[#11/10.]
END1
0 P) C4 U0 ~) T: L6 j; \M99

以下为画蛇添足，多此一举。花拳欺敌法。目的搞死敌人
（逻辑运算有改）（WH里面的比较式有改）（除的变乘的;乘的变除的）
# `) Y( M$ X* M0 [* N/ G) i
8 p; t" i- u5 w  r. r% }( R#1=1234.
8 c% V" R/ F3 _9 \! D8 ]* t#11=FIX[ABS[#1]]
#500=15.(全部装满，让下面逐一减去)
' T4 F& g3 q' FWHILE[#11GE1.]DO1
#22=[#11*0.1-FIX[#11*0.1]]*/0.1
! Z- U/ {" n1 f. d5 \IF[#22 OR 1. EQ 1.]TH #500=#500 XOR 1.
IF[#22 EQ 1.]GO3
2 y$ n$ |& N- i# {IF[#22 OR 2. EQ 1.]TH #500=#500 XOR 2.
IF[#22 EQ 2.]GO3
$ L- E2 G( n. s/ V# EIF[#22 OR 3. EQ 1.]TH #500=#500 XOR 4.
6 @7 W1 F/ T. e" x1 z( u, @IF[#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


4 X2 G/ f2 R9 x' K+ x
#1=1234.
- w  u8 b! m) X* i7 N#500=15.
4 \/ |1 W+ e* O; P5 G9 R#11=ABS[FIX[#1]]
7 n% n  D9 N3 T& h( DWHILE[#11GT0.]DO1
/ L) }2 K9 p1 {0 g) s; j#22=[#11/10.-FIX[#11/10.]]*10.
* W. d, p! l* }IF[#22 - 1. EQ 0.]TH #500=#500 - 1.
, o2 ^7 N" w0 U" N& @7 DIF[#22 EQ 1.]GO3
IF[#22 - 2. EQ 0.]TH #500=#500 - 2.
' f9 X: N# u) DIF[#22 EQ 2.]GO3
IF[#22 - 3. EQ 0.]TH #500=#500 - 4.
IF[#22 EQ 3.]GO3
6 L) B$ g+ h* Y4 w0 T$ a! j4 k) J7 XIF[#22 - 4. EQ 0.]TH #500=#500 - 8.
% @! f% D  p3 ]* E9 Q" SIF[#22 EQ 4.]GO3
, Y, R- p/ y- H) }7 z8 ^# l#3000=1.(#1-MODE-ERROR)
5 g, T# ]) d* W, s* s( h4 VN3 #11=FIX[#11/10.]
END1
! a! ~/ v0 b2 l$ Q8 L9 p0 W2 lM99
- v6 R8 d1 h. J/ n' c0 G

& l7 N+ U$ b  q3 S9 o! T% v
#1=1234.
#11=ABS[FIX[#1]]
" Q; G& C& h; V4 ~$ w#500=0.
WHILE[#11GT0.]DO1
#22=[#11/10.-FIX[#11/10.]]*10.
IF[#22 XOR 1. EQ 0.]TH #500=#500 OR 1.
/ _4 T! l0 ^9 X# U2 d& \1 t  HIF[#22 EQ 1.]GO3
7 `2 f1 {) s+ ^IF[#22 XOR 2. EQ 0.]TH #500=#500 OR 2.
IF[#22 EQ 2.]GO3
( F  V) _: j* g) l/ s9 {IF[#22 XOR 3. EQ 0.]TH #500=#500 OR 4.
IF[#22 EQ 3.]GO3
% f0 b/ W4 j. [0 z0 M# c+ AIF[#22 XOR 4. EQ 0.]TH #500=#500 OR 8.
  A8 ?# L) ?9 `/ c; I. l" Y4 h* yIF[#22 EQ 4.]GO3
6 o8 J& c, I) s# Y) f" z#3000=1.(#1-MODE-ERROR)
N3 #11=FIX[#11/10.]
END1
( a; E7 c- \" _1 C+ k# MM99

羅蓋仙

最底下紫字也可以改成
#500=#500 + 1.
#500=#500 + 2.
#500=#500 + 4.
3 _7 x- L' |! s% m& j$ r2 U#500=#500 + 8.
- B4 K# y; Q  o0 _0 B) R
8 p" G2 l9 ^% R7 O7 x( u0 s感想是使用OR最安全
1 b$ ?  o! ?7 t+ B用其他可能会被累加或被累减

渊源灼

厉害

rfonaqx

我顶啊。接着顶






+ S" ?" x# N  m% Y7 t- x

( m* o6 {3 V  f3 k$ A$ R$ f

# w6 }* A5 M# T) }# O
tudouyoukuso.org/   kutensale.net/sitemap.html   ylmba.com/sitemap.html

liziang0509

谢谢分享。。。

蕾蕾

回复 5# liziang0509

8 z( j' Y$ E0 I
! z; F6 N2 W0 C( O* |" [    靠。。。这么nx

52106813

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

jy0668

感谢分享，帮顶一下

zxwen

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

1365944322

支持宏程序，哈哈