小魚老師的智能鉆孔──我另有新啟發

羅蓋仙

以下是我的理論請參考，我并沒有寫得很周全

#1=1234.
0 j6 m6 w  z+ ]#11=ABS[FIX[#1]]
  n. I7 e$ ^  `' g( I#500=0.
. R( ]6 d2 J7 ]WHILE[#11GT0.]DO1
! h$ P, D- l  Q3 U) b#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
IF[#22 EQ 3.]TH #500=#500 OR 4.
IF[#22 EQ 3.]GO3
6 ]9 ^2 L1 B# r7 |9 b, gIF[#22 EQ 4.]TH #500=#500 OR 8.
8 m% V2 L- V, d& `$ nIF[#22 EQ 4.]GO3
#3000=1.(#1-MODE-ERROR)
; v: H+ g5 t" x6 z/ ?N3 #11=FIX[#11/10.]
END1
M99
5 Z7 m3 Q0 d& @/ s7 S& M' ]
# s2 k$ J. E. x8 D" J9 o以下為畫蛇添足，多此一舉。花拳欺敵法。目的搞死敵人
- b8 g6 q6 [9 s- Q' W$ u+ Q（邏輯運算有改）（WH里面的比較式有改）（除的變乘的;乘的變除的）

#1=1234.
* z9 M$ j9 Q/ }7 V6 H7 {$ o5 N#11=FIX[ABS[#1]]
#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.
IF[#22 EQ 1.]GO3
9 ~0 P, V1 _9 d9 h( |IF[#22 OR 2. EQ 1.]TH #500=#500 XOR 2.
6 I. j; J/ A& lIF[#22 EQ 2.]GO3
IF[#22 OR 3. EQ 1.]TH #500=#500 XOR 4.
2 E' t( R* M: V" ?IF[#22 EQ 3.]GO3
& e3 j. z- z# J" o& }. K) JIF[#22 OR 4. EQ 1.]TH #500=#500 XOR 8.
IF[#22 EQ 4.]GO3
; d  r+ f1 p8 q8 C5 \  S#3000=1.(#1-MODE-ERROR)
N3 #11=FIX[#11*0.1]
END1
M99
. }' U5 S% `% g2 E/ }% `1 M
5 d' |. r4 e2 W- f5 J. n( F

8 U, U6 S5 @$ A#1=1234.
) B9 v& Y6 \3 t: {1 z$ M8 u#500=15.
" a0 d7 I4 `! S#11=ABS[FIX[#1]]
( {" e7 T1 h% z, B: dWHILE[#11GT0.]DO1
$ Y1 j1 h& K: b/ i; \3 `#22=[#11/10.-FIX[#11/10.]]*10.
IF[#22 - 1. EQ 0.]TH #500=#500 - 1.
IF[#22 EQ 1.]GO3
. v' M$ L0 o4 M8 u- b: R( j' |IF[#22 - 2. EQ 0.]TH #500=#500 - 2.
IF[#22 EQ 2.]GO3
. K) e* W- M6 v: QIF[#22 - 3. EQ 0.]TH #500=#500 - 4.
( i% H0 t4 E6 ?  Z5 gIF[#22 EQ 3.]GO3
IF[#22 - 4. EQ 0.]TH #500=#500 - 8.
5 `; c3 D4 S" J/ X6 ^  Z4 ZIF[#22 EQ 4.]GO3
8 ^, {4 s2 m$ z8 e7 y) ?" `+ y" d#3000=1.(#1-MODE-ERROR)
* @* i6 i% i5 A2 P" ^! }* p0 NN3 #11=FIX[#11/10.]
END1
  ~4 j/ \% x+ UM99
7 P: D/ n2 D# t+ R: V- u
& x: g* w/ v" s
# g4 t* k( j2 ^
#1=1234.
#11=ABS[FIX[#1]]
#500=0.
WHILE[#11GT0.]DO1
: P  s7 g8 y" g% ]# {" J#22=[#11/10.-FIX[#11/10.]]*10.
4 l+ l4 f3 K# ]5 S: G, h" l% kIF[#22 XOR 1. EQ 0.]TH #500=#500 OR 1.
/ y+ t/ d- Y6 G1 V2 F2 \' iIF[#22 EQ 1.]GO3
IF[#22 XOR 2. EQ 0.]TH #500=#500 OR 2.
" G% A" B  Q* p, p) g8 NIF[#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.
0 p. n- ~0 T8 W1 ZIF[#22 EQ 4.]GO3
#3000=1.(#1-MODE-ERROR)
; p( ~1 u# ^6 c) ^$ gN3 #11=FIX[#11/10.]
" z2 X  H; ?3 y; vEND1
) R8 u$ M' m. S. ]9 y) y# J7 K4 OM99

羅蓋仙

最底下紫字也可以改成
#500=#500 + 1.
#500=#500 + 2.
8 ^  _7 a& K: D1 b' s& `#500=#500 + 4.
6 [& b  m, i6 L% }% \#500=#500 + 8.

感想是使用OR最安全
用其他可能會被累加或被累減

淵源灼

厲害

rfonaqx

我頂啊。接著頂
' E$ x, {( c6 R/ |) k
! J* A9 n) o/ {% ]; L# ~

  u9 A. S0 E! q7 M7 ?' W4 F
9 e5 f* H: d/ R6 g7 R( i1 p- M9 s4 {


3 Q/ y9 w$ m  r. z: {4 P! ], D
- I3 |' @- E) |& f
2 ?6 c6 q. Y0 t- p6 P, I
9 X! Y  Z' w* R5 E" U
( o  H) Q, f0 O+ l  }& [# X. }* {+ wtudouyoukuso.org/   kutensale.net/sitemap.html   ylmba.com/sitemap.html

liziang0509

謝謝分享。。。

蕾蕾

回復 5# liziang0509

! s7 P8 j. {+ V( s& S7 @$ O
) a  M2 ~4 S& U  O+ w    靠。。。這么nx

52106813

拿來研究一下，怎么不用WHILE-DO，IF-GO跳轉不如WHILE-DO順暢

jy0668

感謝分享，幫頂一下

zxwen

謝謝分享。。。。。。。。。。。。

1365944322

支持宏程序，哈哈