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

羅蓋仙

以下是我的理论请参考，我并没有写得很周全
; T' b" p4 m# P$ X; a$ F' A0 U
) E5 p9 g8 F: b! Q7 \$ q#1=1234.
#11=ABS[FIX[#1]]
#500=0.
3 J2 n4 Z' o! n  S; h" p2 LWHILE[#11GT0.]DO1
% e. ^( K( H- Y! k8 P$ m% A) P* x#22=[#11/10.-FIX[#11/10.]]*10.
IF[#22 EQ 1.]TH #500=#500 OR 1.
' s, ]: y/ I- b& XIF[#22 EQ 1.]GO3
/ [  U( `+ j+ x! m' Z, sIF[#22 EQ 2.]TH #500=#500 OR 2.
IF[#22 EQ 2.]GO3
2 I* Z6 W! ]4 a- F/ ~) XIF[#22 EQ 3.]TH #500=#500 OR 4.
IF[#22 EQ 3.]GO3
IF[#22 EQ 4.]TH #500=#500 OR 8.
IF[#22 EQ 4.]GO3
#3000=1.(#1-MODE-ERROR)
5 j# ]3 m& J0 v9 C" ON3 #11=FIX[#11/10.]
& N: c( G& E- W, w3 KEND1
4 A: B0 b/ C  Q& ~M99
- m  ~4 ^9 I- G- R9 t  c" u
以下为画蛇添足，多此一举。花拳欺敌法。目的搞死敌人
6 Q3 s7 [- w: A$ B, |（逻辑运算有改）（WH里面的比较式有改）（除的变乘的;乘的变除的）
) Q. X! S: _- ~  m! W8 B
#1=1234.
#11=FIX[ABS[#1]]
. B/ E$ c$ i1 P9 H: G7 R: |* S#500=15.(全部装满，让下面逐一减去)
- Z+ h( D, N; H+ u6 v( aWHILE[#11GE1.]DO1
1 {, C" i2 g) F5 {- b1 X2 |#22=[#11*0.1-FIX[#11*0.1]]*/0.1
3 C" J) n' b5 c! r# s8 U" n( QIF[#22 OR 1. EQ 1.]TH #500=#500 XOR 1.
IF[#22 EQ 1.]GO3
" O4 M% d3 C& Z7 p% C0 ZIF[#22 OR 2. EQ 1.]TH #500=#500 XOR 2.
IF[#22 EQ 2.]GO3
IF[#22 OR 3. EQ 1.]TH #500=#500 XOR 4.
% c# Y2 E. Q3 I3 o7 @( g( ^. ?IF[#22 EQ 3.]GO3
IF[#22 OR 4. EQ 1.]TH #500=#500 XOR 8.
IF[#22 EQ 4.]GO3
1 e$ n5 F' x. g0 i! u( }! ~( j9 c#3000=1.(#1-MODE-ERROR)
N3 #11=FIX[#11*0.1]
END1
6 E4 {  A7 [  e  ]% P0 w/ X7 @4 C" aM99

9 G) q$ p: s% U6 _+ c

#1=1234.
( J+ E/ N7 J  B$ c; ^2 H$ R- y5 F#500=15.
, J  Q' A1 j. u* m/ j, \9 b#11=ABS[FIX[#1]]
! H' |# e5 {, U5 P* ~WHILE[#11GT0.]DO1
2 x4 V; I$ w/ Q; Q/ e8 W5 W#22=[#11/10.-FIX[#11/10.]]*10.
: s1 |9 g' @  p0 z$ ]" JIF[#22 - 1. EQ 0.]TH #500=#500 - 1.
IF[#22 EQ 1.]GO3
IF[#22 - 2. EQ 0.]TH #500=#500 - 2.
IF[#22 EQ 2.]GO3
9 B) B- V/ X# I1 K6 y2 jIF[#22 - 3. EQ 0.]TH #500=#500 - 4.
IF[#22 EQ 3.]GO3
IF[#22 - 4. EQ 0.]TH #500=#500 - 8.
- ~) H( A/ A* g% l# ~( }* c- CIF[#22 EQ 4.]GO3
#3000=1.(#1-MODE-ERROR)
N3 #11=FIX[#11/10.]
END1
M99

. x% c9 Z! U7 V) i& C# X
  d  k) m% E6 U) q5 r+ U  @9 Y2 m% z
#1=1234.
2 _  k9 j/ [- y1 ^( Z#11=ABS[FIX[#1]]
6 @# {$ [) M( ^; w#500=0.
2 r3 g; h. ^) X% {( Q% FWHILE[#11GT0.]DO1
! ~1 X0 E/ z2 ?1 d) C#22=[#11/10.-FIX[#11/10.]]*10.
1 F! h1 S# P* Q) x0 V4 a/ cIF[#22 XOR 1. EQ 0.]TH #500=#500 OR 1.
IF[#22 EQ 1.]GO3
4 G5 e$ a  ~) t5 M) W  W7 \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
) E, u9 L* t6 T5 n1 k* e* O( [IF[#22 XOR 4. EQ 0.]TH #500=#500 OR 8.
1 ~' _9 o) B, ?IF[#22 EQ 4.]GO3
: C& ]: b; }' t6 j#3000=1.(#1-MODE-ERROR)
N3 #11=FIX[#11/10.]
END1
0 d; s1 B8 s( ^# VM99

羅蓋仙

最底下紫字也可以改成
#500=#500 + 1.
#500=#500 + 2.
#500=#500 + 4.
" e6 J# G- r4 C: q  j3 F#500=#500 + 8.

/ E$ J5 e. F# w! E3 @2 M6 `9 b感想是使用OR最安全
* O) ^6 K! _  u5 B% B2 g" B用其他可能会被累加或被累减

渊源灼

厉害

rfonaqx

我顶啊。接着顶



. d+ L1 S- `" [: y9 ^1 t

" n' P( r7 R  g! Z: R' M; b: q+ c3 P



& c' x% [) u3 G9 \

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

liziang0509

谢谢分享。。。

蕾蕾

回复 5# liziang0509


( e- f9 T1 I7 g5 z# Z" l3 q    靠。。。这么nx

52106813

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

jy0668

感谢分享，帮顶一下

zxwen

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

1365944322

支持宏程序，哈哈