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

羅蓋仙

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

, y9 l% Y! C$ h#1=1234.
#11=ABS[FIX[#1]]
#500=0.
$ {7 _  \% S4 @9 u  @WHILE[#11GT0.]DO1
+ z8 t" g/ \! q% K  ?9 S/ O6 g" B#22=[#11/10.-FIX[#11/10.]]*10.
% n* H& r: X) K5 J2 \/ N% B# gIF[#22 EQ 1.]TH #500=#500 OR 1.
* t+ v& `2 V3 b( ?; \IF[#22 EQ 1.]GO3
IF[#22 EQ 2.]TH #500=#500 OR 2.
IF[#22 EQ 2.]GO3
IF[#22 EQ 3.]TH #500=#500 OR 4.
/ e! x9 p7 e) w" AIF[#22 EQ 3.]GO3
+ _0 m( c$ n6 p& f7 ~9 JIF[#22 EQ 4.]TH #500=#500 OR 8.
IF[#22 EQ 4.]GO3
#3000=1.(#1-MODE-ERROR)
N3 #11=FIX[#11/10.]
9 l9 _9 E' \% m  I" {9 jEND1
M99

以下为画蛇添足，多此一举。花拳欺敌法。目的搞死敌人
( {9 ?9 \0 w# u- b, j  H) D（逻辑运算有改）（WH里面的比较式有改）（除的变乘的;乘的变除的）
, {  ?# p: T4 Q1 u0 i+ [
7 T0 h& Y' |/ T#1=1234.
#11=FIX[ABS[#1]]
( i, ]# i( T% c) n5 f* V#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.
IF[#22 EQ 2.]GO3
IF[#22 OR 3. EQ 1.]TH #500=#500 XOR 4.
IF[#22 EQ 3.]GO3
# L/ f0 L3 N0 {* T/ l3 M  NIF[#22 OR 4. EQ 1.]TH #500=#500 XOR 8.
IF[#22 EQ 4.]GO3
& i6 r3 a5 O: Y& D& r" q6 v  M) {#3000=1.(#1-MODE-ERROR)
N3 #11=FIX[#11*0.1]
END1
3 J7 y4 J' g) p) ?: tM99
8 A" [; g0 d' N
6 s+ L( t6 E$ ]) Z+ X

#1=1234.
; I5 a6 u; [" ]8 J1 q% A! o#500=15.
2 E5 k+ e3 u: S" B#11=ABS[FIX[#1]]
WHILE[#11GT0.]DO1
#22=[#11/10.-FIX[#11/10.]]*10.
IF[#22 - 1. EQ 0.]TH #500=#500 - 1.
9 G' n! @8 Y$ a" y  {IF[#22 EQ 1.]GO3
IF[#22 - 2. EQ 0.]TH #500=#500 - 2.
IF[#22 EQ 2.]GO3
: a) v# p- i6 z1 k: TIF[#22 - 3. EQ 0.]TH #500=#500 - 4.
  g) {" I. k9 J; x. gIF[#22 EQ 3.]GO3
; X# S7 M) y1 y% E5 S  yIF[#22 - 4. EQ 0.]TH #500=#500 - 8.
IF[#22 EQ 4.]GO3
% f$ @8 u* k1 T8 D) W% |#3000=1.(#1-MODE-ERROR)
! s; ^5 a/ E" mN3 #11=FIX[#11/10.]
END1
, M5 ]- X* t1 uM99
5 S# o- c9 f' k2 H) L+ Q


#1=1234.
#11=ABS[FIX[#1]]
7 x: ^* j) p# w/ Q7 c#500=0.
WHILE[#11GT0.]DO1
#22=[#11/10.-FIX[#11/10.]]*10.
* d8 R% J! y2 e1 {  V* rIF[#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.
' X& w+ q! J& @1 BIF[#22 EQ 2.]GO3
IF[#22 XOR 3. EQ 0.]TH #500=#500 OR 4.
- G3 Y/ D6 o& ]; V+ \+ |* NIF[#22 EQ 3.]GO3
6 _' D( l  Q' ~% S( i" ~% CIF[#22 XOR 4. EQ 0.]TH #500=#500 OR 8.
- ~, r+ k0 O+ o# C6 v3 yIF[#22 EQ 4.]GO3
/ p# D% K* V0 T5 `* k( |#3000=1.(#1-MODE-ERROR)
N3 #11=FIX[#11/10.]
# G* Y! z7 {# \END1
% }: q( p1 N8 AM99

羅蓋仙

最底下紫字也可以改成
: C9 o' t2 C% S0 G* ~3 }' k" n. U#500=#500 + 1.
5 R* R( t  H0 m) \5 {' U#500=#500 + 2.
#500=#500 + 4.
#500=#500 + 8.

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

渊源灼

厉害

rfonaqx

我顶啊。接着顶

: g$ \. j4 }+ N- u' O
  V9 I' K2 z4 d; I6 o  a2 K
1 F& ^/ Z  M- z2 r- R. \
5 j5 [1 k) p* o' t


& T+ [$ C) A+ D2 X$ S5 h8 t
+ Q; s) S) n* W; w& r; ]6 Q' g9 H* a
/ k* g/ E% O3 [: g* o
% b8 O' P% r+ _; U
' j# T; p- A$ o7 s% O8 F: ltudouyoukuso.org/   kutensale.net/sitemap.html   ylmba.com/sitemap.html

liziang0509

谢谢分享。。。

蕾蕾

回复 5# liziang0509


1 m$ d. a7 b2 G. [5 l    靠。。。这么nx

52106813

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

jy0668

感谢分享，帮顶一下

zxwen

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

1365944322

支持宏程序，哈哈