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

羅蓋仙 · 發(fā)表于 2013-8-18 10:42:08

馬上注冊，結(jié)交更多好友，享用更多功能，讓你輕松玩轉(zhuǎn)社區(qū)

您需要登錄才可以下載或查看，沒有賬號？立即注冊

×

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

#1=1234./ d/ T- G* h( d, P( [& i4 R8 [
#11=ABS[FIX[#1]]! `/ e. o4 E$ G# d3 c& u
#500=0.
7 W& C' w7 e: \( s- GWHILE[#11GT0.]DO1
, F* K9 t/ n& l1 h" t& [  l#22=[#11/10.-FIX[#11/10.]]*10.
- ]4 M+ A5 u( I7 H! MIF[#22 EQ 1.]TH #500=#500 OR 1.  ?. [- {+ o7 ?. g# B  a
IF[#22 EQ 1.]GO3$ P7 W$ P3 o4 F) B8 T/ L& c
IF[#22 EQ 2.]TH #500=#500 OR 2.0 ], _4 b% m5 P. Z! _$ T
IF[#22 EQ 2.]GO3
9 M' W/ a3 d+ MIF[#22 EQ 3.]TH #500=#500 OR 4.8 g5 B1 S5 R' X
IF[#22 EQ 3.]GO3) h( C1 _. h& }' N8 E7 s. `
IF[#22 EQ 4.]TH #500=#500 OR 8./ E5 y! X: s. q
IF[#22 EQ 4.]GO3" ~1 B' X) R) M: I
#3000=1.(#1-MODE-ERROR)5 b: @, M* @4 Q* t  V
N3 #11=FIX[#11/10.]
- B- V6 x5 z* x. H, V( b5 g# w6 REND1
. Q" O1 ?. D+ |M99# O" X! {: d4 b1 U! e, u4 j+ j

以下為畫蛇添足，多此一舉。花拳欺敵法。目的搞死敵人
（邏輯運(yùn)算有改）（WH里面的比較式有改）（除的變乘的;乘的變除的）

#1=1234.4 k; ?; e& G8 h# Q2 q* J
#11=FIX[ABS[#1]], x3 z9 W& Q8 Y, `$ Z
#500=15.(全部裝滿，讓下面逐一減去)
% K2 q, M4 j/ o7 v9 }% a; ]& W4 YWHILE[#11GE1.]DO1
- q; ]6 [/ }, d4 _. X' }#22=[#11*0.1-FIX[#11*0.1]]*/0.1% m& P; Q* r/ ?7 O  ^/ \
IF[#22 OR 1. EQ 1.]TH #500=#500 XOR 1.% c+ p. ]; Z/ j8 d+ Y6 ~' F4 K) Y
IF[#22 EQ 1.]GO3# U) O7 [# ^3 x9 i* T0 L
IF[#22 OR 2. EQ 1.]TH #500=#500 XOR 2.
5 E4 T- f, J/ |) C. b# Z. q, @IF[#22 EQ 2.]GO33 n' B( D0 T; g  v9 I- Y8 f
IF[#22 OR 3. EQ 1.]TH #500=#500 XOR 4.
/ r' j0 T$ v$ Q% q. NIF[#22 EQ 3.]GO3# I: {7 M8 u8 w: Z. k
IF[#22 OR 4. EQ 1.]TH #500=#500 XOR 8.
) ~* Q  ~9 h8 M, N% [0 E* w. zIF[#22 EQ 4.]GO3
- I" d* c% t  o" @#3000=1.(#1-MODE-ERROR)1 B3 G) z# ~/ C# [! |
N3 #11=FIX[#11*0.1]
1 r, D  k; ~6 F/ M$ NEND11 X6 ^+ y+ \6 O! m3 r: }" ^
M99

#1=1234.1 V$ M! t- G: L& S6 M
#500=15.# n" \1 C0 c6 q5 v
#11=ABS[FIX[#1]]
1 x$ J2 p) C% v: Z( n; sWHILE[#11GT0.]DO1
: p1 ^2 r% w' e* s. J( I- g#22=[#11/10.-FIX[#11/10.]]*10.5 P" p7 W/ d; }; [$ ^0 Y/ X
IF[#22 - 1. EQ 0.]TH #500=#500 - 1.; T6 y" w: ~3 l: O# F
IF[#22 EQ 1.]GO3( n' ]' P( V3 I; `9 c5 \
IF[#22 - 2. EQ 0.]TH #500=#500 - 2.
6 F; G8 @/ |0 k0 K- BIF[#22 EQ 2.]GO3: T8 ~  n& {" B7 R
IF[#22 - 3. EQ 0.]TH #500=#500 - 4.
- K, t! m/ X+ w3 M+ ?5 |1 OIF[#22 EQ 3.]GO3
1 B$ X- q# v- v: V" p" jIF[#22 - 4. EQ 0.]TH #500=#500 - 8.; I2 v4 t1 a' o/ H
IF[#22 EQ 4.]GO3
6 a& |+ H6 c" ^& ?. b! i% e#3000=1.(#1-MODE-ERROR)
  A9 O: S& T: ~/ ~# tN3 #11=FIX[#11/10.]
, f0 g0 F: S9 @# HEND1
. `& z) z9 X# y$ {* P( qM99

#1=1234.: P7 u* l  o6 h+ K
#11=ABS[FIX[#1]]5 z; g  g4 Q$ @2 b
#500=0.4 t2 _: y2 u- m: t7 d, v  m; f8 W
WHILE[#11GT0.]DO1
  F) H$ J9 q9 S8 t#22=[#11/10.-FIX[#11/10.]]*10.
2 o/ z% J$ {; NIF[#22 XOR 1. EQ 0.]TH #500=#500 OR 1.
! X; H/ A$ H% K5 FIF[#22 EQ 1.]GO3
* D. Z* e7 U6 s- E8 Y' Y) k6 UIF[#22 XOR 2. EQ 0.]TH #500=#500 OR 2.# |8 r4 h5 n- a
IF[#22 EQ 2.]GO3
4 o& A& m! y3 u4 M$ P6 i  {IF[#22 XOR 3. EQ 0.]TH #500=#500 OR 4.
) {& O, B) _$ XIF[#22 EQ 3.]GO3$ P9 z% ]6 d& s! O% V9 }% j+ g8 ?: K
IF[#22 XOR 4. EQ 0.]TH #500=#500 OR 8.
; f( M' J' y/ o2 |- ~IF[#22 EQ 4.]GO37 H" Z) }8 k4 c1 g# a) Y
#3000=1.(#1-MODE-ERROR)
7 \: f: G0 g- Q1 U' r; }2 ^- i+ eN3 #11=FIX[#11/10.]6 Z& \, h& u& N3 b$ h5 L" `
END1: `4 I: A0 ?! |7 v
M99

羅蓋仙 · 發(fā)表于 2013-8-18 13:50:47

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

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

淵源灼 · 發(fā)表于 2014-6-29 08:23:35

厲害

rfonaqx · 發(fā)表于 2014-6-30 00:55:23

我頂啊。接著頂

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

liziang0509 · 發(fā)表于 2014-7-1 20:14:34

謝謝分享。。。

蕾蕾 · 發(fā)表于 2014-9-5 19:57:53

回復(fù) 5# liziang0509

靠。。。這么nx

52106813 · 發(fā)表于 2014-10-9 04:54:50

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

jy0668 · 發(fā)表于 2014-10-16 13:48:10

感謝分享，幫頂一下

zxwen · 發(fā)表于 2014-10-26 15:46:53

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

1365944322 · 發(fā)表于 2014-11-3 10:57:29

支持宏程序，哈哈

賬號		自動登錄	找回密碼
密碼			立即注冊

亚洲精品自拍偷拍_欧美八区_天堂中文资源在线_99热超碰在线_伊人亚洲精品_日本中文在线

[分享] 小魚老師的智能鉆孔──我另有新啟發(fā)

馬上注冊，結(jié)交更多好友，享用更多功能，讓你輕松玩轉(zhuǎn)社區(qū)

站長推薦 /2