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

羅蓋仙

以下是我的理论请参考，我并没有写得很周全
; m' U  P. j' M. ^- n1 B
#1=1234.
#11=ABS[FIX[#1]]
. b: K) w" |% j6 O#500=0.
" Z: ]8 [: t4 H+ p+ ?8 \WHILE[#11GT0.]DO1
+ w# j3 C) J0 o7 g#22=[#11/10.-FIX[#11/10.]]*10.
IF[#22 EQ 1.]TH #500=#500 OR 1.
2 {) [$ p7 k& \! p5 G' Z, P6 }IF[#22 EQ 1.]GO3
- O' A1 U6 z7 U# u+ E, K% uIF[#22 EQ 2.]TH #500=#500 OR 2.
- `$ t5 ?+ e; A7 k7 ?# c+ cIF[#22 EQ 2.]GO3
IF[#22 EQ 3.]TH #500=#500 OR 4.
IF[#22 EQ 3.]GO3
: C. ~0 U, `6 r8 P" g- IIF[#22 EQ 4.]TH #500=#500 OR 8.
! o7 a+ d3 p7 UIF[#22 EQ 4.]GO3
5 q6 I* A5 {  {* ~5 }#3000=1.(#1-MODE-ERROR)
, t- ?) Z! C+ ?N3 #11=FIX[#11/10.]
END1
M99

# L' F3 w! y' X. k8 Z以下为画蛇添足，多此一举。花拳欺敌法。目的搞死敌人
（逻辑运算有改）（WH里面的比较式有改）（除的变乘的;乘的变除的）
8 M9 _  `" Z* x
/ K& H3 ~7 y# A6 n#1=1234.
#11=FIX[ABS[#1]]
% D+ j: i% R7 v) i& r/ P; ?& _#500=15.(全部装满，让下面逐一减去)
; u" x' a; c& X( f  [WHILE[#11GE1.]DO1
6 J: g* }. M% N# j5 i: b#22=[#11*0.1-FIX[#11*0.1]]*/0.1
, j! @. C! w7 ]8 M6 {* _& BIF[#22 OR 1. EQ 1.]TH #500=#500 XOR 1.
- j5 i" e0 _# Q) gIF[#22 EQ 1.]GO3
% k; H. e# e& n# M2 \IF[#22 OR 2. EQ 1.]TH #500=#500 XOR 2.
) Q, V7 ~( Z/ q3 nIF[#22 EQ 2.]GO3
IF[#22 OR 3. EQ 1.]TH #500=#500 XOR 4.
# x3 U1 G: h7 h9 qIF[#22 EQ 3.]GO3
IF[#22 OR 4. EQ 1.]TH #500=#500 XOR 8.
IF[#22 EQ 4.]GO3
( j/ H  H  h* ?+ t#3000=1.(#1-MODE-ERROR)
N3 #11=FIX[#11*0.1]
END1
9 k6 Z4 i  U% _! Z+ L  t5 ~M99
( E3 Q% P+ k2 V6 P1 W9 P

5 Q( X$ q% ~+ o) t
#1=1234.
' r' a3 C. d! |, O7 h3 Z  l- z$ X#500=15.
#11=ABS[FIX[#1]]
WHILE[#11GT0.]DO1
#22=[#11/10.-FIX[#11/10.]]*10.
. Q0 `" z+ ~1 @) mIF[#22 - 1. EQ 0.]TH #500=#500 - 1.
IF[#22 EQ 1.]GO3
+ ~7 Y6 G6 ^) O, o" bIF[#22 - 2. EQ 0.]TH #500=#500 - 2.
IF[#22 EQ 2.]GO3
  L/ f: s7 e) ]5 aIF[#22 - 3. EQ 0.]TH #500=#500 - 4.
" d* x4 D& B# c1 }3 j, [8 NIF[#22 EQ 3.]GO3
IF[#22 - 4. EQ 0.]TH #500=#500 - 8.
0 C0 Q0 P9 d( h5 K; |& {IF[#22 EQ 4.]GO3
#3000=1.(#1-MODE-ERROR)
3 t7 a0 i0 e" z' aN3 #11=FIX[#11/10.]
END1
- j% P8 d$ {7 }7 pM99

2 M. \. _7 G# @1 o

#1=1234.
: h3 T+ y' V) G/ G#11=ABS[FIX[#1]]
: x- x" u0 h" T$ L) L#500=0.
WHILE[#11GT0.]DO1
#22=[#11/10.-FIX[#11/10.]]*10.
2 C3 T0 n' C0 x2 g6 oIF[#22 XOR 1. EQ 0.]TH #500=#500 OR 1.
IF[#22 EQ 1.]GO3
IF[#22 XOR 2. EQ 0.]TH #500=#500 OR 2.
, d" A8 s- ^# |& z/ H/ \! J8 W# iIF[#22 EQ 2.]GO3
$ z5 v0 _9 t6 }3 d) a6 X  l  @! TIF[#22 XOR 3. EQ 0.]TH #500=#500 OR 4.
; h! j6 c: w5 m# M. Q: l) b# E$ kIF[#22 EQ 3.]GO3
IF[#22 XOR 4. EQ 0.]TH #500=#500 OR 8.
IF[#22 EQ 4.]GO3
5 t" ~/ Y2 R* i8 Y3 \1 ?; V9 ~' C& I#3000=1.(#1-MODE-ERROR)
N3 #11=FIX[#11/10.]
0 [. v' [' d# K9 W' `& }END1
; @2 ?- |0 k# \M99

羅蓋仙

最底下紫字也可以改成
#500=#500 + 1.
#500=#500 + 2.
#500=#500 + 4.
+ N  Q% x7 A: S& ^$ v#500=#500 + 8.
! k: M3 i2 P; H/ n
感想是使用OR最安全
用其他可能会被累加或被累减

渊源灼

厉害

rfonaqx

我顶啊。接着顶
% }6 l' x1 }5 V! t. u
( u. m7 u- m3 F- X6 q! r$ [
; A! G# ~% h$ @7 ~4 F. I* e9 C9 N


/ j" H6 `9 `: R
! u4 b& M  Z0 H5 j0 B3 H
+ N9 C. [- b1 c, N# t$ b5 B



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

liziang0509

谢谢分享。。。

蕾蕾

回复 5# liziang0509
* ^  g* F9 C5 `( _

    靠。。。这么nx

52106813

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

jy0668

感谢分享，帮顶一下

zxwen

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

1365944322

支持宏程序，哈哈