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

羅蓋仙

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

#1=1234.
7 [8 T' i# ^- U. v#11=ABS[FIX[#1]]
#500=0.
WHILE[#11GT0.]DO1
#22=[#11/10.-FIX[#11/10.]]*10.
IF[#22 EQ 1.]TH #500=#500 OR 1.
% X( [9 T; B' H6 x+ ~IF[#22 EQ 1.]GO3
IF[#22 EQ 2.]TH #500=#500 OR 2.
IF[#22 EQ 2.]GO3
2 y1 p0 ]5 T/ R9 zIF[#22 EQ 3.]TH #500=#500 OR 4.
# |3 r) }" t& R' c8 Y1 SIF[#22 EQ 3.]GO3
IF[#22 EQ 4.]TH #500=#500 OR 8.
IF[#22 EQ 4.]GO3
  _( x  H; N7 L% n#3000=1.(#1-MODE-ERROR)
& @  ]- v/ b& I' Q' I5 D% @% ~9 _- gN3 #11=FIX[#11/10.]
2 n& P; @  t+ I$ v8 F: y) M1 DEND1
M99

以下为画蛇添足，多此一举。花拳欺敌法。目的搞死敌人
/ d% m! a  y) ^6 N% L9 @# B$ v（逻辑运算有改）（WH里面的比较式有改）（除的变乘的;乘的变除的）

#1=1234.
#11=FIX[ABS[#1]]
#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.
, J: U7 _% r$ p) D- QIF[#22 EQ 2.]GO3
IF[#22 OR 3. EQ 1.]TH #500=#500 XOR 4.
+ v, R' a3 E7 c4 vIF[#22 EQ 3.]GO3
IF[#22 OR 4. EQ 1.]TH #500=#500 XOR 8.
IF[#22 EQ 4.]GO3
9 F5 Q% n7 U. {% q/ E#3000=1.(#1-MODE-ERROR)
( L, ~, J  B0 d! ^) eN3 #11=FIX[#11*0.1]
% N" ^- F, i) b3 I; n' VEND1
M99
6 n6 o0 |* d! J2 I& R
8 t6 G% X5 h. P6 y: p+ Z
$ W( }- L+ Z" @3 |+ b9 E& N
#1=1234.
5 X! j$ C( g! r1 |+ B/ f2 G#500=15.
#11=ABS[FIX[#1]]
WHILE[#11GT0.]DO1
#22=[#11/10.-FIX[#11/10.]]*10.
! d9 k) X* T4 I4 T! C) j4 F2 GIF[#22 - 1. EQ 0.]TH #500=#500 - 1.
IF[#22 EQ 1.]GO3
IF[#22 - 2. EQ 0.]TH #500=#500 - 2.
; u6 B  F6 D3 O( D, K% U% wIF[#22 EQ 2.]GO3
IF[#22 - 3. EQ 0.]TH #500=#500 - 4.
IF[#22 EQ 3.]GO3
0 N+ i1 ^7 z5 xIF[#22 - 4. EQ 0.]TH #500=#500 - 8.
IF[#22 EQ 4.]GO3
2 |" [! ?2 a! l, Q4 K#3000=1.(#1-MODE-ERROR)
N3 #11=FIX[#11/10.]
END1
* j& O+ n* f* M7 ^" n3 N; oM99



#1=1234.
#11=ABS[FIX[#1]]
, a! i- N# o6 c* Z/ c1 ?#500=0.
WHILE[#11GT0.]DO1
#22=[#11/10.-FIX[#11/10.]]*10.
IF[#22 XOR 1. EQ 0.]TH #500=#500 OR 1.
IF[#22 EQ 1.]GO3
3 V. ^3 `3 I! A  @IF[#22 XOR 2. EQ 0.]TH #500=#500 OR 2.
6 l8 p: w$ _0 T) h5 P$ M* yIF[#22 EQ 2.]GO3
/ f2 z3 Z) h" m# A/ ^7 t- Y1 \4 Y& WIF[#22 XOR 3. EQ 0.]TH #500=#500 OR 4.
& s7 {2 W9 m4 i, p5 n# k  g+ tIF[#22 EQ 3.]GO3
& n0 J2 ^( |$ z0 T& K/ _, mIF[#22 XOR 4. EQ 0.]TH #500=#500 OR 8.
: N: n6 V6 U2 A( S+ [- EIF[#22 EQ 4.]GO3
#3000=1.(#1-MODE-ERROR)
8 [$ L9 s% M1 SN3 #11=FIX[#11/10.]
/ ?& Y& M6 T2 `! B! D; P  eEND1
5 Z* v( z* b' n) |+ S% i) p1 x/ ZM99

羅蓋仙

最底下紫字也可以改成
/ B  H1 j2 ~* s$ q: r#500=#500 + 1.
- n/ a! x. Y4 J1 ]5 y#500=#500 + 2.
# U& s4 R& u8 Y" B& v  P% a3 G#500=#500 + 4.
#500=#500 + 8.

感想是使用OR最安全
用其他可能会被累加或被累减

渊源灼

厉害

rfonaqx

我顶啊。接着顶
- Q2 @! J9 Z4 T# |' H
- v! d4 G: \7 S3 N

' _1 O/ d0 c2 ^
* o0 w8 }$ r) c2 J3 I

3 b; i7 `  \* N9 }7 `+ G
0 x+ Y1 q4 s( G* a! m# H* E
# V0 U$ Z- Z2 g! c) I' C' ^! t
3 H! M, G8 T! Q% b: `
. Z( ~# M! K5 x1 P
4 M4 I! w! C/ P- Y' {tudouyoukuso.org/   kutensale.net/sitemap.html   ylmba.com/sitemap.html

liziang0509

谢谢分享。。。

蕾蕾

回复 5# liziang0509

: F* g, y) k7 {* t! X7 y6 \6 ]
    靠。。。这么nx

52106813

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

jy0668

感谢分享，帮顶一下

zxwen

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

1365944322

支持宏程序，哈哈