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

羅蓋仙

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

#1=1234.
#11=ABS[FIX[#1]]
#500=0.
$ J3 N7 n" x+ I8 \" M: ]! lWHILE[#11GT0.]DO1
) U+ @5 V1 b0 F+ Q#22=[#11/10.-FIX[#11/10.]]*10.
IF[#22 EQ 1.]TH #500=#500 OR 1.
1 }- q' {+ X. o6 vIF[#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
IF[#22 EQ 4.]TH #500=#500 OR 8.
IF[#22 EQ 4.]GO3
% |7 `3 d( }( O: v3 G4 V#3000=1.(#1-MODE-ERROR)
- U* T& ]" ^; q7 ~5 [6 oN3 #11=FIX[#11/10.]
END1
M99
  _! ?3 l/ E/ N- ~9 P
以下为画蛇添足，多此一举。花拳欺敌法。目的搞死敌人
+ S. G, L1 M2 C4 v# F1 F7 ~（逻辑运算有改）（WH里面的比较式有改）（除的变乘的;乘的变除的）
' N, i% c% o2 Q/ w8 \& [
" X1 \5 g  V. K! Y  u$ n#1=1234.
#11=FIX[ABS[#1]]
) c& k# h( d( I8 V6 x#500=15.(全部装满，让下面逐一减去)
4 j# U6 K3 W: }& s( }: BWHILE[#11GE1.]DO1
( V7 `3 b* ?9 l& l1 r, R7 r7 j#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
IF[#22 OR 2. EQ 1.]TH #500=#500 XOR 2.
% P; b! o1 {0 q( {1 [2 X/ ^- CIF[#22 EQ 2.]GO3
IF[#22 OR 3. EQ 1.]TH #500=#500 XOR 4.
+ X- h1 w2 B6 j, ~- LIF[#22 EQ 3.]GO3
IF[#22 OR 4. EQ 1.]TH #500=#500 XOR 8.
* D- S" i' i- P) xIF[#22 EQ 4.]GO3
#3000=1.(#1-MODE-ERROR)
$ j$ a( C2 A6 f. V$ y; o$ HN3 #11=FIX[#11*0.1]
& E& j2 u5 @% z' C: a# EEND1
M99

/ _. ~3 G0 I* k9 U. o( `

2 v3 f$ B2 A9 N3 ]% m; K- C#1=1234.
, p1 T' d$ D' @#500=15.
- ~4 l) p; k' W! X3 @- C: M#11=ABS[FIX[#1]]
0 w8 g3 I3 {- V8 `" O% W3 [WHILE[#11GT0.]DO1
#22=[#11/10.-FIX[#11/10.]]*10.
IF[#22 - 1. EQ 0.]TH #500=#500 - 1.
IF[#22 EQ 1.]GO3
0 v+ ^7 `$ K, b% GIF[#22 - 2. EQ 0.]TH #500=#500 - 2.
$ p3 L: _+ x" l3 I2 YIF[#22 EQ 2.]GO3
3 i+ p8 `" D" q- I; l, cIF[#22 - 3. EQ 0.]TH #500=#500 - 4.
- U$ s8 _9 n7 e$ U7 v+ b4 g$ KIF[#22 EQ 3.]GO3
; J$ I" R8 N/ j& jIF[#22 - 4. EQ 0.]TH #500=#500 - 8.
IF[#22 EQ 4.]GO3
#3000=1.(#1-MODE-ERROR)
N3 #11=FIX[#11/10.]
END1
M99

! \' k" a& n. I2 L4 b

#1=1234.
& O: U5 ]/ H" U; A#11=ABS[FIX[#1]]
2 i) v( ^! N# ^9 M: o* C. M#500=0.
! H+ d& B- D' nWHILE[#11GT0.]DO1
( s2 G/ I# |4 p9 ]1 d0 b" M' T#22=[#11/10.-FIX[#11/10.]]*10.
IF[#22 XOR 1. EQ 0.]TH #500=#500 OR 1.
IF[#22 EQ 1.]GO3
0 U# |9 ?8 ~' Z: v1 @IF[#22 XOR 2. EQ 0.]TH #500=#500 OR 2.
IF[#22 EQ 2.]GO3
0 P4 q+ ?% ]- o. cIF[#22 XOR 3. EQ 0.]TH #500=#500 OR 4.
& t! l* w- X3 s6 t9 r! Z0 RIF[#22 EQ 3.]GO3
IF[#22 XOR 4. EQ 0.]TH #500=#500 OR 8.
IF[#22 EQ 4.]GO3
* w- n* H) V) H" p#3000=1.(#1-MODE-ERROR)
N3 #11=FIX[#11/10.]
END1
M99

羅蓋仙

最底下紫字也可以改成
#500=#500 + 1.
* q2 C8 N8 q! x#500=#500 + 2.
: E- |, [4 f6 L% @# T2 D* J#500=#500 + 4.
#500=#500 + 8.

/ |3 @0 ?# e8 I6 U6 _# L. h, G感想是使用OR最安全
- E4 N; J* Z. y# q: X用其他可能会被累加或被累减

渊源灼

厉害

rfonaqx

我顶啊。接着顶
3 [4 P* n( ^/ G4 ~7 x) @8 Q
; a1 J" w3 M3 q7 [
$ L/ X3 A" ^) s) U- o2 L
2 C& |3 x0 ?! z


. m! i3 M9 k* D. y! r
2 U( Q, Y# W% j+ c8 p6 e+ h

% ?2 w$ {; B( L9 y4 R! x
, p" M4 q! o' ?/ r% K6 k
tudouyoukuso.org/   kutensale.net/sitemap.html   ylmba.com/sitemap.html

liziang0509

谢谢分享。。。

蕾蕾

回复 5# liziang0509


    靠。。。这么nx

52106813

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

jy0668

感谢分享，帮顶一下

zxwen

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

1365944322

支持宏程序，哈哈