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

羅蓋仙

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

% W# b' K: v; R#1=1234.
#11=ABS[FIX[#1]]
#500=0.
WHILE[#11GT0.]DO1
#22=[#11/10.-FIX[#11/10.]]*10.
, l6 ?/ h1 A% a0 \IF[#22 EQ 1.]TH #500=#500 OR 1.
2 T' }  R/ G$ dIF[#22 EQ 1.]GO3
) h' U9 s9 I$ B' e) G1 |IF[#22 EQ 2.]TH #500=#500 OR 2.
8 K+ F  K. g6 M  o! @( _IF[#22 EQ 2.]GO3
IF[#22 EQ 3.]TH #500=#500 OR 4.
. Q0 e" w# Z( [3 \% B+ _) jIF[#22 EQ 3.]GO3
IF[#22 EQ 4.]TH #500=#500 OR 8.
IF[#22 EQ 4.]GO3
#3000=1.(#1-MODE-ERROR)
# g8 D/ k+ _& c. Q' K; B7 WN3 #11=FIX[#11/10.]
END1
M99

以下为画蛇添足，多此一举。花拳欺敌法。目的搞死敌人
. ]7 `" r' ]% _/ m- b, F（逻辑运算有改）（WH里面的比较式有改）（除的变乘的;乘的变除的）

+ E. D; D3 B) k* y! L5 _: k#1=1234.
; g5 c" _4 {& N* B  g#11=FIX[ABS[#1]]
9 c5 ?' {' I) V/ S3 Z#500=15.(全部装满，让下面逐一减去)
WHILE[#11GE1.]DO1
#22=[#11*0.1-FIX[#11*0.1]]*/0.1
' B, H+ S# {$ ?; E2 p4 d( tIF[#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.
IF[#22 EQ 2.]GO3
! Z1 Z$ `. P3 qIF[#22 OR 3. EQ 1.]TH #500=#500 XOR 4.
IF[#22 EQ 3.]GO3
' r% v% C) @, v# u1 ~IF[#22 OR 4. EQ 1.]TH #500=#500 XOR 8.
( i: `0 U+ q0 uIF[#22 EQ 4.]GO3
#3000=1.(#1-MODE-ERROR)
6 D% n! J: V( o/ \N3 #11=FIX[#11*0.1]
END1
* m0 x: E9 l  S, v. V! ^M99



3 L' t6 V' x& h( k% N4 f#1=1234.
#500=15.
  _# c* Z  E8 m9 N& a8 v#11=ABS[FIX[#1]]
% L& b7 X* x- @WHILE[#11GT0.]DO1
#22=[#11/10.-FIX[#11/10.]]*10.
7 \8 ]3 P+ g+ m7 C3 kIF[#22 - 1. EQ 0.]TH #500=#500 - 1.
# I+ B. m' s: k9 C. k4 `* QIF[#22 EQ 1.]GO3
IF[#22 - 2. EQ 0.]TH #500=#500 - 2.
IF[#22 EQ 2.]GO3
' f+ J3 o5 h! C0 z& o  O; NIF[#22 - 3. EQ 0.]TH #500=#500 - 4.
6 z( x5 V3 \3 L& s' \; Y/ ~IF[#22 EQ 3.]GO3
IF[#22 - 4. EQ 0.]TH #500=#500 - 8.
( a$ ^, X0 ^9 Y9 l7 R/ fIF[#22 EQ 4.]GO3
" Q1 a  H1 r, C; O#3000=1.(#1-MODE-ERROR)
) D6 {+ z4 v2 F- tN3 #11=FIX[#11/10.]
4 X$ J+ s- q: \END1
8 C1 C& X; b" T! z# D/ g# m! oM99
( n- D& U1 S  s9 b# [; K/ D- T


#1=1234.
* N0 K8 o2 z0 [; o7 @! q/ I#11=ABS[FIX[#1]]
# ?/ i# j; U$ Z6 [. Z& C. |% L#500=0.
WHILE[#11GT0.]DO1
#22=[#11/10.-FIX[#11/10.]]*10.
! C! W( T: M7 C$ D6 v; bIF[#22 XOR 1. EQ 0.]TH #500=#500 OR 1.
( ?' {, S& ~4 L8 cIF[#22 EQ 1.]GO3
" V7 H) |5 ~3 |4 A' cIF[#22 XOR 2. EQ 0.]TH #500=#500 OR 2.
9 t7 Z" j+ ?. K- NIF[#22 EQ 2.]GO3
5 K$ D" U/ i% p" J8 D: `IF[#22 XOR 3. EQ 0.]TH #500=#500 OR 4.
( L8 \4 L5 p0 N6 D4 i% eIF[#22 EQ 3.]GO3
3 u5 H2 n! i& A  iIF[#22 XOR 4. EQ 0.]TH #500=#500 OR 8.
4 a8 V- f- ^8 O4 c# dIF[#22 EQ 4.]GO3
#3000=1.(#1-MODE-ERROR)
N3 #11=FIX[#11/10.]
4 ^( W' }% D% k/ M: a- _8 m5 _END1
M99

羅蓋仙

最底下紫字也可以改成
#500=#500 + 1.
#500=#500 + 2.
#500=#500 + 4.
#500=#500 + 8.
0 p6 H9 L) Q* H2 p; {5 k
感想是使用OR最安全
. Z! L  p' {4 v$ }, r0 J用其他可能会被累加或被累减

渊源灼

厉害

rfonaqx

我顶啊。接着顶



  V) k$ m9 m1 L# A9 B& n/ A0 u+ L9 f; W
" `/ N$ b5 F6 z3 E

+ N* H" b7 Z$ o1 e: Y  T% G2 i6 g
( \1 ~9 F8 C. C& S8 I, O
" L+ h6 W- Q' n" T& u: R+ v


, A$ C/ P; e2 Z4 Ztudouyoukuso.org/   kutensale.net/sitemap.html   ylmba.com/sitemap.html

liziang0509

谢谢分享。。。

蕾蕾

回复 5# liziang0509
6 L+ s8 ^- l$ m1 K) @4 X* j+ F
  I4 G( t3 H  I0 ^
    靠。。。这么nx

52106813

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

jy0668

感谢分享，帮顶一下

zxwen

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

1365944322

支持宏程序，哈哈