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

羅蓋仙

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

. ^0 [  B( n% z. i; @% m4 s% X#1=1234.
#11=ABS[FIX[#1]]
2 W5 v& [0 g. f9 e' R4 F  v; e#500=0.
WHILE[#11GT0.]DO1
#22=[#11/10.-FIX[#11/10.]]*10.
/ Y% @; @) d6 C; @IF[#22 EQ 1.]TH #500=#500 OR 1.
IF[#22 EQ 1.]GO3
1 E) O* l( ?- [& @IF[#22 EQ 2.]TH #500=#500 OR 2.
  Q" c- L( X4 S0 [/ mIF[#22 EQ 2.]GO3
9 h$ V: C& e% A% wIF[#22 EQ 3.]TH #500=#500 OR 4.
9 a* [# e7 j6 w( Y: OIF[#22 EQ 3.]GO3
IF[#22 EQ 4.]TH #500=#500 OR 8.
IF[#22 EQ 4.]GO3
#3000=1.(#1-MODE-ERROR)
N3 #11=FIX[#11/10.]
END1
M99
( p1 I% n2 V5 y$ V
以下为画蛇添足，多此一举。花拳欺敌法。目的搞死敌人
0 u4 ~# ]* D" m1 k7 I3 q（逻辑运算有改）（WH里面的比较式有改）（除的变乘的;乘的变除的）

#1=1234.
#11=FIX[ABS[#1]]
* B) W+ T8 K7 P#500=15.(全部装满，让下面逐一减去)
, Y; ?9 f3 q+ @; b$ d- @WHILE[#11GE1.]DO1
. j# m% {& \' J+ E; ~  l* q# w& m#22=[#11*0.1-FIX[#11*0.1]]*/0.1
$ P9 m# P0 H$ ^* p% {/ NIF[#22 OR 1. EQ 1.]TH #500=#500 XOR 1.
IF[#22 EQ 1.]GO3
+ A) u6 N; l, w- Q6 N* cIF[#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.
IF[#22 EQ 3.]GO3
IF[#22 OR 4. EQ 1.]TH #500=#500 XOR 8.
IF[#22 EQ 4.]GO3
: F4 h& h9 h  A, L' ^#3000=1.(#1-MODE-ERROR)
$ }. S0 A2 c, C3 DN3 #11=FIX[#11*0.1]
END1
M99

) U" Z6 [7 q5 S3 H
, ~' S. ~8 ]( S+ ~
+ J. o/ \) E; |. x#1=1234.
#500=15.
#11=ABS[FIX[#1]]
- [$ {! o" R' @) n2 H) c& ?$ cWHILE[#11GT0.]DO1
0 E1 n" D& C) D) L#22=[#11/10.-FIX[#11/10.]]*10.
IF[#22 - 1. EQ 0.]TH #500=#500 - 1.
: I, {2 z4 V( I5 WIF[#22 EQ 1.]GO3
IF[#22 - 2. EQ 0.]TH #500=#500 - 2.
. X, P1 X7 P5 d2 CIF[#22 EQ 2.]GO3
IF[#22 - 3. EQ 0.]TH #500=#500 - 4.
/ K$ f7 D' T% M! EIF[#22 EQ 3.]GO3
IF[#22 - 4. EQ 0.]TH #500=#500 - 8.
IF[#22 EQ 4.]GO3
6 U1 F  u. ^1 I4 R#3000=1.(#1-MODE-ERROR)
) a# p5 I1 w0 \) l8 G7 JN3 #11=FIX[#11/10.]
END1
M99
  [8 V. n! x: D" l# P: j* K) P


#1=1234.
8 v6 o& R/ {9 w+ U2 K: x#11=ABS[FIX[#1]]
3 V; g/ A( w0 g7 A" s7 ^- B#500=0.
" _" G% @5 e' c0 vWHILE[#11GT0.]DO1
#22=[#11/10.-FIX[#11/10.]]*10.
IF[#22 XOR 1. EQ 0.]TH #500=#500 OR 1.
2 M; U' U2 V) F" H% Q/ R. zIF[#22 EQ 1.]GO3
$ [1 I9 M( H! e" z9 iIF[#22 XOR 2. EQ 0.]TH #500=#500 OR 2.
  o8 \3 g3 o( d  @' ?IF[#22 EQ 2.]GO3
IF[#22 XOR 3. EQ 0.]TH #500=#500 OR 4.
' g; o! B8 h) U7 a6 `# a0 W' ^1 L- [IF[#22 EQ 3.]GO3
IF[#22 XOR 4. EQ 0.]TH #500=#500 OR 8.
IF[#22 EQ 4.]GO3
  g+ X9 k/ N/ V#3000=1.(#1-MODE-ERROR)
N3 #11=FIX[#11/10.]
+ F/ W. W! z: g! }+ m' d* PEND1
M99

羅蓋仙

最底下紫字也可以改成
2 P; d( E: R) M#500=#500 + 1.
$ e7 [+ u. I, ^/ Z' ]1 b#500=#500 + 2.
* M5 K3 w- [* `/ L% s" i: k$ o#500=#500 + 4.
#500=#500 + 8.
2 m  F: e# c  Q# `- w" Q/ s
感想是使用OR最安全
$ h1 t- |7 W* g* y# R4 w+ p$ E用其他可能会被累加或被累减

渊源灼

厉害

rfonaqx

我顶啊。接着顶
% n1 B" k0 |. C: W5 B3 y& \3 Y# E

, ~+ @# i4 Z/ l( E$ u# O, [* t' A

; s9 R5 x/ ?3 _& [# h( s0 p* R
4 w7 _" h# f% }




9 K: G- S5 y- l( f& q1 I
+ }" y; W" C* v4 @; q4 m9 mtudouyoukuso.org/   kutensale.net/sitemap.html   ylmba.com/sitemap.html

liziang0509

谢谢分享。。。

蕾蕾

回复 5# liziang0509

9 a2 T1 K+ Z. ^8 }* t
    靠。。。这么nx

52106813

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

jy0668

感谢分享，帮顶一下

zxwen

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

1365944322

支持宏程序，哈哈