ITPub博客

首页 > Linux操作系统 > Linux操作系统 > 使用SQL判断一个数是否质数

使用SQL判断一个数是否质数

原创 Linux操作系统 作者:yangtingkun 时间:2008-01-10 23:40:00 0 删除 编辑

前两天用SQL计算一个数以内的所有质数,这里补一篇判断一个数是否是质数的SQL实现。

SQL计算100以内的质数:http://yangtingkun.itpub.net/post/468/450278

 

 

这个SQL的实现方法前面那个SQL很类似:

SQL> UNDEF NUM
SQL> WITH
  2  T AS (SELECT ROWNUM RN FROM DUAL CONNECT BY LEVEL <= &&NUM/2)
  3  SELECT &NUM
  4   || DECODE
  5    (
  6     (
  7      SELECT &NUM FROM DUAL
  8      MINUS
  9      SELECT A.RN * B.RN FROM T A, T B
 10      WHERE A.RN <= ROUND(POWER(&NUM, 0.5))
 11      AND B.RN >= ROUND(POWER(&NUM, 0.5))
 12     ),
 13     NULL,
 14     '
'
 15    )
 16   || '
是质数'
 17  FROM DUAL;
输入 num 的值:  23
原值    2: T AS (SELECT ROWNUM RN FROM DUAL CONNECT BY LEVEL <= &&NUM/2)
新值    2: T AS (SELECT ROWNUM RN FROM DUAL CONNECT BY LEVEL <= 23/2)
原值    3: SELECT &NUM
新值    3: SELECT 23
原值    7:     SELECT &NUM FROM DUAL
新值    7:     SELECT 23 FROM DUAL
原值   10:     WHERE A.RN <= ROUND(POWER(&NUM, 0.5))
新值   10:     WHERE A.RN <= ROUND(POWER(23, 0.5))
原值   11:     AND B.RN >= ROUND(POWER(&NUM, 0.5))
新值   11:     AND B.RN >= ROUND(POWER(23, 0.5))

23||DECODE
----------
23
是质数

SQL> UNDEF NUM
SQL> WITH
  2  T AS (SELECT ROWNUM RN FROM DUAL CONNECT BY LEVEL <= &&NUM/2)
  3  SELECT &NUM
  4   || DECODE
  5    (
  6     (
  7      SELECT &NUM FROM DUAL
  8      MINUS
  9      SELECT A.RN * B.RN FROM T A, T B
 10      WHERE A.RN <= ROUND(POWER(&NUM, 0.5))
 11      AND B.RN >= ROUND(POWER(&NUM, 0.5))
 12     ),
 13     NULL,
 14     '
'
 15    )
 16   || '
是质数'
 17  FROM DUAL;
输入 num 的值:  25
原值    2: T AS (SELECT ROWNUM RN FROM DUAL CONNECT BY LEVEL <= &&NUM/2)
新值    2: T AS (SELECT ROWNUM RN FROM DUAL CONNECT BY LEVEL <= 25/2)
原值    3: SELECT &NUM
新值    3: SELECT 25
原值    7:     SELECT &NUM FROM DUAL
新值    7:     SELECT 25 FROM DUAL
原值   10:     WHERE A.RN <= ROUND(POWER(&NUM, 0.5))
新值   10:     WHERE A.RN <= ROUND(POWER(25, 0.5))
原值   11:     AND B.RN >= ROUND(POWER(&NUM, 0.5))
新值   11:     AND B.RN >= ROUND(POWER(25, 0.5))

25||DECODE
----------
25
不是质数

需要注意一点,对于开方结果的四舍五入是很必要的,否则可能会得到错误的结果:

SQL> UNDEF NUM
SQL> WITH
  2  T AS (SELECT ROWNUM RN FROM DUAL CONNECT BY LEVEL <= &&NUM/2)
  3  SELECT &NUM
  4   || DECODE
  5    (
  6     (
  7      SELECT &NUM FROM DUAL
  8      MINUS
  9      SELECT A.RN * B.RN FROM T A, T B
 10      WHERE A.RN <= POWER(&NUM, 0.5)
 11      AND B.RN >= POWER(&NUM, 0.5)
 12     ),
 13     NULL,
 14     '
'
 15    )
 16   || '
是质数'
 17  FROM DUAL;
输入 num 的值:  49
原值    2: T AS (SELECT ROWNUM RN FROM DUAL CONNECT BY LEVEL <= &&NUM/2)
新值    2: T AS (SELECT ROWNUM RN FROM DUAL CONNECT BY LEVEL <= 49/2)
原值    3: SELECT &NUM
新值    3: SELECT 49
原值    7:     SELECT &NUM FROM DUAL
新值    7:     SELECT 49 FROM DUAL
原值   10:     WHERE A.RN <= POWER(&NUM, 0.5)
新值   10:     WHERE A.RN <= POWER(49, 0.5)
原值   11:     AND B.RN >= POWER(&NUM, 0.5)
新值   11:     AND B.RN >= POWER(49, 0.5)

49||DECODE
----------
49
是质数

导致这个问题的原因就是OraclePOWER函数计算精度:

SQL> SELECT TO_CHAR(POWER(49, 0.5)) FROM DUAL;

TO_CHAR(POWER(49,0.5))
----------------------------------------
7.00000000000000000000000000000000000003

这个SQL只适用于大于2的整数。SQL本身还可以进行部分优化,这里就不描述了。

 

来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/4227/viewspace-134196/,如需转载,请注明出处,否则将追究法律责任。

请登录后发表评论 登录
全部评论
暂无介绍

注册时间:2007-12-29

  • 博文量
    1955
  • 访问量
    10486382