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

羅蓋仙

以下是我的理论请参考，我并没有写得很周全
% N* N; r- S; A
#1=1234.
6 {3 ]- V) F/ ]+ c3 l#11=ABS[FIX[#1]]
#500=0.
% ]! O& \$ C- f  BWHILE[#11GT0.]DO1
#22=[#11/10.-FIX[#11/10.]]*10.
IF[#22 EQ 1.]TH #500=#500 OR 1.
2 f  @8 h; i7 X2 s# i+ VIF[#22 EQ 1.]GO3
IF[#22 EQ 2.]TH #500=#500 OR 2.
IF[#22 EQ 2.]GO3
, T( {  k  v8 c- V1 r' iIF[#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)
8 f6 t. f  g+ oN3 #11=FIX[#11/10.]
* L2 j9 J" @' E/ mEND1
' f+ k. Q) z# v% j' |M99
- ]4 b2 ~  G' g3 v2 r
以下为画蛇添足，多此一举。花拳欺敌法。目的搞死敌人
5 W! S) `4 m2 T. j$ o（逻辑运算有改）（WH里面的比较式有改）（除的变乘的;乘的变除的）
: I+ I/ U* c; h" }8 C( i! T
#1=1234.
+ G- X) T6 A3 ?9 N#11=FIX[ABS[#1]]
# _/ P2 ]" @( ?. {$ P) Q8 s#500=15.(全部装满，让下面逐一减去)
+ e6 q# P" I+ jWHILE[#11GE1.]DO1
#22=[#11*0.1-FIX[#11*0.1]]*/0.1
( K1 M4 L/ z/ HIF[#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.
IF[#22 EQ 2.]GO3
IF[#22 OR 3. EQ 1.]TH #500=#500 XOR 4.
& Y' v# ~5 ^8 a; d" J/ n. eIF[#22 EQ 3.]GO3
$ R* j/ E6 W" {) z6 SIF[#22 OR 4. EQ 1.]TH #500=#500 XOR 8.
9 J$ X3 d: Z( ?7 Z& C1 w6 ~IF[#22 EQ 4.]GO3
1 {( V/ D0 v; |#3000=1.(#1-MODE-ERROR)
6 S4 F; v& k  O2 mN3 #11=FIX[#11*0.1]
# y  d' c  ]& Y$ D; F$ c4 ]1 A$ YEND1
M99
7 L& t! Y) h% }% V! _

- d1 g8 w) B$ S* K3 N0 {
#1=1234.
#500=15.
#11=ABS[FIX[#1]]
WHILE[#11GT0.]DO1
#22=[#11/10.-FIX[#11/10.]]*10.
IF[#22 - 1. EQ 0.]TH #500=#500 - 1.
IF[#22 EQ 1.]GO3
IF[#22 - 2. EQ 0.]TH #500=#500 - 2.
1 U8 w1 F7 a5 bIF[#22 EQ 2.]GO3
IF[#22 - 3. EQ 0.]TH #500=#500 - 4.
" r  `! C6 G, I; R" q: ?IF[#22 EQ 3.]GO3
8 E; l5 W5 l, {+ x, a! uIF[#22 - 4. EQ 0.]TH #500=#500 - 8.
$ h/ O2 J, {$ z/ ?' dIF[#22 EQ 4.]GO3
#3000=1.(#1-MODE-ERROR)
. X# ~4 |7 j. p: @' h: fN3 #11=FIX[#11/10.]
END1
M99
; w6 q( W! Y% h, d$ x4 Y) X2 ?


#1=1234.
#11=ABS[FIX[#1]]
. c( C0 M2 F* p/ N$ ?#500=0.
WHILE[#11GT0.]DO1
#22=[#11/10.-FIX[#11/10.]]*10.
IF[#22 XOR 1. EQ 0.]TH #500=#500 OR 1.
- Y/ X) o  @0 {& {IF[#22 EQ 1.]GO3
IF[#22 XOR 2. EQ 0.]TH #500=#500 OR 2.
IF[#22 EQ 2.]GO3
$ k7 ^- H" n. y* l  VIF[#22 XOR 3. EQ 0.]TH #500=#500 OR 4.
; E) K! x8 ]& y" [- x2 S8 WIF[#22 EQ 3.]GO3
+ k* R/ L& z# X6 l7 O* h9 FIF[#22 XOR 4. EQ 0.]TH #500=#500 OR 8.
0 m; t8 G0 w5 w5 H' A$ jIF[#22 EQ 4.]GO3
7 `. \' j5 S$ [#3000=1.(#1-MODE-ERROR)
! `7 _, @% |) x. c- @. TN3 #11=FIX[#11/10.]
END1
M99

羅蓋仙

最底下紫字也可以改成
5 C2 g( s1 E" d8 @1 v8 \: D  t#500=#500 + 1.
) n  f4 n8 M3 }1 @/ N; j5 a#500=#500 + 2.
#500=#500 + 4.
, H4 |* @5 i. O) i#500=#500 + 8.

感想是使用OR最安全
8 Y1 f' Y$ n5 A用其他可能会被累加或被累减

渊源灼

厉害

rfonaqx

我顶啊。接着顶





) G0 y, U3 z+ D1 o7 g
0 }9 d( l: l7 g2 s5 h




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

liziang0509

谢谢分享。。。

蕾蕾

回复 5# liziang0509
: C6 Z' Q) ^. w8 _  _

4 z$ D$ r" K) H* G! `" d    靠。。。这么nx

52106813

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

jy0668

感谢分享，帮顶一下

zxwen

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

1365944322

支持宏程序，哈哈