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

羅蓋仙

以下是我的理論請參考，我并沒有寫得很周全
2 v& W4 A7 {2 m+ }
8 e7 f! e0 G0 P* @0 s' ]#1=1234.
  G+ e7 K: y$ V7 W3 `#11=ABS[FIX[#1]]
#500=0.
WHILE[#11GT0.]DO1
#22=[#11/10.-FIX[#11/10.]]*10.
IF[#22 EQ 1.]TH #500=#500 OR 1.
& t1 I# u) T+ \8 k& EIF[#22 EQ 1.]GO3
IF[#22 EQ 2.]TH #500=#500 OR 2.
4 {0 Q! ]: s  }, SIF[#22 EQ 2.]GO3
1 e1 K, Z! \% S- S" R, {& }9 }( @IF[#22 EQ 3.]TH #500=#500 OR 4.
% z/ P* u* a! [! VIF[#22 EQ 3.]GO3
- \) Q6 W: g3 b- f0 x5 I( qIF[#22 EQ 4.]TH #500=#500 OR 8.
IF[#22 EQ 4.]GO3
#3000=1.(#1-MODE-ERROR)
N3 #11=FIX[#11/10.]
% [1 H4 `- E8 i2 z* M: v/ fEND1
" B; O( x% @$ y6 e) PM99
  p- s* d; D7 Z8 \5 R" D: L
以下為畫蛇添足，多此一舉?；ㄈ蹟撤āＤ康母闼罃橙?br /> 4 W$ ?7 c' t7 z8 M（邏輯運算有改）（WH里面的比較式有改）（除的變乘的;乘的變除的）

& M4 I# I2 y+ ]8 v' ]- w5 z4 H#1=1234.
. j) \" ?( N; q- {- h: [#11=FIX[ABS[#1]]
* y3 C, }6 K- X7 s0 x7 b# j* \( \#500=15.(全部裝滿，讓下面逐一減去)
WHILE[#11GE1.]DO1
8 b) N5 V1 ~* b2 s# j% g#22=[#11*0.1-FIX[#11*0.1]]*/0.1
/ b( H% R7 u+ J) ?5 HIF[#22 OR 1. EQ 1.]TH #500=#500 XOR 1.
IF[#22 EQ 1.]GO3
# q; w  X7 A4 ]% \7 nIF[#22 OR 2. EQ 1.]TH #500=#500 XOR 2.
$ L2 z$ X! c9 EIF[#22 EQ 2.]GO3
- _- v: o* F/ @5 R2 EIF[#22 OR 3. EQ 1.]TH #500=#500 XOR 4.
. _1 H+ h, T* N5 U- Z& p1 gIF[#22 EQ 3.]GO3
IF[#22 OR 4. EQ 1.]TH #500=#500 XOR 8.
IF[#22 EQ 4.]GO3
2 E. P+ @% v* [  @, U% p#3000=1.(#1-MODE-ERROR)
* ]' [% J7 H, v: @" mN3 #11=FIX[#11*0.1]
9 _! A1 Y7 F6 \/ zEND1
M99
: f( B  \. P6 G+ j5 g/ y

0 o! r1 S; V* W; ~: g9 ^
#1=1234.
, Z+ k! K. B2 H* c( e#500=15.
#11=ABS[FIX[#1]]
WHILE[#11GT0.]DO1
#22=[#11/10.-FIX[#11/10.]]*10.
IF[#22 - 1. EQ 0.]TH #500=#500 - 1.
IF[#22 EQ 1.]GO3
/ ]! L7 Q1 |. T/ `( |; bIF[#22 - 2. EQ 0.]TH #500=#500 - 2.
IF[#22 EQ 2.]GO3
IF[#22 - 3. EQ 0.]TH #500=#500 - 4.
IF[#22 EQ 3.]GO3
IF[#22 - 4. EQ 0.]TH #500=#500 - 8.
5 z$ p& `4 l/ Z# Q( H& m* lIF[#22 EQ 4.]GO3
9 ?. O2 X" E% b5 b- G/ u#3000=1.(#1-MODE-ERROR)
; }5 J- Y6 X: q4 n# }2 \. YN3 #11=FIX[#11/10.]
% t; g7 V2 F' m7 lEND1
5 C6 Z0 s" p, t, M; e" w. X  a) @M99
2 M* L5 D2 g# [) |
1 I5 F4 P6 e4 E- G- k
: p$ N; a5 h7 B0 B
#1=1234.
#11=ABS[FIX[#1]]
#500=0.
WHILE[#11GT0.]DO1
  I2 C& ]" T' r#22=[#11/10.-FIX[#11/10.]]*10.
IF[#22 XOR 1. EQ 0.]TH #500=#500 OR 1.
IF[#22 EQ 1.]GO3
* H( M2 F5 n/ s5 b! d4 e  g$ GIF[#22 XOR 2. EQ 0.]TH #500=#500 OR 2.
IF[#22 EQ 2.]GO3
- `& }, ^* w  r' Y! K/ w% }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.
3 a3 }; |1 w( U0 u" p1 p, q& HIF[#22 EQ 4.]GO3
/ E! }9 j' K! ^! U  y#3000=1.(#1-MODE-ERROR)
N3 #11=FIX[#11/10.]
5 I! R0 X) o$ h" u; _0 MEND1
( e/ z& G! L' N, x" K7 m! h" JM99

羅蓋仙

最底下紫字也可以改成
( z/ \, l& }4 q8 K9 @8 f#500=#500 + 1.
' R2 `- Z! T4 W% n  |* b#500=#500 + 2.
#500=#500 + 4.
#500=#500 + 8.
' J* M( i; A* T) h4 |
感想是使用OR最安全
( r; H- I# L- O2 i用其他可能會被累加或被累減

淵源灼

厲害

rfonaqx

我頂啊。接著頂




6 S; q8 R% |" @, ~; y



: w  ?8 a) d9 S) x* D; o' V


7 u& r3 Z, M- }( B/ Xtudouyoukuso.org/   kutensale.net/sitemap.html   ylmba.com/sitemap.html

liziang0509

謝謝分享。。。

蕾蕾

回復 5# liziang0509

, a  Q# \  m" e* x2 @( l2 H1 X" b, w
    靠。。。這么nx

52106813

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

jy0668

感謝分享，幫頂一下

zxwen

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

1365944322

支持宏程序，哈哈