质数:这是什么lisp,换成AutoLisp是什么模样?

newer · 发表于 2014-11-10 10:54:04

本帖最后由 newer 于 2014-11-10 11:04 编辑

/db_自贡黄明儒_ 发表于 2014-11-10 10:16
N版，你上次您给我讲了boole ,这次是不是给我讲讲lsh的用法，我在明经和晓东都搜不到呀

看下下面图，明白数的二进位表示就明白了。

下面是数字20左移2位，后面的空位补2个0.

搜狗截图20141110104657.png

Free-Lancer · 发表于 2014-11-10 10:56:55

Autolisp 没有 return 函数，效率要打折很多
这是一个 VC  筛选法

#include<stdio.h>
#include<math.h>
#define N 10000001

bool prime[N];

int main()
{
int i, j;
for(i=2; i<N; i++)
   if(i%2) prime[i]=true;
   else prime[i]=false;

   for(i=3; i<=sqrt(N); i++)
   {
      if(prime[i])
         for(j=i+i; j<N; j+=i) prime[i]=false;
   }
   for(i=2; i<100; i++)//由于输出将占用太多io时间，所以只输出2-100内的素数。可以把100改为N
      if( prime[i] )printf("%d ",i);
return 0;
}

/db_自贡黄明儒_ · 发表于 2014-11-10 11:31:15

newer 发表于 2014-11-10 10:54
看下下面图，明白数的二进位表示就明白了。

下面是数字20左移2位，后面的空位补2个0.

图示很明白，(lsh 20 2)就是左移两位后面补0，文字说明就不知道什么意思了。

newer · 发表于 2014-11-10 11:34:53

/db_自贡黄明儒_ 发表于 2014-11-10 11:31
图示很明白，(lsh 20 2)就是左移两位后面补0，文字说明就不知道什么意思了。

文字哪里不明白了？
10进制你最熟悉，十进制的20 左移两位，等于多少？ 2000吧， 10进制左移1位，数变大10倍，2位，数变大100倍，

那二进制呢？十六进制呢？

/db_自贡黄明儒_ · 发表于 2014-11-10 11:42:51

本帖最后由 /db_自贡黄明儒_ 于 2014-11-10 11:45 编辑

newer 发表于 2014-11-10 11:34
文字哪里不明白了？
10进制你最熟悉，十进制的20 左移两位，等于多少？ 2000吧， 10进制左移1位，数变 ...

10100左移两位1010000,用计算器转换可以看到80，这个你图示说明了。我不知道你的文字说明的含义。
明白了，你是说20左移2位，直接可以算得80

newer · 发表于 2014-11-10 11:50:29

/db_自贡黄明儒_ 发表于 2014-11-10 11:42
10100左移两位1010000,用计算器转换可以看到80，这个你图示说明了。我不知道你的文字说明的含义。
明白 ...

是滴，移位操作是计算机最快的操作，一个时钟周期就完成了，而乘法操作要很多个时钟周期才能完成。

ll_j · 发表于 2014-11-10 12:59:32

Free-Lancer 发表于 2014-11-10 10:56
Autolisp 没有 return 函数，效率要打折很多
这是一个 VC 筛选法

上网查了一下，按筛选法写了一段代码，速度的确提高很多：

