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

羅蓋仙

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

! l% g3 N& A! [  m$ ?" j#1=1234.
#11=ABS[FIX[#1]]
#500=0.
+ i$ s1 z* k; EWHILE[#11GT0.]DO1
+ _6 T5 b& f% p7 D3 R#22=[#11/10.-FIX[#11/10.]]*10.
+ F" n, D4 b* XIF[#22 EQ 1.]TH #500=#500 OR 1.
IF[#22 EQ 1.]GO3
IF[#22 EQ 2.]TH #500=#500 OR 2.
+ e) s3 v2 l5 Z2 `% _- xIF[#22 EQ 2.]GO3
IF[#22 EQ 3.]TH #500=#500 OR 4.
' r+ j. Z$ z' qIF[#22 EQ 3.]GO3
8 i* c5 G- [# Y# x" {$ `; q6 l3 x2 M$ A7 HIF[#22 EQ 4.]TH #500=#500 OR 8.
# u, f% T7 B5 O9 ]$ y, ^3 pIF[#22 EQ 4.]GO3
% V5 j$ ]4 ]3 i- G6 v% W#3000=1.(#1-MODE-ERROR)
N3 #11=FIX[#11/10.]
END1
' i9 g: M/ ^* a0 {9 L# @9 sM99

以下为画蛇添足，多此一举。花拳欺敌法。目的搞死敌人
（逻辑运算有改）（WH里面的比较式有改）（除的变乘的;乘的变除的）
$ }% R$ }! j- G
4 S8 Y, i/ K1 v' `& B) t# n+ z#1=1234.
#11=FIX[ABS[#1]]
' ~2 B7 g" S7 E9 G1 ], n#500=15.(全部装满，让下面逐一减去)
) z5 ~6 C. C5 v4 \/ U3 \WHILE[#11GE1.]DO1
#22=[#11*0.1-FIX[#11*0.1]]*/0.1
. T/ f( Z0 e5 D4 ^IF[#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.
0 z, Q' E8 v. A* @8 ]7 DIF[#22 EQ 2.]GO3
. A, o& b/ J1 ~! oIF[#22 OR 3. EQ 1.]TH #500=#500 XOR 4.
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]
, \) Y% b: R  T6 s$ c( QEND1
/ K3 ~- B: X; r, a5 {- M; BM99
. f4 d1 z2 z/ f


#1=1234.
#500=15.
; q4 h6 j% i7 |2 c4 g+ f( h) |#11=ABS[FIX[#1]]
WHILE[#11GT0.]DO1
#22=[#11/10.-FIX[#11/10.]]*10.
7 F; Y4 _4 r# s' X5 t: nIF[#22 - 1. EQ 0.]TH #500=#500 - 1.
& Q8 E. z* {2 l( h# y( N, Y6 U1 G9 `9 ^IF[#22 EQ 1.]GO3
! h) Z5 L/ n  E1 JIF[#22 - 2. EQ 0.]TH #500=#500 - 2.
IF[#22 EQ 2.]GO3
. e% v8 M9 G' f# ?- {& R' G* MIF[#22 - 3. EQ 0.]TH #500=#500 - 4.
IF[#22 EQ 3.]GO3
; p1 z' J% I# y0 OIF[#22 - 4. EQ 0.]TH #500=#500 - 8.
IF[#22 EQ 4.]GO3
+ ]( A1 ?! m3 T- Z  S#3000=1.(#1-MODE-ERROR)
2 o# I9 x% B# ]* ~& G( V+ }N3 #11=FIX[#11/10.]
END1
M99
3 |' s( G* G3 i
) i8 s8 D" I, T, d  I& Z

4 _; W8 L3 J( V0 a& z: d; {#1=1234.
& `. r6 s: x  v4 Q1 z6 C8 u( ?#11=ABS[FIX[#1]]
#500=0.
WHILE[#11GT0.]DO1
#22=[#11/10.-FIX[#11/10.]]*10.
1 z0 Q3 h. O+ V: _IF[#22 XOR 1. EQ 0.]TH #500=#500 OR 1.
7 \7 \- `! z8 h$ P4 @+ S( tIF[#22 EQ 1.]GO3
; J" K8 ]$ e5 q+ SIF[#22 XOR 2. EQ 0.]TH #500=#500 OR 2.
! r; ^) r% [$ Y  b; r, U5 zIF[#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.
* V& f/ j+ f- lIF[#22 EQ 4.]GO3
# N0 I+ I; O8 w: M#3000=1.(#1-MODE-ERROR)
N3 #11=FIX[#11/10.]
! R1 J4 C1 B* h$ o+ u1 |: K, s1 sEND1
$ a7 u* f/ |% e, W, QM99

羅蓋仙

最底下紫字也可以改成
#500=#500 + 1.
#500=#500 + 2.
#500=#500 + 4.
#500=#500 + 8.

5 U4 ~) [& I& ]# ]# u5 A感想是使用OR最安全
# l/ a3 m- Y: |* y' w1 G3 O& B" z用其他可能会被累加或被累减

渊源灼

厉害

rfonaqx

我顶啊。接着顶

# h5 \- [  k- Y7 f. F9 S
& Z( w: @4 k, g/ o  [  }
. S/ Z: _; l+ A3 n6 p

5 l! d2 A/ W" K0 F" x
- }# m5 i$ _/ x6 Z2 V+ d
5 z1 ]3 u, h! k" D  {+ O4 i. T+ W
9 a1 B6 O3 `% ?1 {9 s8 R$ B
3 O- u: H% J! N+ f5 E$ x2 v# j3 }

! C' ]. ]/ s8 D& Q# R1 E# \* Studouyoukuso.org/   kutensale.net/sitemap.html   ylmba.com/sitemap.html

liziang0509

谢谢分享。。。

蕾蕾

回复 5# liziang0509
& M; f; x! R3 b+ {, F2 ]

    靠。。。这么nx

52106813

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

jy0668

感谢分享，帮顶一下

zxwen

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

1365944322

支持宏程序，哈哈