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

羅蓋仙

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

+ N2 R8 S! J/ I' C  `#1=1234.
6 ^1 U% ]! z) k; t! e#11=ABS[FIX[#1]]
2 x6 g% i1 ^8 q#500=0.
% a8 r  _" R2 d, W3 t2 ^' fWHILE[#11GT0.]DO1
4 q) [) b/ _" \  o) P* ?: g#22=[#11/10.-FIX[#11/10.]]*10.
IF[#22 EQ 1.]TH #500=#500 OR 1.
IF[#22 EQ 1.]GO3
1 M; H, y4 H  t/ kIF[#22 EQ 2.]TH #500=#500 OR 2.
IF[#22 EQ 2.]GO3
- A, q2 B* v$ }; z0 wIF[#22 EQ 3.]TH #500=#500 OR 4.
, d; b% |, ?% ]/ `# \' S/ UIF[#22 EQ 3.]GO3
IF[#22 EQ 4.]TH #500=#500 OR 8.
- f! z/ z; t- `; r# ^5 iIF[#22 EQ 4.]GO3
#3000=1.(#1-MODE-ERROR)
. w3 N( G8 [7 J' {& D; f  V8 UN3 #11=FIX[#11/10.]
END1
7 @% A) n% l" A6 f# U* yM99

以下为画蛇添足，多此一举。花拳欺敌法。目的搞死敌人
4 w% K8 g3 ?* X9 A& y+ p（逻辑运算有改）（WH里面的比较式有改）（除的变乘的;乘的变除的）
# `4 |+ Y& r3 s/ L
#1=1234.
#11=FIX[ABS[#1]]
#500=15.(全部装满，让下面逐一减去)
  x3 u8 r% {0 V# [0 ZWHILE[#11GE1.]DO1
#22=[#11*0.1-FIX[#11*0.1]]*/0.1
  l2 |3 K9 ]2 w' v8 e& k3 {- aIF[#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.
1 C6 f8 w; s: t/ y. d+ u3 HIF[#22 EQ 2.]GO3
2 F0 q5 x7 {5 v  {IF[#22 OR 3. EQ 1.]TH #500=#500 XOR 4.
9 L' s! R0 ?" Q/ R& V% uIF[#22 EQ 3.]GO3
; l- |) r4 @, SIF[#22 OR 4. EQ 1.]TH #500=#500 XOR 8.
IF[#22 EQ 4.]GO3
#3000=1.(#1-MODE-ERROR)
0 L3 z8 @" V  V+ _- J9 JN3 #11=FIX[#11*0.1]
* t2 G7 d! U) C3 ?/ {7 z8 M  W, DEND1
7 e, E  `; _. T6 R2 bM99
: _9 W( Q) W8 R. @# g8 }
: p$ [" v# K" _2 n. [+ N

, O- N8 m" o2 o6 D; M. g& h1 o#1=1234.
# K" J5 R' m( n( U#500=15.
4 `  ~. H& E4 d. `#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.
IF[#22 EQ 2.]GO3
IF[#22 - 3. EQ 0.]TH #500=#500 - 4.
IF[#22 EQ 3.]GO3
IF[#22 - 4. EQ 0.]TH #500=#500 - 8.
- C+ G5 D/ s9 e7 F& ?) bIF[#22 EQ 4.]GO3
; H9 E' W' n  W% h. A#3000=1.(#1-MODE-ERROR)
. x' l/ |0 t5 m' Z: V/ DN3 #11=FIX[#11/10.]
END1
2 _) t# ?7 @8 M5 jM99
! v6 p1 F/ x$ b) e4 Y7 u+ w: H0 r

* F6 w+ f9 S8 Q9 V
, I2 f. j# ]; R1 u# l# \#1=1234.
#11=ABS[FIX[#1]]
1 R& Q: }, j0 W: T5 _5 p8 b1 \#500=0.
# g% |+ z6 q3 _  f% W, n# SWHILE[#11GT0.]DO1
! H) b: a1 d% `" o0 Q) r! C5 y#22=[#11/10.-FIX[#11/10.]]*10.
IF[#22 XOR 1. EQ 0.]TH #500=#500 OR 1.
3 j+ S( T+ }1 DIF[#22 EQ 1.]GO3
IF[#22 XOR 2. EQ 0.]TH #500=#500 OR 2.
. Z. O: T# @: h! N( jIF[#22 EQ 2.]GO3
IF[#22 XOR 3. EQ 0.]TH #500=#500 OR 4.
! D% r* A: N+ c; E2 @IF[#22 EQ 3.]GO3
4 Q0 A8 _1 ?4 |" r" G/ }IF[#22 XOR 4. EQ 0.]TH #500=#500 OR 8.
IF[#22 EQ 4.]GO3
. Q5 T( }1 Y2 @/ d#3000=1.(#1-MODE-ERROR)
! |: _6 O: i# o% g5 a# r  m, BN3 #11=FIX[#11/10.]
: z# N( K1 y4 ]9 z3 xEND1
M99

羅蓋仙

最底下紫字也可以改成
6 Z3 T$ s0 K3 l) }#500=#500 + 1.
#500=#500 + 2.
#500=#500 + 4.
#500=#500 + 8.
# B2 P! [1 S* x1 J/ q+ |+ h
感想是使用OR最安全
用其他可能会被累加或被累减

渊源灼

厉害

rfonaqx

我顶啊。接着顶


8 T3 s6 q' D* {0 b
' H4 T0 |; z0 c* l& {) A: q& z! d6 Y2 i


4 j0 D; n- t: f5 E8 }1 {

8 R: r8 _5 a! q5 a6 W4 N9 v
1 g/ M! s: W, r8 Z( I

8 e$ ~' ^- s* d) q7 f9 t* Atudouyoukuso.org/   kutensale.net/sitemap.html   ylmba.com/sitemap.html

liziang0509

谢谢分享。。。

蕾蕾

回复 5# liziang0509

' t4 [4 l: G+ C% p! \9 {
8 X0 m1 a% k! j3 E! p; s8 t    靠。。。这么nx

52106813

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

jy0668

感谢分享，帮顶一下

zxwen

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

1365944322

支持宏程序，哈哈