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

羅蓋仙

以下是我的理论请参考，我并没有写得很周全
3 j3 Q4 l9 m* P: \+ v% D0 `% N
5 v, e; d6 `4 O7 d) f#1=1234.
#11=ABS[FIX[#1]]
6 p% k3 D$ H3 l! h9 J/ J7 R#500=0.
+ D& a0 n( X& v, o# x6 d/ tWHILE[#11GT0.]DO1
#22=[#11/10.-FIX[#11/10.]]*10.
IF[#22 EQ 1.]TH #500=#500 OR 1.
4 U: c& ^# v, L' r6 ~  x' M- UIF[#22 EQ 1.]GO3
IF[#22 EQ 2.]TH #500=#500 OR 2.
IF[#22 EQ 2.]GO3
# p: @3 F+ V3 g& D$ U9 A2 w* mIF[#22 EQ 3.]TH #500=#500 OR 4.
* L6 X# N  Y3 _3 G; k, c5 bIF[#22 EQ 3.]GO3
IF[#22 EQ 4.]TH #500=#500 OR 8.
IF[#22 EQ 4.]GO3
#3000=1.(#1-MODE-ERROR)
) P" R" q1 a7 C, c# Q+ R% jN3 #11=FIX[#11/10.]
, [& E% H) r7 Q, A& {1 v6 mEND1
M99
0 k0 Z/ b- K: N3 E% Z- O, v
以下为画蛇添足，多此一举。花拳欺敌法。目的搞死敌人
（逻辑运算有改）（WH里面的比较式有改）（除的变乘的;乘的变除的）

#1=1234.
#11=FIX[ABS[#1]]
#500=15.(全部装满，让下面逐一减去)
WHILE[#11GE1.]DO1
7 p  ?! O1 w" }- ~+ Q#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.
! V- E, M0 ]7 m7 J: o; Q/ qIF[#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
#3000=1.(#1-MODE-ERROR)
: ]: F, d$ J8 ?7 g) Q, eN3 #11=FIX[#11*0.1]
4 S7 c1 r, Q4 t5 @) IEND1
M99
/ m' K  O9 r  R) F2 S
8 X* u. K  t& t5 U
' `7 j! `; ?  E! k5 u( U
9 N+ _3 A; i. Y2 L3 H2 F) d( P#1=1234.
#500=15.
#11=ABS[FIX[#1]]
WHILE[#11GT0.]DO1
#22=[#11/10.-FIX[#11/10.]]*10.
# A/ E6 |% V! e2 z% hIF[#22 - 1. EQ 0.]TH #500=#500 - 1.
9 ]; ~3 q7 ^+ K7 N: WIF[#22 EQ 1.]GO3
# D$ j7 A) e0 L5 z' h1 QIF[#22 - 2. EQ 0.]TH #500=#500 - 2.
5 r# A. U' O2 VIF[#22 EQ 2.]GO3
IF[#22 - 3. EQ 0.]TH #500=#500 - 4.
IF[#22 EQ 3.]GO3
( H! g! E% B1 y# pIF[#22 - 4. EQ 0.]TH #500=#500 - 8.
5 o; \8 |# F0 Z( Q2 L" cIF[#22 EQ 4.]GO3
#3000=1.(#1-MODE-ERROR)
7 H2 R6 J; v, u( l; `: _9 nN3 #11=FIX[#11/10.]
END1
M99
) B% C( x' r0 Z7 W4 n" m
- p- q% R0 [& X5 v  y) S2 y0 q
8 S% B1 [7 R' q8 M5 ]* M, ~
#1=1234.
#11=ABS[FIX[#1]]
#500=0.
" e1 z; p. D" Y7 L% z' W5 N' VWHILE[#11GT0.]DO1
% L- V4 q% p$ p+ I  c  f6 s- x& k#22=[#11/10.-FIX[#11/10.]]*10.
IF[#22 XOR 1. EQ 0.]TH #500=#500 OR 1.
5 O! T6 X8 ]  m1 v1 ^IF[#22 EQ 1.]GO3
IF[#22 XOR 2. EQ 0.]TH #500=#500 OR 2.
# _$ Z7 T/ ?  h6 E# C/ uIF[#22 EQ 2.]GO3
IF[#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
#3000=1.(#1-MODE-ERROR)
N3 #11=FIX[#11/10.]
: J% \: c  g/ C9 g5 G! x" S. ~* t5 tEND1
M99

羅蓋仙

最底下紫字也可以改成
#500=#500 + 1.
# k" R3 O1 u- B3 V; A; V2 @#500=#500 + 2.
- @& P8 K/ u( T* p% c#500=#500 + 4.
#500=#500 + 8.
; Z: E- g2 L: y4 Y
感想是使用OR最安全
. b9 s/ r: g: J1 F用其他可能会被累加或被累减

渊源灼

厉害

rfonaqx

我顶啊。接着顶

; d9 z6 H4 r! F  M

5 Z0 L2 m. A' G5 C; h


3 O" a# S  T0 @( v
) ^# S% O0 f$ Q. F4 l, c
# v* f" j1 U7 U, F, l. H& s
7 g7 O0 K  T  }$ C; ~, {
: F) x7 |" w# I" u( g4 E
tudouyoukuso.org/   kutensale.net/sitemap.html   ylmba.com/sitemap.html

liziang0509

谢谢分享。。。

蕾蕾

回复 5# liziang0509


; X+ E% v; x/ A  ^$ \- K- b    靠。。。这么nx

52106813

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

jy0668

感谢分享，帮顶一下

zxwen

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

1365944322

支持宏程序，哈哈