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


你可能也喜欢

标定

Android dex分包方案

Cesium更换地球背景

PL/SQL执行oracle存储过程

WebGL学习笔记(3)

PR 2019 快速入门(16)

僵尸进程和孤儿进程

软件构造实验2总结

IoU计算与读取Xml

统计某个进程的cpu使用率使用top命令

你的代码长啥样?

C++基于boost实现 获取文件或者字符串md5

怎么向女朋友解释什么叫区块链?

input file实现多次上传文件(不会覆盖上次上传的文件)

android overlay(动态RRO) 调研

并发编程之美

Pickle转Csv

浪潮n系列服务器指示灯_浪潮交换机

我的世界在线服务器地址,私の世界_我的世界1.7.10服务器地址大全 我的世界1.7.10服务器ip大全_游戏堡…

iOS10 iMessage 带来了你需要的MessageExtension

目录

  • 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
关闭菜单