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

羅蓋仙 · 发表于 2013-8-18 10:42:08

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区

您需要登录才可以下载或查看，没有账号？立即注册

×

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

#1=1234.
/ v- x1 [: k1 ~' Q, `1 |#11=ABS[FIX[#1]]8 @6 H5 G  D! o* V
#500=0.
4 e0 c7 {4 E6 f: o# I9 L. z# lWHILE[#11GT0.]DO1
& |- B$ i8 K" Q% N" J#22=[#11/10.-FIX[#11/10.]]*10.
8 R4 ?  S* `, y* F  R. vIF[#22 EQ 1.]TH #500=#500 OR 1.. i7 |3 Z- K6 `" m- P
IF[#22 EQ 1.]GO3
2 Q0 h& d' B# ~) vIF[#22 EQ 2.]TH #500=#500 OR 2., F$ |1 M2 R/ o, N, N: q
IF[#22 EQ 2.]GO3
* k/ L/ D) ~+ q& j7 H' oIF[#22 EQ 3.]TH #500=#500 OR 4.5 ^# s1 r: h8 y# Z, h
IF[#22 EQ 3.]GO3& c; |9 W) I* n& f) V) c, K9 A
IF[#22 EQ 4.]TH #500=#500 OR 8.
; e* z7 }! J! x5 Z- x8 j6 |IF[#22 EQ 4.]GO3
8 R( E: }. X1 E! b#3000=1.(#1-MODE-ERROR)* j* u6 l# H( r9 T- ?# X9 \4 I
N3 #11=FIX[#11/10.]4 F, N: V5 }' A% `5 e
END1% L8 |. N- @3 e) }) Z+ n! `
M99
' d7 w, n9 d; `/ ~  j7 T
以下为画蛇添足，多此一举。花拳欺敌法。目的搞死敌人
（逻辑运算有改）（WH里面的比较式有改）（除的变乘的;乘的变除的）

#1=1234.( T3 [1 ^$ s4 ^# Q
#11=FIX[ABS[#1]]$ x2 m: N6 l0 s
#500=15.(全部装满，让下面逐一减去)  V2 i3 r# H3 N
WHILE[#11GE1.]DO1: T( |# I* T7 T8 G) j
#22=[#11*0.1-FIX[#11*0.1]]*/0.11 H! {8 F. c: H
IF[#22 OR 1. EQ 1.]TH #500=#500 XOR 1.# A7 f( o( c1 F
IF[#22 EQ 1.]GO3: ~9 j' g! T( C$ k# n
IF[#22 OR 2. EQ 1.]TH #500=#500 XOR 2.
3 N. N) p6 f6 nIF[#22 EQ 2.]GO34 E0 m. Z. M$ }( |6 N" x% G* `" d6 }
IF[#22 OR 3. EQ 1.]TH #500=#500 XOR 4.% O5 u7 i- T, A2 O+ S9 }' j4 G8 x
IF[#22 EQ 3.]GO3
% r, [, ?- G. GIF[#22 OR 4. EQ 1.]TH #500=#500 XOR 8.) l) ?" R3 j1 E4 P& {1 m* L
IF[#22 EQ 4.]GO3$ u+ _4 X8 k/ g! M7 G
#3000=1.(#1-MODE-ERROR)
$ X, N* c9 g' h! X9 j7 [N3 #11=FIX[#11*0.1]
8 y1 C0 R, S5 F* CEND1; n- b% Z' m5 d+ a
M99

#1=1234.
2 h4 c; o: k3 ?" v( O#500=15.
7 h1 e) M3 U+ q0 V" G#11=ABS[FIX[#1]]
! W; I& ?- C/ G6 LWHILE[#11GT0.]DO1
9 o) Z) b( Q  K- o( N#22=[#11/10.-FIX[#11/10.]]*10.0 S6 R1 O* C$ U  }: r8 Q, O" d
IF[#22 - 1. EQ 0.]TH #500=#500 - 1.
7 n$ f1 J1 a# G' IIF[#22 EQ 1.]GO3
3 k) j/ r3 A  X$ Z8 PIF[#22 - 2. EQ 0.]TH #500=#500 - 2.' P& v1 G  E2 v  d, i$ _5 l
IF[#22 EQ 2.]GO3
( r' b1 Y' E# I0 u# F; nIF[#22 - 3. EQ 0.]TH #500=#500 - 4.; h1 V$ h, @6 m3 X+ w( {
IF[#22 EQ 3.]GO3
7 {6 i+ [# H& b6 g$ yIF[#22 - 4. EQ 0.]TH #500=#500 - 8.
6 j- T8 ?! t* c3 f- v- m4 oIF[#22 EQ 4.]GO3' f, I1 }# j, ~# X6 P3 V
#3000=1.(#1-MODE-ERROR)
- n) s1 L. F1 ON3 #11=FIX[#11/10.]' |% ]. Z& }0 y. y5 g- m
END17 ], ?+ _! k7 E/ I7 ^
M99

#1=1234.
) E7 Q% a7 W' J4 t1 i" J* U#11=ABS[FIX[#1]]4 j6 D% @2 I) `# N* K
#500=0.
. u$ Z$ P+ |  }% d( aWHILE[#11GT0.]DO1
9 q3 U6 U+ x8 _#22=[#11/10.-FIX[#11/10.]]*10.
0 l& V3 D# X) p  KIF[#22 XOR 1. EQ 0.]TH #500=#500 OR 1.
9 r  ]+ U6 G) d# _& ~IF[#22 EQ 1.]GO3* H/ W9 U3 B! Q" ^
IF[#22 XOR 2. EQ 0.]TH #500=#500 OR 2.+ m, d% @& O( `; o! B& z& [8 Y! O
IF[#22 EQ 2.]GO3* C( N7 O% K! s, X
IF[#22 XOR 3. EQ 0.]TH #500=#500 OR 4.
" W* Z, V% H% y7 B% Q* TIF[#22 EQ 3.]GO3
6 y- j6 S. ~; I! x1 BIF[#22 XOR 4. EQ 0.]TH #500=#500 OR 8.3 {. v' i2 q: _7 s& C0 w5 ?# @, E  t7 r: [
IF[#22 EQ 4.]GO36 b) _* z' G7 C. k
#3000=1.(#1-MODE-ERROR)
: y4 s6 I9 t1 Z/ S3 e; F+ uN3 #11=FIX[#11/10.]: [1 C" a5 r/ C( e
END1
$ B5 t) u& ^8 g8 E  a+ T; TM99

羅蓋仙 · 发表于 2013-8-18 13:50:47

最底下紫字也可以改成
#500=#500 + 1.
#500=#500 + 2.
#500=#500 + 4.
#500=#500 + 8.

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

渊源灼 · 发表于 2014-6-29 08:23:35

厉害

rfonaqx · 发表于 2014-6-30 00:55:23

我顶啊。接着顶

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

liziang0509 · 发表于 2014-7-1 20:14:34

谢谢分享。。。

蕾蕾 · 发表于 2014-9-5 19:57:53

回复 5# liziang0509

靠。。。这么nx

52106813 · 发表于 2014-10-9 04:54:50

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

jy0668 · 发表于 2014-10-16 13:48:10

感谢分享，帮顶一下

zxwen · 发表于 2014-10-26 15:46:53

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

1365944322 · 发表于 2014-11-3 10:57:29

支持宏程序，哈哈

账号		自动登录	找回密码
密码			立即注册

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

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区

站长推荐 /2