在Common Lisp中使用 List Comprehension

本文介绍了如何在Common Lisp中使用incf-cl库实现类似Python和Haskell的List Comprehension功能,展示了简洁且强大的列表生成语法。

在 Python 和 Haskell中有非常简洁强大的 List Comprehension 用法:

>>> [(x, y) for x in range (1, 4) for y in ["A", "B"]] [(1, 'A'), (1, 'B'), (2, 'A'), (2, 'B'), (3, 'A'), (3, 'B')]

在 Common Lisp 中可以用 incf-cl 库来实现, 通过 quicklisp 安装很方便:

* (ql:quickload "incf-cl") To load "incf-cl": Load 1 ASDF system: cl-ppcre Install 1 Quicklisp release: incf-cl ; Fetching #<URL "http://beta.quicklisp.org/archive/incf-cl/2010-10-06/incf-cl-20101006-git.tgz"> ; 14.63KB ================================================== 14,981 bytes in 0.01 seconds (1044.99KB/sec) ; Loading "incf-cl" .................................................. [package incf-cl]..... ("incf-cl") * (use-package :incf-cl) T * (lc (cons x y) (<- x (range 1 3)) (<- y '(a b))) ((1 . A) (1 . B) (2 . A) (2 . B) (3 . A) (3 . B))

incf-cl 是模仿的Haskell的语法:

Prelude> [(x, y) | x <- [1..3], y <- ["A", "B"]] [(1,"A"),(1,"B"),(2,"A"),(2,"B"),(3,"A"),(3,"B")]

基于51单片机,实现对直流电机的调速、测速以及正反转控制。项目包含完整的仿真文件、源程序、原理图和PCB设计文件,适合学习和实践51单片机在电机控制方面的应用。 功能特点 调速控制:通过按键调整PWM占空比,实现电机的速度调节。 测速功能:采用霍尔传感器非接触式测速,实时显示电机转速。 正反转控制:通过按键切换电机的正转和反转状态。 LCD显示:使用LCD1602液晶显示屏,显示当前的转速和PWM占空比。 硬件组成 主控制器:STC89C51/52单片机(与AT89S51/52、AT89C51/52通用)。 测速传感器:霍尔传感器,用于非接触式测速。 显示模块:LCD1602液晶显示屏,显示转速和占空比。 电机驱动:采用双H桥电路,控制电机的正反转和调速。 软件设计 编程语言:C语言。 开发环境:Keil uVision。 仿真工具:Proteus。 使用说明 液晶屏显示: 第一行显示电机转速(单位:转/分)。 第二行显示PWM占空比(0~100%)。 按键功能: 1键:加速键,短按占空比加1,长按连续加。 2键:减速键,短按占空比减1,长按连续减。 3键:反转切换键,按下后电机反转。 4键:正转切换键,按下后电机正转。 5键:开始暂停键,按一下开始,再按一下暂停。 注意事项 磁铁和霍尔元件的距离应保持在2mm左右,过近可能会在电机转动时碰到霍尔元件,过远则可能导致霍尔元件无法检测到磁铁。 资源文件 仿真文件:Proteus仿真文件,用于模拟电机控制系统的运行。 源程序:Keil uVision项目文件,包含完整的C语言源代码。 原理图:电路设计原理图,详细展示了各模块的连接方式。 PCB设计:PCB布局文件,可用于实际电路板的制作。
评论
成就一亿技术人!
拼手气红包6.0元
还能输入1000个字符
 
红包 添加红包
表情包 插入表情
 条评论被折叠 查看
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

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

抵扣说明:

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

余额充值