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

羅蓋仙

以下是我的理论请参考，我并没有写得很周全
0 [( L$ J% o" e# r
( j- w& e. \- n* U+ B#1=1234.
#11=ABS[FIX[#1]]
' Y2 q  B( h; B1 p, J; t#500=0.
( C/ t2 x2 d9 P: V9 Z" jWHILE[#11GT0.]DO1
#22=[#11/10.-FIX[#11/10.]]*10.
IF[#22 EQ 1.]TH #500=#500 OR 1.
IF[#22 EQ 1.]GO3
0 f4 A+ \( l9 m0 VIF[#22 EQ 2.]TH #500=#500 OR 2.
IF[#22 EQ 2.]GO3
7 ?; `5 t  O  [, w- ZIF[#22 EQ 3.]TH #500=#500 OR 4.
0 q) f8 r7 `( WIF[#22 EQ 3.]GO3
IF[#22 EQ 4.]TH #500=#500 OR 8.
$ L& h2 Y- a0 d" SIF[#22 EQ 4.]GO3
3 I* U; f0 w6 r. F0 n4 }7 V#3000=1.(#1-MODE-ERROR)
  d, H% s) F' [, L* w( ^1 ^N3 #11=FIX[#11/10.]
: J0 N% A2 H. s8 e& J3 X! \END1
M99

6 N; }: h/ d2 m5 {% @以下为画蛇添足，多此一举。花拳欺敌法。目的搞死敌人
（逻辑运算有改）（WH里面的比较式有改）（除的变乘的;乘的变除的）
) ?+ V! m* S* n* Q/ u- q) c
#1=1234.
#11=FIX[ABS[#1]]
#500=15.(全部装满，让下面逐一减去)
# a7 l$ ~5 [' IWHILE[#11GE1.]DO1
#22=[#11*0.1-FIX[#11*0.1]]*/0.1
IF[#22 OR 1. EQ 1.]TH #500=#500 XOR 1.
' ~- u* W4 J0 ?4 F# \5 GIF[#22 EQ 1.]GO3
3 H7 U! ?% o- T7 t& G9 E) ZIF[#22 OR 2. EQ 1.]TH #500=#500 XOR 2.
8 {! G* F6 i" X0 l/ uIF[#22 EQ 2.]GO3
IF[#22 OR 3. EQ 1.]TH #500=#500 XOR 4.
5 C! A1 @0 G) XIF[#22 EQ 3.]GO3
IF[#22 OR 4. EQ 1.]TH #500=#500 XOR 8.
% M3 r5 A& l! E' |0 t. [* aIF[#22 EQ 4.]GO3
3 h& t9 y3 c) U1 z#3000=1.(#1-MODE-ERROR)
N3 #11=FIX[#11*0.1]
1 ~' [* R# }+ T- i/ s. NEND1
M99


6 Q3 h8 s. c  M* o/ ^
. ^. n7 y8 Q' H  p$ F& N3 K  m#1=1234.
4 q  `3 R% j- A0 Y3 N; k; `#500=15.
#11=ABS[FIX[#1]]
WHILE[#11GT0.]DO1
#22=[#11/10.-FIX[#11/10.]]*10.
$ k. z  G9 [6 u$ d( iIF[#22 - 1. EQ 0.]TH #500=#500 - 1.
) v, f$ r6 [4 e* s) OIF[#22 EQ 1.]GO3
. U- ~, B' S" X7 z# wIF[#22 - 2. EQ 0.]TH #500=#500 - 2.
; |7 I- q! v: L3 F6 C- e, uIF[#22 EQ 2.]GO3
, |! ~) h7 k3 cIF[#22 - 3. EQ 0.]TH #500=#500 - 4.
IF[#22 EQ 3.]GO3
IF[#22 - 4. EQ 0.]TH #500=#500 - 8.
IF[#22 EQ 4.]GO3
#3000=1.(#1-MODE-ERROR)
9 ~" e& U' A* J* e' b# o; z+ `N3 #11=FIX[#11/10.]
' q% ~" m7 j0 q. a, |' SEND1
7 m, P' j5 M& X9 E/ j2 b% u# WM99
- P/ X7 N- y1 M+ T! L" h$ |& |
$ l8 m) V9 m0 h. E) X$ I5 v

, |( U2 @; I  c* t2 y! s2 F#1=1234.
& q6 P: `" u2 N8 L# q#11=ABS[FIX[#1]]
#500=0.
, x8 q7 H) j+ z! s. \- M( LWHILE[#11GT0.]DO1
$ m- A' s5 t: S3 y#22=[#11/10.-FIX[#11/10.]]*10.
: z- c9 R6 J7 s+ c/ Y3 G: d, j' xIF[#22 XOR 1. EQ 0.]TH #500=#500 OR 1.
4 k4 q- a. [; K) l3 R5 s- YIF[#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
  m. \0 L4 a) x/ Y! d: v; WIF[#22 XOR 4. EQ 0.]TH #500=#500 OR 8.
IF[#22 EQ 4.]GO3
#3000=1.(#1-MODE-ERROR)
N3 #11=FIX[#11/10.]
END1
- ^9 |# m# A* m# W% iM99

羅蓋仙

最底下紫字也可以改成
" K( A7 |6 k9 g- m#500=#500 + 1.
#500=#500 + 2.
! E% Z5 @" ]" A#500=#500 + 4.
#500=#500 + 8.

2 o" c: {# _1 j* k感想是使用OR最安全
3 w, P& a! e6 f1 m$ Q. q6 [" q" I$ x用其他可能会被累加或被累减

渊源灼

厉害

rfonaqx

我顶啊。接着顶





' \- P/ z; q% _" S( y" ]+ K0 K



/ h  T. z" D5 u) p# I

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

liziang0509

谢谢分享。。。

蕾蕾

回复 5# liziang0509
% C* I) l4 M5 y' d

    靠。。。这么nx

52106813

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

jy0668

感谢分享，帮顶一下

zxwen

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

1365944322

支持宏程序，哈哈