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

羅蓋仙

以下是我的理论请参考，我并没有写得很周全
4 c4 A0 L( X. e; C( ?+ J! v5 M
' [2 S8 c, u6 P' D& p#1=1234.
3 B. ?: H+ @; x1 s! Z#11=ABS[FIX[#1]]
#500=0.
5 f2 T$ [& q4 |) S2 J5 lWHILE[#11GT0.]DO1
#22=[#11/10.-FIX[#11/10.]]*10.
, C5 W3 b, o$ y- R8 N6 o% QIF[#22 EQ 1.]TH #500=#500 OR 1.
* s, O* i3 c7 m: `IF[#22 EQ 1.]GO3
. b! _9 E! [+ SIF[#22 EQ 2.]TH #500=#500 OR 2.
IF[#22 EQ 2.]GO3
* \' @/ J+ m5 rIF[#22 EQ 3.]TH #500=#500 OR 4.
  L; U/ m5 I; P7 ?7 AIF[#22 EQ 3.]GO3
IF[#22 EQ 4.]TH #500=#500 OR 8.
IF[#22 EQ 4.]GO3
  l1 [7 J0 c5 V3 \# U8 x, D& C* @#3000=1.(#1-MODE-ERROR)
! b9 B/ V. [# `% p, Z9 C8 JN3 #11=FIX[#11/10.]
END1
M99

以下为画蛇添足，多此一举。花拳欺敌法。目的搞死敌人
（逻辑运算有改）（WH里面的比较式有改）（除的变乘的;乘的变除的）
0 D0 x9 N! P2 S
#1=1234.
8 b6 g9 S: b0 t#11=FIX[ABS[#1]]
#500=15.(全部装满，让下面逐一减去)
8 M4 C& T1 Y) _4 L& ~WHILE[#11GE1.]DO1
#22=[#11*0.1-FIX[#11*0.1]]*/0.1
, Y3 a" `4 F3 iIF[#22 OR 1. EQ 1.]TH #500=#500 XOR 1.
$ H, T7 R4 W3 R! z  B6 g3 ^( oIF[#22 EQ 1.]GO3
( o7 b# y9 }' W6 X) j. p. |IF[#22 OR 2. EQ 1.]TH #500=#500 XOR 2.
IF[#22 EQ 2.]GO3
IF[#22 OR 3. EQ 1.]TH #500=#500 XOR 4.
7 m6 p8 ~, C( \4 h' ?9 ~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)
N3 #11=FIX[#11*0.1]
END1
4 T- ]% d4 c6 O+ X' ^8 b. m* k9 \M99

1 ^( _$ I. ^! b4 P, {
1 P/ N* a  z  k5 {4 D
+ p" N) f9 |" x; E* d  }8 R0 P' q  V#1=1234.
5 n$ ?0 K; S  C8 t#500=15.
; l8 K' U) q) ?% X6 k0 w1 j#11=ABS[FIX[#1]]
. m4 k3 r$ d7 {! e. N# U7 oWHILE[#11GT0.]DO1
# @  K5 d5 y* R#22=[#11/10.-FIX[#11/10.]]*10.
( p. \5 |% U, sIF[#22 - 1. EQ 0.]TH #500=#500 - 1.
" F. I0 a7 Z; j# rIF[#22 EQ 1.]GO3
0 w4 m$ |9 _7 P; T2 SIF[#22 - 2. EQ 0.]TH #500=#500 - 2.
2 C$ W6 s' c7 j1 h& aIF[#22 EQ 2.]GO3
: b- J3 k. Z! ZIF[#22 - 3. EQ 0.]TH #500=#500 - 4.
IF[#22 EQ 3.]GO3
: V; B4 Z: K  k- Q2 SIF[#22 - 4. EQ 0.]TH #500=#500 - 8.
IF[#22 EQ 4.]GO3
) D2 W4 }; J' Q! N. p) r: s#3000=1.(#1-MODE-ERROR)
* v% k* E9 s' J* p; H# M" S, ~N3 #11=FIX[#11/10.]
END1
# h- Y) d! }/ H% K0 k" OM99


: Z1 ]4 j0 `! r9 z) H7 F+ _
#1=1234.
#11=ABS[FIX[#1]]
#500=0.
WHILE[#11GT0.]DO1
! x+ b+ q* ^; F2 |" \& G#22=[#11/10.-FIX[#11/10.]]*10.
7 s% {  u- b+ U& Z" X0 I) HIF[#22 XOR 1. EQ 0.]TH #500=#500 OR 1.
. O7 L% I" M+ m. g+ kIF[#22 EQ 1.]GO3
& B) R% w3 D) Z5 c- U( JIF[#22 XOR 2. EQ 0.]TH #500=#500 OR 2.
7 N" `( k/ D. S# g3 `2 h+ _: OIF[#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
. ~6 U5 v4 G$ v+ j2 j#3000=1.(#1-MODE-ERROR)
- X/ }, A" j& z* _! W' \4 UN3 #11=FIX[#11/10.]
END1
# ?& O! b' B4 j: y$ QM99

羅蓋仙

最底下紫字也可以改成
#500=#500 + 1.
2 E! T* E1 ]2 F% X7 p" K+ m) P#500=#500 + 2.
* d/ G) V* w) L" O6 ?9 q- T; [' {#500=#500 + 4.
3 ]) `0 A, I, `9 p* P& p#500=#500 + 8.
0 K  V- b* @) W: o
3 |; |* o9 R7 Y. _( }0 M感想是使用OR最安全
, S. }" g6 I1 j5 X. m( P用其他可能会被累加或被累减

渊源灼

厉害

rfonaqx

我顶啊。接着顶

& Z( [0 F- x+ E! M
6 U% ]: }2 b9 ?* G7 P


( [+ w. u2 M# A$ ?6 ]1 m% G
: n+ X! `! c( n. X) S0 R' Y
! F4 \# Q" D3 I5 W" c( o! }
8 J" S+ ^8 x! h% V8 z! x
: C+ |' s! i8 j* O7 ~

& \: d. [: P# g+ Itudouyoukuso.org/   kutensale.net/sitemap.html   ylmba.com/sitemap.html

liziang0509

谢谢分享。。。

蕾蕾

回复 5# liziang0509
. a1 w" {+ g1 N6 f
7 P7 z# W. C$ V: l$ u1 j# ^+ f9 ~
# f0 Y5 d: p' I3 U" I    靠。。。这么nx

52106813

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

jy0668

感谢分享，帮顶一下

zxwen

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

1365944322

支持宏程序，哈哈