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

羅蓋仙

以下是我的理论请参考，我并没有写得很周全
" z3 n2 \4 G7 |+ B; a
+ F( t5 q3 s% ]6 [7 U#1=1234.
5 p) ?3 v$ j  A" M% \& G. h- s; P#11=ABS[FIX[#1]]
9 p' J, x3 @) F# L' U" j#500=0.
WHILE[#11GT0.]DO1
. D! s( @/ R' X' g$ }5 c0 u#22=[#11/10.-FIX[#11/10.]]*10.
IF[#22 EQ 1.]TH #500=#500 OR 1.
, ^4 X/ i5 h$ o. a0 I, LIF[#22 EQ 1.]GO3
IF[#22 EQ 2.]TH #500=#500 OR 2.
% w% _6 M" C" @$ A; Z  n/ rIF[#22 EQ 2.]GO3
9 \# u8 K# m# F4 ^IF[#22 EQ 3.]TH #500=#500 OR 4.
IF[#22 EQ 3.]GO3
IF[#22 EQ 4.]TH #500=#500 OR 8.
5 o1 c7 {& \2 B5 ^% V6 P+ \IF[#22 EQ 4.]GO3
#3000=1.(#1-MODE-ERROR)
0 L' I; o; j9 T, N3 SN3 #11=FIX[#11/10.]
END1
& c5 P+ ^2 |7 S2 H$ g3 q* i9 a/ }M99
. [7 c8 E! r/ _! P# a
以下为画蛇添足，多此一举。花拳欺敌法。目的搞死敌人
8 I% G7 f/ @8 X7 T+ }$ N/ _0 l（逻辑运算有改）（WH里面的比较式有改）（除的变乘的;乘的变除的）
" b* v) V8 c- \8 B
#1=1234.
) b3 k( G2 b& f& \, h, p# q& v- p#11=FIX[ABS[#1]]
7 J, ?! ^  z+ N( x/ f9 c2 L#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.
5 H* ]! s0 Z; m) [IF[#22 EQ 1.]GO3
/ p, o$ a7 }! _IF[#22 OR 2. EQ 1.]TH #500=#500 XOR 2.
0 s$ L& q' O" v0 `  x# l0 h3 D, z+ @IF[#22 EQ 2.]GO3
IF[#22 OR 3. EQ 1.]TH #500=#500 XOR 4.
  C9 q6 K- T8 B' jIF[#22 EQ 3.]GO3
0 W0 u5 s5 T, M+ |& V8 e3 U( _$ @IF[#22 OR 4. EQ 1.]TH #500=#500 XOR 8.
IF[#22 EQ 4.]GO3
1 |0 o( _2 {5 I$ ]#3000=1.(#1-MODE-ERROR)
8 T  u; t, V8 Z$ o0 \$ E/ T8 l( QN3 #11=FIX[#11*0.1]
; o% n0 p- f. ?+ I7 VEND1
$ f" ~/ \; W5 bM99


- L: K. d. e' ?, U! ^0 a2 i: d
#1=1234.
#500=15.
#11=ABS[FIX[#1]]
  i( b2 U3 u# W$ |. J6 B6 aWHILE[#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.
; L$ R8 f5 f3 {% i, `( Y! DIF[#22 EQ 2.]GO3
IF[#22 - 3. EQ 0.]TH #500=#500 - 4.
! N, o, U$ U; `# m% u" J3 r0 hIF[#22 EQ 3.]GO3
8 d* o4 ~% L* c& d+ bIF[#22 - 4. EQ 0.]TH #500=#500 - 8.
IF[#22 EQ 4.]GO3
3 U7 T' e- d4 x, r) b; C- ~#3000=1.(#1-MODE-ERROR)
* A- b* [3 @- s3 {N3 #11=FIX[#11/10.]
END1
M99



; L. H0 l! T! Y- m! V8 o#1=1234.
#11=ABS[FIX[#1]]
8 d7 ?  H% b3 n& f, n; X# j9 ?* }#500=0.
WHILE[#11GT0.]DO1
0 h7 b1 I5 t% z% H. R- n#22=[#11/10.-FIX[#11/10.]]*10.
IF[#22 XOR 1. EQ 0.]TH #500=#500 OR 1.
IF[#22 EQ 1.]GO3
2 ^* ~) `: v" _+ ]IF[#22 XOR 2. EQ 0.]TH #500=#500 OR 2.
IF[#22 EQ 2.]GO3
IF[#22 XOR 3. EQ 0.]TH #500=#500 OR 4.
IF[#22 EQ 3.]GO3
0 E) d0 ~* O6 K  m# V, i$ |2 oIF[#22 XOR 4. EQ 0.]TH #500=#500 OR 8.
IF[#22 EQ 4.]GO3
( x! m  \# [. n3 u3 [#3000=1.(#1-MODE-ERROR)
N3 #11=FIX[#11/10.]
3 K( n9 ]& Z+ F4 Q  N+ D! AEND1
M99

羅蓋仙

最底下紫字也可以改成
; R6 r, ]; o$ t, U$ N: m& H6 T$ ]0 d#500=#500 + 1.
0 K" h9 ~5 n+ q7 v7 l1 k* ?2 {#500=#500 + 2.
#500=#500 + 4.
* e  j' G1 \$ b" w#500=#500 + 8.

感想是使用OR最安全
  Z) ]9 \2 M5 y9 Y9 y用其他可能会被累加或被累减

渊源灼

厉害

rfonaqx

我顶啊。接着顶
4 [8 ]9 v; m5 J; Z& [
  ^  ]! q5 q* f6 ^' ]# l, w
) W: W; D: p3 e) a! g' R

$ C) [3 s4 e$ g6 }+ F+ `, D; j* G

" O- [8 L; g& Z4 e
' Q. {9 }& S1 U1 f7 G2 d


# H, ~8 s4 N4 F/ \; U0 Y: w
tudouyoukuso.org/   kutensale.net/sitemap.html   ylmba.com/sitemap.html

liziang0509

谢谢分享。。。

蕾蕾

回复 5# liziang0509

/ Q7 |/ d; `% H, v, _4 j
1 q$ F8 G" f' X7 C5 W    靠。。。这么nx

52106813

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

jy0668

感谢分享，帮顶一下

zxwen

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

1365944322

支持宏程序，哈哈