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

羅蓋仙

以下是我的理论请参考，我并没有写得很周全
9 D8 M( h7 D! C( w7 W
1 f% [+ ]$ I. Y" ^#1=1234.
! \' M; i7 O, N+ f% w  O+ {#11=ABS[FIX[#1]]
#500=0.
WHILE[#11GT0.]DO1
; h) I3 `. w4 W; \* o) Z#22=[#11/10.-FIX[#11/10.]]*10.
3 N" M0 S' ^" R# V8 r" ?" dIF[#22 EQ 1.]TH #500=#500 OR 1.
5 m# q9 `, o4 B" I8 I6 y; |IF[#22 EQ 1.]GO3
IF[#22 EQ 2.]TH #500=#500 OR 2.
7 ~) h& s1 w! d: {' W; q3 YIF[#22 EQ 2.]GO3
3 U$ F3 W- h3 j2 p' Q6 c3 ?IF[#22 EQ 3.]TH #500=#500 OR 4.
IF[#22 EQ 3.]GO3
; y* _- j1 N+ T/ s" x' }; tIF[#22 EQ 4.]TH #500=#500 OR 8.
IF[#22 EQ 4.]GO3
#3000=1.(#1-MODE-ERROR)
; @$ A: v6 H+ a# S8 XN3 #11=FIX[#11/10.]
5 |8 l& x6 H" [8 j5 r/ s1 \4 E4 SEND1
! x+ [# [) V* I/ c9 w' ~0 QM99

以下为画蛇添足，多此一举。花拳欺敌法。目的搞死敌人
- R6 F/ a/ _4 r（逻辑运算有改）（WH里面的比较式有改）（除的变乘的;乘的变除的）

#1=1234.
#11=FIX[ABS[#1]]
#500=15.(全部装满，让下面逐一减去)
8 N3 r& L! {) xWHILE[#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
0 g3 z. ?/ f$ i/ b: O$ NIF[#22 OR 2. EQ 1.]TH #500=#500 XOR 2.
IF[#22 EQ 2.]GO3
! q4 \# v0 R0 D/ o# R: uIF[#22 OR 3. EQ 1.]TH #500=#500 XOR 4.
  L3 c. b# {: Y# Z9 M+ ]7 [$ BIF[#22 EQ 3.]GO3
IF[#22 OR 4. EQ 1.]TH #500=#500 XOR 8.
IF[#22 EQ 4.]GO3
  ?. z0 x3 P% J0 P! p#3000=1.(#1-MODE-ERROR)
. k3 p' G4 M& h6 B" [/ mN3 #11=FIX[#11*0.1]
END1
M99
& U  c+ v* {9 `' i

/ ]( A1 x9 G  y, ~
# @/ J) e5 |/ }: p* I#1=1234.
#500=15.
7 @: Y2 _  {$ i3 c#11=ABS[FIX[#1]]
, t* t' l8 F5 B3 w: JWHILE[#11GT0.]DO1
#22=[#11/10.-FIX[#11/10.]]*10.
6 {! F0 L2 d! cIF[#22 - 1. EQ 0.]TH #500=#500 - 1.
8 j2 t! d, A2 y" ?3 q' ?- VIF[#22 EQ 1.]GO3
/ @$ W2 V) z4 S+ F2 \7 |IF[#22 - 2. EQ 0.]TH #500=#500 - 2.
IF[#22 EQ 2.]GO3
IF[#22 - 3. EQ 0.]TH #500=#500 - 4.
" R! n' i2 `, u. r, ]4 w) u: ZIF[#22 EQ 3.]GO3
3 Q5 y) C- Y6 a, q; I: g* S6 HIF[#22 - 4. EQ 0.]TH #500=#500 - 8.
IF[#22 EQ 4.]GO3
. [  N, j* ?: |0 |#3000=1.(#1-MODE-ERROR)
$ f5 P. ?' b# M  B* u/ kN3 #11=FIX[#11/10.]
END1
M99
- h* i" t  q- B" @. s
' p9 J1 j8 ]9 t' d8 \) L
: _' f- s( L! D* A* }3 t
# v/ j: H. P/ \  \1 q. s2 g#1=1234.
#11=ABS[FIX[#1]]
( e% d7 v- }! ^; n$ Q" N* u( h#500=0.
WHILE[#11GT0.]DO1
- Y0 y, Z% \+ e) d, \#22=[#11/10.-FIX[#11/10.]]*10.
* B# p! c7 B3 u  I3 D! c& U5 xIF[#22 XOR 1. EQ 0.]TH #500=#500 OR 1.
( N3 r( d1 P3 _IF[#22 EQ 1.]GO3
IF[#22 XOR 2. EQ 0.]TH #500=#500 OR 2.
7 }! ]4 l& s! C" ^! d" ^" q/ @IF[#22 EQ 2.]GO3
+ D4 n/ g: e1 a/ e  RIF[#22 XOR 3. EQ 0.]TH #500=#500 OR 4.
IF[#22 EQ 3.]GO3
$ e+ j7 U* f/ \$ s# AIF[#22 XOR 4. EQ 0.]TH #500=#500 OR 8.
IF[#22 EQ 4.]GO3
, B8 Z* U. @4 ^+ ~: _# t' x#3000=1.(#1-MODE-ERROR)
2 T+ v- b8 U9 m4 PN3 #11=FIX[#11/10.]
9 v, M; o3 n- N! CEND1
M99

羅蓋仙

最底下紫字也可以改成
#500=#500 + 1.
#500=#500 + 2.
6 _" @# K8 z) R* ^# d1 ^# V) p  k#500=#500 + 4.
& r8 e; n, t9 \! {#500=#500 + 8.
) a) n: l! x# a6 P2 ^
0 _- d; ~+ b2 l5 o感想是使用OR最安全
用其他可能会被累加或被累减

渊源灼

厉害

rfonaqx

我顶啊。接着顶
4 C/ s; z* J) s) P1 l+ p& M

6 w* G/ v4 X; X

3 G$ g" Z( Y  Q+ O! }& d
( c/ U# N: C4 x# q





3 l3 l4 s$ f/ P9 k0 E" a0 H2 C. Btudouyoukuso.org/   kutensale.net/sitemap.html   ylmba.com/sitemap.html

liziang0509

谢谢分享。。。

蕾蕾

回复 5# liziang0509
( m) n# l+ a3 e
2 y; d6 M. V( n! a2 I0 @2 z
    靠。。。这么nx

52106813

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

jy0668

感谢分享，帮顶一下

zxwen

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

1365944322

支持宏程序，哈哈