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

羅蓋仙

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

#1=1234.
. T/ p- k" x& c0 u% m#11=ABS[FIX[#1]]
" J8 C9 t4 p' R( K#500=0.
WHILE[#11GT0.]DO1
#22=[#11/10.-FIX[#11/10.]]*10.
IF[#22 EQ 1.]TH #500=#500 OR 1.
IF[#22 EQ 1.]GO3
IF[#22 EQ 2.]TH #500=#500 OR 2.
5 I. x' U6 s2 P" j" xIF[#22 EQ 2.]GO3
IF[#22 EQ 3.]TH #500=#500 OR 4.
& ]- Y' v* _1 E  n% W1 LIF[#22 EQ 3.]GO3
  \  t: n; L# x& h4 Q3 l, _; v7 Y6 mIF[#22 EQ 4.]TH #500=#500 OR 8.
IF[#22 EQ 4.]GO3
#3000=1.(#1-MODE-ERROR)
N3 #11=FIX[#11/10.]
! I+ x2 r% U- A8 Q: u/ @6 fEND1
M99

以下为画蛇添足，多此一举。花拳欺敌法。目的搞死敌人
+ R) m  A/ g: z3 s% ^（逻辑运算有改）（WH里面的比较式有改）（除的变乘的;乘的变除的）

; }0 ~& f, M6 _) c) v: w; O8 K- t#1=1234.
#11=FIX[ABS[#1]]
$ x5 @2 O1 F3 _& s5 D, G- H, C#500=15.(全部装满，让下面逐一减去)
( h# a, o$ a1 X& aWHILE[#11GE1.]DO1
2 D8 `4 B4 s+ }& n- P#22=[#11*0.1-FIX[#11*0.1]]*/0.1
5 {' o: ~( o5 _IF[#22 OR 1. EQ 1.]TH #500=#500 XOR 1.
3 ^2 W7 Z) W* y' _6 W/ W4 x, ZIF[#22 EQ 1.]GO3
: P! F- R( f4 u! C7 w2 S$ b! ]& CIF[#22 OR 2. EQ 1.]TH #500=#500 XOR 2.
% E  G9 s& D+ H: o; ?: h, {; e  H, HIF[#22 EQ 2.]GO3
  f/ Y5 ^, L' u- zIF[#22 OR 3. EQ 1.]TH #500=#500 XOR 4.
IF[#22 EQ 3.]GO3
2 r3 t( j: E% _; y# x7 n7 n4 \! PIF[#22 OR 4. EQ 1.]TH #500=#500 XOR 8.
IF[#22 EQ 4.]GO3
3 w! J- ^! r3 C. D* C) X! X/ @#3000=1.(#1-MODE-ERROR)
N3 #11=FIX[#11*0.1]
END1
" n) Q* \7 H& b0 p5 oM99


. H0 v( u( ~4 v- X' a% o( _
0 ?5 ]+ t  G- a: N#1=1234.
" h( M  |9 x& M6 i$ K9 d9 `#500=15.
# r0 ~+ F# ?3 e7 r#11=ABS[FIX[#1]]
/ V( O2 t. q- Z+ A7 eWHILE[#11GT0.]DO1
' Q  M( c( D) K! z) x% [#22=[#11/10.-FIX[#11/10.]]*10.
( P3 L$ E# Z/ i8 \8 @* yIF[#22 - 1. EQ 0.]TH #500=#500 - 1.
+ `. n2 {! A, M& LIF[#22 EQ 1.]GO3
3 B' h' Y: U" r/ o% u9 Y4 K8 rIF[#22 - 2. EQ 0.]TH #500=#500 - 2.
# c! Q) O! l) S3 p8 jIF[#22 EQ 2.]GO3
1 F7 j% }2 k% }4 w4 ZIF[#22 - 3. EQ 0.]TH #500=#500 - 4.
IF[#22 EQ 3.]GO3
) }. n4 I) ^9 ~! t: y. x" V' dIF[#22 - 4. EQ 0.]TH #500=#500 - 8.
IF[#22 EQ 4.]GO3
2 j5 F, I9 J9 `! u/ |8 l" i& y#3000=1.(#1-MODE-ERROR)
% c  }; _0 b% ?% A& VN3 #11=FIX[#11/10.]
8 g3 @' G8 g8 rEND1
5 |9 X/ M' \5 SM99


  u# _5 X4 M0 Z% U
; i" ^' J$ ^' ^#1=1234.
#11=ABS[FIX[#1]]
#500=0.
/ D: t  `* S& B+ z' m* EWHILE[#11GT0.]DO1
/ v9 ~: R$ ^7 i3 d#22=[#11/10.-FIX[#11/10.]]*10.
IF[#22 XOR 1. EQ 0.]TH #500=#500 OR 1.
IF[#22 EQ 1.]GO3
IF[#22 XOR 2. EQ 0.]TH #500=#500 OR 2.
' \4 u  V4 p8 ?: i( aIF[#22 EQ 2.]GO3
7 r/ W" w$ N" Q- F( p. y: fIF[#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
# [& l$ p" f4 S#3000=1.(#1-MODE-ERROR)
2 e" A/ Q" O1 Y* C3 k9 W8 B% iN3 #11=FIX[#11/10.]
/ E4 ^" G) J, F1 j/ M! QEND1
* ?* N) I( J2 o0 g( dM99

羅蓋仙

最底下紫字也可以改成
) o& A  n1 x4 O' I5 V( A9 I1 m#500=#500 + 1.
  U9 L1 ]# s& S6 ~5 Q" |#500=#500 + 2.
- X9 J5 ]( M: b  Q" k$ z' V& Z#500=#500 + 4.
* A, c: B+ P: Q% ^7 }2 b) f#500=#500 + 8.
3 m( ^. Q9 v1 X1 f+ b  }0 u
. c. j0 N- s# R' @0 i. n/ p感想是使用OR最安全
$ m% J! u1 c* v  \+ B. W! B! W' j用其他可能会被累加或被累减

渊源灼

厉害

rfonaqx

我顶啊。接着顶




( d% F4 J3 W/ u

& O9 V3 h! m  Q2 s' B1 |4 l  P( l
, }9 W" b' o# r0 k: _' i

$ I. H; A. K4 D) m. a7 @6 ]: I

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

liziang0509

谢谢分享。。。

蕾蕾

回复 5# liziang0509
3 V) y% i3 t4 Y' g

8 Z* g1 H7 R8 h; Z    靠。。。这么nx

52106813

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

jy0668

感谢分享，帮顶一下

zxwen

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

1365944322

支持宏程序，哈哈