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

羅蓋仙

以下是我的理论请参考，我并没有写得很周全
: A$ y5 I; N2 F& G" ~/ w
$ I) V! `0 ]8 Z3 y$ F  ~#1=1234.
/ ^& U/ C' C/ l4 w  b' W! J#11=ABS[FIX[#1]]
#500=0.
WHILE[#11GT0.]DO1
$ X1 j( W5 y8 D9 ~! m8 B! x$ U#22=[#11/10.-FIX[#11/10.]]*10.
IF[#22 EQ 1.]TH #500=#500 OR 1.
IF[#22 EQ 1.]GO3
IF[#22 EQ 2.]TH #500=#500 OR 2.
IF[#22 EQ 2.]GO3
7 X" k! e  L) kIF[#22 EQ 3.]TH #500=#500 OR 4.
- f" d  l; j6 J) a- Q& m) GIF[#22 EQ 3.]GO3
, l* l  J- M8 B( Z# g: b3 bIF[#22 EQ 4.]TH #500=#500 OR 8.
% q" Q2 F9 d0 V  ]& k% A* r1 }IF[#22 EQ 4.]GO3
5 f5 w/ v' o! [$ H5 X/ e8 N% H#3000=1.(#1-MODE-ERROR)
N3 #11=FIX[#11/10.]
! ?3 M( E# A$ E* YEND1
M99

以下为画蛇添足，多此一举。花拳欺敌法。目的搞死敌人
; G9 v' I: O, R3 N2 A（逻辑运算有改）（WH里面的比较式有改）（除的变乘的;乘的变除的）
+ F6 y5 b5 C4 Y# m- A; ?
) u* w/ U, q1 `% v; G8 H#1=1234.
#11=FIX[ABS[#1]]
9 ?! i7 I* c+ n#500=15.(全部装满，让下面逐一减去)
WHILE[#11GE1.]DO1
#22=[#11*0.1-FIX[#11*0.1]]*/0.1
, `, z: z1 x# @% O! h" qIF[#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.
  g" b1 u2 E$ h  wIF[#22 EQ 2.]GO3
# J5 K- _1 O4 D; F- ^IF[#22 OR 3. EQ 1.]TH #500=#500 XOR 4.
  l. ^. Z; g2 @IF[#22 EQ 3.]GO3
4 p  n* S" S4 t! Z: V! qIF[#22 OR 4. EQ 1.]TH #500=#500 XOR 8.
IF[#22 EQ 4.]GO3
; F2 D) S4 ^3 v6 Q% V4 `! i#3000=1.(#1-MODE-ERROR)
) P! F' y( |$ d" O+ T6 p$ VN3 #11=FIX[#11*0.1]
/ l* _; v5 J; vEND1
5 ?' _, H) e" ^6 `" K  G8 NM99
: M; D# u% z) T  X% a8 ]


#1=1234.
6 C! g+ x, |) x7 G4 s; ~1 G#500=15.
- T: X1 [6 H  [% b+ t#11=ABS[FIX[#1]]
! a8 A1 b: e6 E* ]1 KWHILE[#11GT0.]DO1
8 I8 T9 r* r. J#22=[#11/10.-FIX[#11/10.]]*10.
IF[#22 - 1. EQ 0.]TH #500=#500 - 1.
; ]) g+ `: @1 w) {, oIF[#22 EQ 1.]GO3
IF[#22 - 2. EQ 0.]TH #500=#500 - 2.
" T8 \8 N! a/ F, D8 r, rIF[#22 EQ 2.]GO3
/ I& m/ E; v" S9 T" XIF[#22 - 3. EQ 0.]TH #500=#500 - 4.
IF[#22 EQ 3.]GO3
IF[#22 - 4. EQ 0.]TH #500=#500 - 8.
IF[#22 EQ 4.]GO3
8 s  R2 o6 [8 c" }. y; |+ {9 ^& Q#3000=1.(#1-MODE-ERROR)
N3 #11=FIX[#11/10.]
. s0 `% y" L0 T* _7 Y. B* }8 xEND1
' l, L5 W1 s$ iM99



+ e  }$ D) n$ s# c. F3 O#1=1234.
#11=ABS[FIX[#1]]
2 r7 q$ d5 ^- w& F#500=0.
: o4 Y, j4 O6 w8 o' aWHILE[#11GT0.]DO1
( I# u! J; Y0 E$ H7 L! \) F' ?, b#22=[#11/10.-FIX[#11/10.]]*10.
IF[#22 XOR 1. EQ 0.]TH #500=#500 OR 1.
, ]1 s) q9 [5 O/ P, X) b% fIF[#22 EQ 1.]GO3
+ H5 f. @& }  p) v. g4 LIF[#22 XOR 2. EQ 0.]TH #500=#500 OR 2.
1 Y' V( \0 ~9 hIF[#22 EQ 2.]GO3
IF[#22 XOR 3. EQ 0.]TH #500=#500 OR 4.
: m+ A1 _# i/ G" S# `3 }% B$ AIF[#22 EQ 3.]GO3
IF[#22 XOR 4. EQ 0.]TH #500=#500 OR 8.
% ]: C9 e- @. e0 m, ZIF[#22 EQ 4.]GO3
#3000=1.(#1-MODE-ERROR)
2 ^" G: Q: {9 k% U3 i8 V- E+ iN3 #11=FIX[#11/10.]
2 z8 Y  M3 z( |# q/ U" [END1
: A* z( T" C6 |1 _8 z# yM99

羅蓋仙

最底下紫字也可以改成
#500=#500 + 1.
$ b% ^) e5 |. |/ T#500=#500 + 2.
2 p7 u$ `$ `. d#500=#500 + 4.
. |6 s) Z" A7 J: x#500=#500 + 8.
3 s- p' _& d5 K0 y9 \8 |, K! w
6 q) R- n4 _* D9 y  J2 \: f感想是使用OR最安全
用其他可能会被累加或被累减

渊源灼

厉害

rfonaqx

我顶啊。接着顶
+ v" a% s# R: l0 ^
% P0 d" N3 x' Q1 a& P6 a
: H, c% h' [$ {! {: ]# M

) w; O' O" V) z% ?) v: k1 u


0 ]. S. u" y1 n# F/ x' m& t& f
6 z: J6 E3 V7 F" B


tudouyoukuso.org/   kutensale.net/sitemap.html   ylmba.com/sitemap.html

liziang0509

谢谢分享。。。

蕾蕾

回复 5# liziang0509


    靠。。。这么nx

52106813

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

jy0668

感谢分享，帮顶一下

zxwen

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

1365944322

支持宏程序，哈哈