Skip to content
小飞侠
  • 首页
  • 小程序
  • uniapp
  • vue
  • APICloud
  • 其他
菜单

博客

  1. 首页>
  2. 其他>
  3. lisp(判断回文数)

lisp(判断回文数)

  • Post author:xfxia
  • Post published:2023年10月31日
  • Post category:其他


(defun re(n)
(setf len (length n))
(if (oddp len)
(setf mid (/ (1+ len) 2))
(setf mid (/ len 2)))
(or
(and (oddp len) (equal (subseq n 0 (1- mid)) (reverse (subseq n mid))))
(and (evenp len) (equal (subseq n 0 mid) (reverse (subseq n mid))))))

转载于:https://www.cnblogs.com/tiandsp/archive/2012/04/03/2430722.html


你可能也喜欢

ecs服务器多少个网站,ecs云服务器支持几个网站

C++ 程序真的是从main函数开始/结束的吗?

创建Maven无模板项目时,无法访问webapp中的页面,页面404

ArcGIS Server10.1系统服务无法启动,报JSONObject异常

树莓派4B ubuntu21.4 GPIO控制

学习瑞芯微rk3399pro记录5

关于jdbc批量操作(addBatch, executeBatch)的测试

泛微移动平台(E-Mobile)升级包升级操作说明

Ubuntu下安装deb文件的方法

深度学习一些学习链接(补充)

sklearn kfold_sklearn交叉验证(KFold)的几个变种

node.js 运行node app.js无反应

tomcat中的线程

二叉排序树删除节点的几种方法

推荐两个界面原型设计工具–GUIDesignStudio 和 Mockups For Desktop

C++ 第十周实验报告2—《根据个人月收入总额,计算出应缴税款和税后收入》

STM32外设之DP83848芯片问题摘录

Unity工作流

pc端支付宝扫码支付

磁盘调度算法剖析(FIFO、SSTF、SCAN、CSCAN、FSCAN)

目录

  • APICloud (3)
  • golang (228)
  • java (8,236)
  • linux (4,002)
  • mysql (2,800)
  • php (1,070)
  • python (5,439)
  • solidity (25)
  • uniapp (235)
  • vue (2,463)
  • 其他 (88,233)
  • 小程序 (801)

文章归档

  • 2023年十二月 (1872)
  • 2023年十一月 (477)
  • 2023年十月 (17371)
  • 2023年九月 (44974)
  • 2023年八月 (26399)
  • 2023年七月 (14793)
  • 2023年六月 (1)
  • 2023年五月 (2186)
  • 2023年四月 (3838)
  • 2023年三月 (1544)
  • 2023年二月 (3)
  • 2023年一月 (4)
  • 2022年十二月 (3)
  • 2022年十一月 (36)
  • 2022年十月 (16)
  • 2022年九月 (8)
  • 2021年九月 (1)
  • 2020年九月 (6)
  • 2020年八月 (5)

标签

Aave (1) cosmos (6) defi (255) flag (27) gitee (1) github (1) golang (234) java (8234) linux命令 (82) List (1) map (1115) mysql (3093) npm (237) tendermint (6) uuid (43) vant (64) vmware (270) 区块链 (63) 合约 (37) 小程序版本更新 (3)
  • 首页
  • 小程序
  • uniapp
  • vue
  • APICloud
  • 其他
Copyright xfxia.com 鲁ICP备19024253号-2
关闭菜单