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

羅蓋仙

以下是我的理论请参考，我并没有写得很周全
  L- Y6 K) f/ ?. o/ n3 a0 p
( k- ^$ `" J; A- `5 J9 R#1=1234.
#11=ABS[FIX[#1]]
* q) X$ p0 D3 H2 b  X( e#500=0.
WHILE[#11GT0.]DO1
# \3 b0 z7 Z/ N- A8 M( l. w! X#22=[#11/10.-FIX[#11/10.]]*10.
IF[#22 EQ 1.]TH #500=#500 OR 1.
IF[#22 EQ 1.]GO3
: r; e. G% c- q' R) ]. |IF[#22 EQ 2.]TH #500=#500 OR 2.
) y8 ?8 h# g  J! PIF[#22 EQ 2.]GO3
. y8 O- E, P! YIF[#22 EQ 3.]TH #500=#500 OR 4.
IF[#22 EQ 3.]GO3
IF[#22 EQ 4.]TH #500=#500 OR 8.
* d7 \# v) h, x) HIF[#22 EQ 4.]GO3
( X6 m' k6 k$ D# Z#3000=1.(#1-MODE-ERROR)
  o- _- U, S6 M/ g$ `% o; T% u3 R: P3 @N3 #11=FIX[#11/10.]
END1
M99

' k& b! D. j+ x! p2 e+ V* ~以下为画蛇添足，多此一举。花拳欺敌法。目的搞死敌人
% u6 k# h7 O* ]. C8 e1 C（逻辑运算有改）（WH里面的比较式有改）（除的变乘的;乘的变除的）

" ~# [! {8 ^1 q  v6 F/ B" z#1=1234.
) ^6 D) b9 \: e- Q4 V1 _( w$ l#11=FIX[ABS[#1]]
#500=15.(全部装满，让下面逐一减去)
9 r# p/ o% U) t1 EWHILE[#11GE1.]DO1
; J. [% H$ J, u- ?8 {" X4 f2 A! w- x#22=[#11*0.1-FIX[#11*0.1]]*/0.1
4 |* e1 B+ s, J. o9 E, GIF[#22 OR 1. EQ 1.]TH #500=#500 XOR 1.
IF[#22 EQ 1.]GO3
* K& ^  A3 F& S3 ?IF[#22 OR 2. EQ 1.]TH #500=#500 XOR 2.
' M1 Y, n/ u8 ]) Y2 {8 L6 w: s5 JIF[#22 EQ 2.]GO3
; V8 d' Q/ V8 f' |# v/ kIF[#22 OR 3. EQ 1.]TH #500=#500 XOR 4.
1 Q1 H( R! {3 |IF[#22 EQ 3.]GO3
IF[#22 OR 4. EQ 1.]TH #500=#500 XOR 8.
' l- ?* {4 z: k- }0 zIF[#22 EQ 4.]GO3
#3000=1.(#1-MODE-ERROR)
N3 #11=FIX[#11*0.1]
: X4 ]8 c% w! Q% ?+ B) V' d1 REND1
8 s( Y/ E3 [4 O0 w9 e# o. V6 TM99
3 d- g3 w) }8 P, ~


#1=1234.
9 q* _4 [! _0 C! C/ k+ O* f#500=15.
0 S# ?  \$ V& y1 ^1 y#11=ABS[FIX[#1]]
! z* r; q" \$ T6 @4 k' j& q* zWHILE[#11GT0.]DO1
#22=[#11/10.-FIX[#11/10.]]*10.
8 T# Z  m: E! q) d2 n2 s  I0 uIF[#22 - 1. EQ 0.]TH #500=#500 - 1.
' d% ]6 {% ~- _IF[#22 EQ 1.]GO3
IF[#22 - 2. EQ 0.]TH #500=#500 - 2.
IF[#22 EQ 2.]GO3
IF[#22 - 3. EQ 0.]TH #500=#500 - 4.
* R& G: T) z8 l& D: r2 g( oIF[#22 EQ 3.]GO3
7 r$ u' m. g4 y& C2 BIF[#22 - 4. EQ 0.]TH #500=#500 - 8.
IF[#22 EQ 4.]GO3
: x0 K% c% E8 h! {) Q- u#3000=1.(#1-MODE-ERROR)
N3 #11=FIX[#11/10.]
END1
M99

' g& z. G8 A7 \$ O/ [
3 |6 H- ^% r# b
. z& b3 c. h4 K  `( k/ y#1=1234.
#11=ABS[FIX[#1]]
#500=0.
WHILE[#11GT0.]DO1
7 D. w7 s- }  z8 A#22=[#11/10.-FIX[#11/10.]]*10.
IF[#22 XOR 1. EQ 0.]TH #500=#500 OR 1.
$ c) Q$ E" Y5 }, c$ G# \  W3 pIF[#22 EQ 1.]GO3
IF[#22 XOR 2. EQ 0.]TH #500=#500 OR 2.
# G. i- M' ?: J* VIF[#22 EQ 2.]GO3
; Z8 O* B+ D3 x3 v) @0 bIF[#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)
7 d5 B! B! |4 }  V" O- eN3 #11=FIX[#11/10.]
END1
M99

羅蓋仙

最底下紫字也可以改成
  Z7 m- t& V/ N8 o- s. Y5 V#500=#500 + 1.
( _! r. ^9 o# Z$ Q1 u0 z; W#500=#500 + 2.
. O' j! M7 O8 o+ j8 y! A#500=#500 + 4.
% x& T. E) E: Z- |! e#500=#500 + 8.
1 A- m% G/ h) R4 |
2 |  \: P  |  y/ R+ Q" |4 x感想是使用OR最安全
& x7 e0 p" s9 D' s! s# T* p; h3 x用其他可能会被累加或被累减

渊源灼

厉害

rfonaqx

我顶啊。接着顶

) m+ S: G7 }( m4 }' S2 _2 x
& S" T8 ]. C; _2 H. u
9 ^  L; w- B7 N2 v' l
. S3 ^  Q$ R* U  A


9 ^  Y$ \7 `" i! \/ V


5 S% [# R7 K+ v
: C. {$ i, w0 w& }' M- c& }* K' U6 Atudouyoukuso.org/   kutensale.net/sitemap.html   ylmba.com/sitemap.html

liziang0509

谢谢分享。。。

蕾蕾

回复 5# liziang0509


    靠。。。这么nx

52106813

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

jy0668

感谢分享，帮顶一下

zxwen

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

1365944322

支持宏程序，哈哈