有关projecteuler题库621题的lisp解答，萌新求围观。

projecteuler题库

https://projecteuler.net/problem=621

https://pastebin.ubuntu.com/p/w2G5bwbJMR/

设T(n)是序号n的三角数
那么所计算的数W就是T(n1)+T(n2)+T(n3)
先不管顺序设(n1 , n2, n3)是从大到小排列
则有T(n1max)=(W/3)，T(n2max)=((W-T(n1))/2)
n1取0到n1max，n2取n1到n2max,
计算W-T(n1)-T(n2)是否为三角数。是则取序数n3
判断n1，n2，n3是否相等全不等记6，有两个相等记3，都相等记1。
相加即为结果。

(defun c:sj ()(setq  nn (getreal "请输入要计算的数：")a1 (xl nn 3))(setq xn 0qks 0)(repeat (+ a1 1)(setq an (/ (* xn (+ xn 1)) 2))(setq tn (xl (- nn an) 2))(setq yn xn)(repeat (+ 1 (- tn xn))(setq bn (/ (* yn (+ yn 1)) 2))(setq c1 (xl (- (- nn an) bn) 1))(setq qh (+ (+ an bn) (/ (* c1 (+ c1 1)) 2)))(if (= qh nn)(setq qks(+    (if (= xn yn)(if (= yn c1) 1 3)(if (= yn c1)36))qks)))(setq yn (+ yn 1)))(setq xn (+ xn 1)))(princ "G(")(princ (rtos nn))(princ ")=")(princ qks)(princ)
)(defun xl (n l)(- (fix (/ (+ 1 (expt (+ 1 (* 8 (/ n l))) 0.5)) 2)) 1)
)

有关projecteuler题库621题的lisp解答，萌新求围观。相关推荐

二级计算机为让利消费者,计算机二级office题库训练题(2)
D.计算机病毒是一个特殊的寄生程序 15. 以下关于编译程序的说法正确的是( ). A.编译程序属于计算机应用软件,所有用户都需要编译程序 B.编译程序不会生成目标程序,而是直接执行源程序 C.编译程 ...
c语言二级编程题库,二级C语言题库-编程题.doc
二级C语言题库-编程题第 PAGE \* Arabic \* MERGEFORMAT 27 页第 PAGE \* Arabic \* MERGEFORMAT 27 页 1.请编写函数fun,其功能是 ...
2019网络教育计算机统考模拟试题,最新2019年网络远程教育《计算机应用基础》统考模拟题库500题(含答案)...
2019年网络远程教育统考<计算机应用基础>考试题库500题[含答案] 一.选择题 1．启动ExCEl2003应用程序后自动建立的工作簿文件的文件名为_______. A.工作簿 B.工 ...
python第六章函数课后答案_浙大PTA-Python题库函数题(6-1~6-6)题解
其他各章题解链接如下浙大PTA-Python题库编程题第一章(1-1~1-3)题解 https://blog.csdn.net/zimuzi2019/article/details/1070206 ...
二级c语言基础题库100题,二级C语言上题库100题.doc
二级C语言上题库100题二级C语言上机试题汇编第01套: 给定程序中,函数fun的功能是:将形参n所指变量中,各位上为偶数的数去除,剩余的数按原来从高位到低位的顺序组成一个新的数,并通过形参指针 ...
python填空题_Python题库-填空题
『Python题库 - 填空题』Python笔试填空题 part 1. Python语言概述和Python开发环境配置 part 2. Python语言基本语法元素(变量,基本数据类型, 基础运算) ...
c语言填空题题库6,二级C语言题库-填空题.doc
二级C语言题库-填空题第 PAGE \* Arabic \* MERGEFORMAT 24 页第 PAGE \* Arabic \* MERGEFORMAT 24 页 1.下列给定程序中,函数fun ...
2015计算机二级c语言题库,2015年计算机二级C语言题库找题目录
2015年计算机二级C语言题库找题目录找题目录第01套:int fun(___1___ *std) 第02套:void WriteText(FILE ___1___) 第03套: fprintf( ...
c语言考试常考大题,C语言题库经典题考试常考题.doc
C语言题库经典题考试常考题.doc 下载提示(请认真阅读)1.请仔细阅读文档,确保文档完整性,对于不预览.不比对内容而直接下载带来的问题本站不予受理. 2.下载的文档,不会出现我们的网址水印. 3. ...

有关projecteuler题库621题的lisp解答，萌新求围观。

有关projecteuler题库621题的lisp解答，萌新求围观。相关推荐

最新文章

热门文章