LISP DO循环斐波那契额数列

最新推荐文章于 2025-02-06 16:32:07 发布
原创 最新推荐文章于 2025-02-06 16:32:07 发布 · 1.3k 阅读 · 0 ·
CC 4.0 BY-SA版权
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。

本文通过一个LISP语言的示例展示了如何使用递归计算斐波那契数列的第10项。该示例代码简洁地演示了递归过程，对于理解LISP语言的基本语法和递归算法具有很好的参考价值。 
CL-USER> (do ((n 0 (1+ n))
	      (cur 0 next)
	      (next 1 (+ cur next)))
	     ((= 10 n) cur))
55

【禅与计算机程序设计艺术】使用 16 门编程语言实现斐波那契数列：循环控制指令与函数递归思想
AI天才研究院
02-26 2万+
斐波那契数列又称黄金分割数列，指的是这样一个数列：0、1、1、2、3、5、8、13、21、34、……。斐波那契数列的特点是数列的前两个数都是1，从第三个数开始，每个数都是它前面两个数的和。在 Kotlin 语言中，可以使用循环和递归两种方式来实现斐波那契数列，使用循环实现时，首先判断输入的参数是否是1或者2，如果是，则返回1；否则，就使用循环的方式来求解斐波那契数列。使用递归实现时，也是使用 if-else 语句来求解斐波那契数列，如果输入的参数是1或者2，则返回1；
Lisp：斐波那契数列
浏览器开发教学
03-14 691
#lang rocket (define (fib-one n) (cond ((= n 0) 0) ((= n 1) 1) (else (+ fib-one(- n 1) fib-one(- n 2))))) (define (fib-two n) (fibadd 1 0 n)) (define (fibadd a b n) ...
Lisp语言：Do循环的使用
mmdev
11-29 713
有关Lisp语言中的Do循环，就像很多人说的一样，初看起来太奇怪了，不知道怎么理解。所以在这里做一个简单的介绍，看完大家可以发现其实Lisp中的do循环也是比较简单的。 先看看Lisp语言中对于do循环的说明： (do (variable-definitions*) (end-test-form result-form*) statement*) 翻译成“中文”大概意思是这...
用Lisp语言实现Fibonacci数列
齐格的技术博客
03-31 2174
我们知道Fibonacci数列的第n个数为F(n) = F(n-1) + F(n-2), F(0) = 0, F(1) = 1。这里，我们数组的下标从0开始。 用Lisp实现求F(n)，它有两种求法：递归和非递归。如果是递归的话，当n=50以上就非常慢了。 (defun fib (n) ;calculate the Fibonacci list at pos n (do
LISP实现斐波那契数列（递归、非递归）
CallMeYunzi的博客
12-26 627
递归： #lang racket (define (FIB X) (cond ((= X 0) 0) ((= X 1) 1) ((> X 1) (+ (FIB (- X 2)) (FIB (- X 1)))))) (FIB 15) 非递归： #lang racket (define (fib n) (...
LISP 7.6 Do循环
风达的专栏
06-14 1968
写一个遍历质数的程序 (defun primep (number) (when (> number 1) (loop for fac from 2 to (isqrt number) never (zerop (mod number fac))))) (defun next-prime (number) (loop for n from number when (primep
Lisp循环输出技术详解
为了更好地说明问题，我们可以假设`README.txt`文件中详细介绍了如何使用Lisp进行循环输出，文件可能包含了各种示例和解释，例如如何使用循环生成斐波那契数列、如何在循环中使用条件判断、如何对不同类型的列表进行...
Lisp语言的循环实现
最新发布
2501_90426064的博客
02-06 415
高阶函数是Lisp的一个核心特性，它可以接收函数作为参数，或返回一个函数。Lisp提供了许多内置的高阶函数，比如mapcarreducefilter等，这些函数在处理集合时非常有用，并且通常可以替代传统的循环结构。
lisp程序 编程教材
02-27
10. **迭代与循环**: 虽然LISP强调使用递归，但也提供了`dotimes`和`do`等循环结构来处理迭代问题。 对于初学者，尤其大学生进行课程设计，LISP教材会逐步引导他们理解这些概念，并通过实践编写LISP小程序来加深...
使用 Lisp 递归函数实现 斐波那契数列 Fibonacci
AI天才研究院
09-14 8766
Lisp 递归函数实现 (defun fib (n) (if (<= n 1) 1 (+ (fib (- n 1)) (fib (- n 2))))) 运行测试： FIB * (fib 10) 89 * (fib 20) 10946 * (fib 30) 1346269 * (fib 40) 165580141 ...
斐波那契数列打印机
Common LISP
05-18 607
templatestruct fnum {        enum { val = fnum::val + fnum::val };};templatestruct fnum{        enum { val = 1 };};templatestruct fnum{        enum { val = 1 };};templatestruct fnumber_printer{   
LISP递归求斐波那契数
chuanyang6282的博客
11-24 191
初学LISP，写了一个求斐波那契数的递归式： (defmacro f (n) (funcall (lambda (fn n) (funcall fn n fn)) (lambda (n this) (cond ((> n 2) ...
编程之美-斐波那契(Fibonacci)数列方法整理
GarfieldEr007的专栏
11-09 1867
【试题描述】 方法一：传统解法，有重复计算 方法二：地推关系式的优化，时间复杂度O(n)，空间复杂度也是O(n) 方法三：时间复杂度O(1) 方法四：分治策略，时间复杂度O(logn)
Lisp语言：循环控制
YdvCss的博客
09-22 338
Lisp是一种功能强大的编程语言，具有灵活的控制结构和丰富的语法。在Lisp中，我们可以使用循环控制结构来迭代执行一系列操作。本文将介绍Lisp中的循环控制结构以及它们的使用方法，并提供相应的源代码示例。在Lisp中，常用的循环控制结构有三种：do、dotimes和dolist。这些结构各有特点，适用于不同的循环场景。下面我们将逐个介绍它们的用法。
lisp 正则表达式示例
weixin_34247155的博客
02-03 991
lisp正则表达式可以用多个第三方的包,cliki推荐是cl-ppcre这个包.在代码中写正则表达式可以用cl-interpol这个包方便转义 cl-interpol 如果要匹配一对括号不用cl-interpol,需要写成 "\\(\\)" 借助cl-interpol只需下面的写法 CL-USER> #?R"\(\)" "\\(\\)" CL-US...
初识LISP（2）——结构、循环与函数
梅雨心情的博客
04-08 4408
一、LISP—决策 Construct 描述 cond 这个结构是用于用于检查多个测试行动作条件。它可以嵌套if或其他编程语言语句。 if if结构有多种形式。在最简单的形式，它后面跟着一个测试条，测试操作和一些其它相应措施(次)。如果测试子句的值为true，那么测试的动作被执行，否则，由此产生的子句求值。 when
汇编语言实现斐波那契数列
丁胜利的博客
07-18 1万+
c语言写成如下形式： int fibo(int n) { if(n == 1 || n == 2) return 1; return fibo(n - 1) + fibo(n - 2);//递归调用 } 改写： int fibo(int eax) { int ebx, ecx; if(eax == 1) { return eax; ...
编写并运行第一个Lisp程序
小灰笔记
11-26 1万+
我觉得接触一门新的编程语言的时候第一个程序的编写至关重要，这能够让我快速了解到简单的语法以及运行方法。而运行方法基本上是我更为关注的，因为这将是后期学习过程中不断打交道的东西。        为了能够弥补工作中那种浪费时间的懊悔感，我决定学习一个新的编程语言，初步选定了lisp。倒是没有特别的因由，只是随便想到了就选择了。这个纯粹是一种赎罪式消磨时间的学习，倒也不期望自己能够学到什么成果。倒是学
求斐波那契数列的三种方法
热门推荐
小猛同学的博客
07-05 14万+
什么是斐波那契数列，1,1,2,3,5,8,13...这样一个数列就是斐波那契数列，求第n项的值。 一、经典求法 观察数列可得，除了第一项和第二项，所有的数列的值都是前一项和前一项的前一项的加和，转换成函数也就是f(n) = f(n-1) + f(n-2) public static int f1(int n) { if(n &lt; 1) { return 0; ...
STM32智能骑行头盔设计：理解Lisp中的do循环
这个基于STM32的智能骑行头盔设计项目中，开发者利用Lisp的`do`循环和其他基本工具来实现特定的算法和逻辑，展示了Lisp在嵌入式系统中的应用潜力。通过深入学习Lisp，开发者可以更好地理解和控制智能设备的内部工作...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值