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

羅蓋仙

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

  S/ W9 w0 Y8 r- a( a; ~1 y1 N#1=1234.
#11=ABS[FIX[#1]]
#500=0.
( B: q: @$ L4 r  @% C3 Z0 RWHILE[#11GT0.]DO1
' s( m8 S1 P+ t) L! F! a#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.
4 w! t+ f; U: C0 UIF[#22 EQ 2.]GO3
IF[#22 EQ 3.]TH #500=#500 OR 4.
IF[#22 EQ 3.]GO3
IF[#22 EQ 4.]TH #500=#500 OR 8.
IF[#22 EQ 4.]GO3
4 {" @3 S+ a( d* G+ u+ l1 O" H#3000=1.(#1-MODE-ERROR)
; }( _, `& \/ O$ wN3 #11=FIX[#11/10.]
END1
M99
2 B9 c- m- f6 x( Y# a2 B
$ z9 v" H; E3 n/ {以下為畫蛇添足，多此一舉。花拳欺敵法。目的搞死敵人
; Z" E) R7 [+ l' s' D* e（邏輯運算有改）（WH里面的比較式有改）（除的變乘的;乘的變除的）
, ]5 |/ X( T% T' a9 u( k
& ?; \* t& S% r  K/ K  e6 T& i+ [#1=1234.
#11=FIX[ABS[#1]]
1 o& d2 Y* O8 w0 D5 V! m#500=15.(全部裝滿，讓下面逐一減去)
! w7 b9 ^1 V  Y+ M( z  iWHILE[#11GE1.]DO1
* a3 O. u6 H% C#22=[#11*0.1-FIX[#11*0.1]]*/0.1
IF[#22 OR 1. EQ 1.]TH #500=#500 XOR 1.
& a9 O: r4 A0 qIF[#22 EQ 1.]GO3
" O- e1 L1 m3 P7 [& SIF[#22 OR 2. EQ 1.]TH #500=#500 XOR 2.
" y. k  L7 u$ W3 u! n# o- XIF[#22 EQ 2.]GO3
IF[#22 OR 3. EQ 1.]TH #500=#500 XOR 4.
IF[#22 EQ 3.]GO3
: n2 s3 X/ n! c; g/ ]IF[#22 OR 4. EQ 1.]TH #500=#500 XOR 8.
IF[#22 EQ 4.]GO3
# \2 N- v: |8 ?#3000=1.(#1-MODE-ERROR)
0 C2 d4 k# G2 s0 F0 qN3 #11=FIX[#11*0.1]
/ R* T8 Q9 o' e2 [: N. iEND1
M99
% l2 T, A+ x" }


6 F: u  O% H9 Q, ]! M/ C( z& c8 K#1=1234.
9 N& D& |+ B2 V( q: A3 P" S" r#500=15.
& U3 M5 w1 ~  E0 A# Z! G6 P#11=ABS[FIX[#1]]
WHILE[#11GT0.]DO1
#22=[#11/10.-FIX[#11/10.]]*10.
( [* ~: U  H1 XIF[#22 - 1. EQ 0.]TH #500=#500 - 1.
IF[#22 EQ 1.]GO3
9 I  j! o$ |) C* v$ R6 F- {) \IF[#22 - 2. EQ 0.]TH #500=#500 - 2.
IF[#22 EQ 2.]GO3
IF[#22 - 3. EQ 0.]TH #500=#500 - 4.
- @" l# q6 b# i+ u1 V4 Z) ~3 `$ UIF[#22 EQ 3.]GO3
IF[#22 - 4. EQ 0.]TH #500=#500 - 8.
IF[#22 EQ 4.]GO3
7 d: C. n* P6 X2 f) @#3000=1.(#1-MODE-ERROR)
$ v. `% w# J* e" m8 y7 ]9 [6 Y; LN3 #11=FIX[#11/10.]
) h$ ~* R$ p5 Y2 cEND1
M99
3 c3 f- [  v8 i! U" f: J; g

0 K; g( _$ P- k0 F+ Y
#1=1234.
) j5 K3 j& H) s& f3 O1 Q#11=ABS[FIX[#1]]
#500=0.
- b3 t3 A, V( z3 o' F, @WHILE[#11GT0.]DO1
) w; u4 ~6 q/ g8 d- Y9 X* w#22=[#11/10.-FIX[#11/10.]]*10.
& F6 I& d' @* G$ [IF[#22 XOR 1. EQ 0.]TH #500=#500 OR 1.
0 ?* W6 S8 ~/ L. b" e2 IIF[#22 EQ 1.]GO3
# l: _8 C$ x5 B  E5 NIF[#22 XOR 2. EQ 0.]TH #500=#500 OR 2.
IF[#22 EQ 2.]GO3
! o- Q! ]% X9 I. A3 _IF[#22 XOR 3. EQ 0.]TH #500=#500 OR 4.
' ^' o8 L4 n5 n0 v& sIF[#22 EQ 3.]GO3
IF[#22 XOR 4. EQ 0.]TH #500=#500 OR 8.
( n, O9 G1 s: c, dIF[#22 EQ 4.]GO3
#3000=1.(#1-MODE-ERROR)
- ?( A* i* f% h: N; G, ~9 m, Z- kN3 #11=FIX[#11/10.]
9 t+ Y! x) V% `, W" bEND1
M99

羅蓋仙

最底下紫字也可以改成
#500=#500 + 1.
7 J3 N6 i" Y2 a3 j: L0 J5 o#500=#500 + 2.
#500=#500 + 4.
#500=#500 + 8.

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

淵源灼

厲害

rfonaqx

我頂啊。接著頂


6 l3 N0 X% i$ R# V9 o& J+ W
; {' Z5 {3 I( c4 A. z



0 B4 E/ G! j: x5 b7 Z* q7 ]
9 |! w0 S9 }# G9 i6 U


2 o& W' o1 n8 P, [tudouyoukuso.org/   kutensale.net/sitemap.html   ylmba.com/sitemap.html

liziang0509

謝謝分享。。。

蕾蕾

回復 5# liziang0509

3 h. o, s# p# ~4 q
; X' y' \2 k: T0 H8 O3 ]    靠。。。這么nx

52106813

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

jy0668

感謝分享，幫頂一下

zxwen

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

1365944322

支持宏程序，哈哈