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

羅蓋仙

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

#1=1234.
#11=ABS[FIX[#1]]
% C# C, @) ], |% ?#500=0.
/ l. }# H  l. m" EWHILE[#11GT0.]DO1
#22=[#11/10.-FIX[#11/10.]]*10.
IF[#22 EQ 1.]TH #500=#500 OR 1.
IF[#22 EQ 1.]GO3
, I' F& y- X  F% q% Y$ RIF[#22 EQ 2.]TH #500=#500 OR 2.
3 @% x2 P) U( t/ _IF[#22 EQ 2.]GO3
- o# m9 e- ], E/ f/ TIF[#22 EQ 3.]TH #500=#500 OR 4.
9 W6 N2 T3 Q3 Q8 z5 MIF[#22 EQ 3.]GO3
IF[#22 EQ 4.]TH #500=#500 OR 8.
7 w% O4 z5 o- g1 t2 gIF[#22 EQ 4.]GO3
' x- M( n/ Q& b% T/ a. m) j  q' s#3000=1.(#1-MODE-ERROR)
  k; V% O5 Q/ k% ^8 H: SN3 #11=FIX[#11/10.]
END1
7 K. C' h- }( J; a/ A: }M99
+ D7 |4 ?0 E# O* K
以下为画蛇添足，多此一举。花拳欺敌法。目的搞死敌人
（逻辑运算有改）（WH里面的比较式有改）（除的变乘的;乘的变除的）
: u% [7 f/ {+ B- X; d, `: ~
#1=1234.
) y, ~4 p4 x+ f4 `) t* |, _  q#11=FIX[ABS[#1]]
+ ~" b$ V( u" _" L#500=15.(全部装满，让下面逐一减去)
) a3 Y# ^/ ^) N4 y1 C; Q7 TWHILE[#11GE1.]DO1
#22=[#11*0.1-FIX[#11*0.1]]*/0.1
8 P8 x6 D) T: L! `1 i4 wIF[#22 OR 1. EQ 1.]TH #500=#500 XOR 1.
7 U& v& b* ?( ?- N: J& G3 ]( AIF[#22 EQ 1.]GO3
IF[#22 OR 2. EQ 1.]TH #500=#500 XOR 2.
( e! z, i5 ^3 VIF[#22 EQ 2.]GO3
IF[#22 OR 3. EQ 1.]TH #500=#500 XOR 4.
IF[#22 EQ 3.]GO3
% I- E; v* U2 u. K/ `. O" b/ [4 lIF[#22 OR 4. EQ 1.]TH #500=#500 XOR 8.
IF[#22 EQ 4.]GO3
/ m  L0 W% I1 a' g, P0 ~+ h( g#3000=1.(#1-MODE-ERROR)
$ v4 K( ]2 x2 w# eN3 #11=FIX[#11*0.1]
' c! a3 D9 F; ^& {END1
7 m- n7 b% r2 B4 d2 ]* UM99
6 \9 J# t& p  @; K4 @- }+ ?; P
* }6 |: h5 @) n* ]9 x

#1=1234.
# G- v$ s% m$ L#500=15.
#11=ABS[FIX[#1]]
WHILE[#11GT0.]DO1
#22=[#11/10.-FIX[#11/10.]]*10.
6 N8 \. `2 T. x/ eIF[#22 - 1. EQ 0.]TH #500=#500 - 1.
' V' U. a" {1 G+ t7 S$ K$ t2 vIF[#22 EQ 1.]GO3
4 D4 U0 j* z1 b! t9 mIF[#22 - 2. EQ 0.]TH #500=#500 - 2.
IF[#22 EQ 2.]GO3
8 ]- f+ e" K$ K/ IIF[#22 - 3. EQ 0.]TH #500=#500 - 4.
IF[#22 EQ 3.]GO3
. K  E+ y6 w! I7 eIF[#22 - 4. EQ 0.]TH #500=#500 - 8.
IF[#22 EQ 4.]GO3
/ U2 p; o. U! v1 F6 g$ G7 m) o* Z#3000=1.(#1-MODE-ERROR)
N3 #11=FIX[#11/10.]
5 ~; \. w' `% K6 U0 {3 tEND1
$ u: F, Q( E# |) l4 `5 [M99
+ j" x/ k9 w9 {4 j" G4 F/ B
' H+ X! ?/ g8 ^; ~1 _' i

; A3 O' ^1 h6 ]#1=1234.
#11=ABS[FIX[#1]]
" O& K& k" t- E% p5 ~% s* T- Y#500=0.
4 F' s6 ^$ r: j% _9 hWHILE[#11GT0.]DO1
" J% H1 y- t5 H- J% I#22=[#11/10.-FIX[#11/10.]]*10.
9 ~. a  c3 l8 w( ^+ FIF[#22 XOR 1. EQ 0.]TH #500=#500 OR 1.
IF[#22 EQ 1.]GO3
" r* _4 s$ G2 L1 q- r! {! kIF[#22 XOR 2. EQ 0.]TH #500=#500 OR 2.
: ?% v! d( J- K  {IF[#22 EQ 2.]GO3
1 M# O* p5 Q; Q: T' gIF[#22 XOR 3. EQ 0.]TH #500=#500 OR 4.
IF[#22 EQ 3.]GO3
4 a0 V" S5 ]( c  l1 QIF[#22 XOR 4. EQ 0.]TH #500=#500 OR 8.
IF[#22 EQ 4.]GO3
$ t" v1 T! N& q9 ?- B#3000=1.(#1-MODE-ERROR)
N3 #11=FIX[#11/10.]
END1
M99

羅蓋仙

最底下紫字也可以改成
#500=#500 + 1.
# h7 \/ m& X' {7 x#500=#500 + 2.
#500=#500 + 4.
8 C' a8 p' g' L/ [- m) T9 u#500=#500 + 8.

感想是使用OR最安全
7 G8 d- j7 {, m. D7 F! P! s用其他可能会被累加或被累减

渊源灼

厉害

rfonaqx

我顶啊。接着顶


; n/ j3 j4 N# Q4 Y1 z

1 Z9 b7 H. v0 l  g: \- u. Q
+ U+ t: X0 \+ q. L" f! n: C
+ ?! q2 T0 x; B2 S. n+ g6 c: ]
1 x/ ]9 D4 ~3 n) e- }8 J

' ]% J$ O* S5 o8 P9 n6 V* c. l% X

! u. H$ X9 ~  s  K7 t3 Gtudouyoukuso.org/   kutensale.net/sitemap.html   ylmba.com/sitemap.html

liziang0509

谢谢分享。。。

蕾蕾

回复 5# liziang0509


5 f1 U4 N2 o2 U5 u% x" k    靠。。。这么nx

52106813

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

jy0668

感谢分享，帮顶一下

zxwen

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

1365944322

支持宏程序，哈哈