(defun Sxprime (n / i l m k)
; (setq t1 (getvar "cdate"))
(setq i 3
l '(3)
)
(while (<= i (- n 2))
(setq i (+ i 2)
l (cons i l)
)
)
(setq l (reverse l)
k (car l)
m (cdr l)
l ()
)
(while (<= k (sqrt n))
(setq m (vl-remove-if '(lambda (x) (= (rem x k) 0)) m)
l (cons k l)
k (car m)
m (cdr m)
)
)
(append '(2) (reverse l) (list k) m)
; (setq tt (- (getvar "cdate") t1))
)

分析速度影响的因素，前面使用的常规方法是后面在前面的结果基础上累加，随着n的增加，时间呈指数递增，而筛选法是前面构建一个大表，随后在此表基础上做减法，所影响是越来越小，所以速度要快，尤其在数值较大时。

Free-Lancer · 发表于 2014-11-10 13:59:17

ll_j 发表于 2014-11-10 12:59
上网查了一下，按筛选法写了一段代码，速度的确提高很多：

分析速度影响的因素，前面使用的常规方法是 ...

上面 VC 代码出处，筛选法效率是可以大大提高的！
http://blog.csdn.net/liukehua123/article/details/5482854

/db_自贡黄明儒_ · 发表于 2014-11-10 14:25:53

ll_j 发表于 2014-11-10 12:59
上网查了一下，按筛选法写了一段代码，速度的确提高很多：

分析速度影响的因素，前面使用的常规方法是 ...

;;[功能] 小于n的质数
;;(Sxprime 100)=>(2 3 5 7 11 13 17 19 23 29 31 37 41 43 47 53 59 61 67 71 73 79 83 89 97)
(defun Sxprime (n / I K L LST ROOT)
;; (setq t1 (getvar "cdate"))
(setq i 3
l '(3)
)
(while (<= i (- n 2))
(setq i (+ i 2)
l (cons i l)
)
)
(setq root (sqrt n))
(setq l (reverse l))
(while (and (setq k (car l)) (<= k root))
(setq l (cdr l))
(setq l (vl-remove-if '(lambda (x) (= (rem x k) 0)) l))
(setq lst (cons k lst))
)
(append '(2) (reverse lst) l)
;; (setq tt (- (getvar "cdate") t1))
)

我简化了一下，以期望代码看起来更短

/db_自贡黄明儒_ · 发表于 2014-11-10 14:32:34

ll_j 发表于 2014-11-10 12:59
上网查了一下，按筛选法写了一段代码，速度的确提高很多：

分析速度影响的因素，前面使用的常规方法是 ...

;;[功能] 小于n的质数
;;(Sxprime 100)=>(2 3 5 7 11 13 17 19 23 29 31 37 41 43 47 53 59 61 67 71 73 79 83 89 97)
(defun Sxprime (n / I K L LST ROOT)
;; (setq t1 (getvar "cdate"))
(setq i 3
l '(3)
)
(while (<= i (- n 2))
(setq i (+ i 2)
l (cons i l)
)
)
(setq root (sqrt n))
(setq l (reverse l))
(while (and (setq k (car l)) (<= k root))
(setq l (cdr l))
(setq l (vl-remove-if '(lambda (x) (= (rem x k) 0)) l))
(setq lst (cons k lst))
)
(append '(2) (reverse lst) l)
;; (setq tt (- (getvar "cdate") t1))
)

;;我简化了一下，希望代码看起来更短

/db_自贡黄明儒_ · 发表于 2014-11-11 09:01:20

本帖最后由 /db_自贡黄明儒_ 于 2014-11-11 09:13 编辑

ll_j 发表于 2014-11-10 12:59
上网查了一下，按筛选法写了一段代码，速度的确提高很多：

分析速度影响的因素，前面使用的常规方法是 ...

仔细阅读学习，简化了一下

;;[功能] 小于n的质数
;;(SPrime 100)=>(2 3 5 7 11 13 17 19 23 29 31 37 41 43 47 53 59 61 67 71 73 79 83 89 97)
(defun Sprime (n / I K L LST ROOT)
;; (setq t1 (getvar "cdate"))
(setq i 1)(setq root (sqrt n))
(while (<= (setq i (+ i 2)) n) (setq l (cons i l)))
(setq l (reverse l))
(while (and (setq k (car l)) (<= k root))
(setq l (vl-remove-if '(lambda (x) (= (rem x k) 0)) (cdr l)))
(setq lst (cons k lst))
)
(append '(2) (reverse lst) l)
;; (setq tt (- (getvar "cdate") t1))
)

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

[求助] 质数:这是什么lisp,换成AutoLisp是什么模样?

点评

评分

点评

点评

点评

点评

点评

评分

评分