当前位置: 首页 > news >正文

Conmon lisp Demo

1. 安装 Common Lisp 实现

这里以 SBCL 为例,在 Armbian 中,你可以通过包管理器来安装 SBCL。打开终端,执行以下命令:

sudo apt update
sudo apt install sbcl

这个命令会先更新软件包列表,然后安装 SBCL。

demo.lisp
;; 生成指定范围内的随机不重复数字列表
(defun generate-random-numbers (min max count)
  (let ((numbers (loop for i from min to max collect i))
        result)
    (dotimes (i count)
      (let ((index (random (length numbers))))
        (push (nth index numbers) result)
        (setf numbers (remove (nth index numbers) numbers))))
    (sort result #'<)))

;; 生成双色球中奖号码
(defun generate-winning-numbers ()
  (let ((red-balls (generate-random-numbers 1 33 6))
        (blue-ball (generate-random-numbers 1 16 1)))
    (list red-balls blue-ball)))

;; 让用户输入红球号码
(defun input-red-balls ()
  (format t "请输入 6 个不重复的红球号码(范围 01 - 33),用空格分隔:")
  (let ((input (read-line)))
    (let ((numbers (mapcar #'parse-integer (cl-ppcre:split " " input))))
      (when (and (= (length numbers) 6)
                 (every (lambda (n) (<= 1 n 33)) numbers)
                 (equal (sort (copy-list numbers) #'<) (remove-duplicates numbers :test #'=)))
        numbers))))

;; 让用户输入蓝球号码
(defun input-blue-ball ()
  (format t "请输入 1 个蓝球号码(范围 01 - 16):")
  (let ((input (read-line)))
    (let ((number (parse-integer input)))
      (when (<= 1 number 16)
        (list number)))))

;; 判断中奖情况
(defun check-winning (user-numbers winning-numbers)
  (let* ((user-red (car user-numbers))
         (user-blue (cadr user-numbers))
         (winning-red (car winning-numbers))
         (winning-blue (cadr winning-numbers))
         (red-matches (count-if (lambda (n) (member n winning-red)) user-red))
         (blue-match (equal user-blue winning-blue)))
    (cond ((and (= red-matches 6) blue-match) "一等奖")
          ((= red-matches 6) "二等奖")
          ((and (= red-matches 5) blue-match) "三等奖")
          ((or (and (= red-matches 5) (not blue-match))
               (and (= red-matches 4) blue-match)) "四等奖")
          ((or (and (= red-matches 4) (not blue-match))
               (and (= red-matches 3) blue-match)) "五等奖")
          ((or (and (<= red-matches 2) blue-match)) "六等奖")
          (t "未中奖"))))

;; 主游戏函数
(defun play-double-color-ball ()
  (let ((winning-numbers (generate-winning-numbers))
        user-numbers)
    (format t "欢迎参加双色球游戏!~%")
    (let ((red (input-red-balls)))
      (when red
        (let ((blue (input-blue-ball)))
          (when blue
            (setf user-numbers (list red blue))
            (format t "本期中奖红球号码:~{~2,'0d ~},蓝球号码:~2,'0d~%" (car winning-numbers) (car (cadr winning-numbers)))
            (format t "你选择的红球号码:~{~2,'0d ~},蓝球号码:~2,'0d~%" (car user-numbers) (car (cadr user-numbers)))
            (format t "你中了:~a~%" (check-winning user-numbers winning-numbers))))))))

;; 运行游戏
(play-double-color-ball)     

运行

sbcl --load demo.lisp

http://www.dtcms.com/a/107640.html

相关文章:

  • 如何在服务器里备份文件或系统
  • 基于NebulaGraph构建省市区乡镇街道知识图谱(二)
  • Bugku-眼见非实
  • 5.模型训练-毕设篇
  • HTML5手写签名板项目实战教程
  • linux -- php 扩展之xlswriter
  • DAY46 动态规划Ⅸ 股票问题Ⅱ
  • 机构数据服务
  • 搜索工具Everything下载安装使用教程(附安装包)
  • 网络安全的挑战与防护策略
  • Excel时间类型函数(包括today、date、eomonth、year、month、day、weekday、weeknum、datedif)
  • 大模型-提示词(Prompt)最佳实践
  • 【零基础入门unity游戏开发——2D篇】SpriteEditor图片编辑器
  • Unity 渲染流水线
  • 什么是编译和反编译
  • 【Python】Python 环境 + Pycharm 编译器 官网免费下载安装(图文教程,新手安装,Windows 10 系统)
  • 智能矢量化(地质类栅格图像)
  • python实战案例:销售数据BI动态分析仪表板
  • 今日行情明日机会——20250402
  • 任务堆积导致 OOM(内存溢出)
  • 08-MySQL InnoDB锁的基本类型
  • 【前端】电脑初始安装软件工具
  • 【Linux】内核驱动学习笔记(一)
  • 【论文笔记】DeepSeek-R1 技术报告
  • java虚拟机---JVM
  • python实战案例:财务凭证数据分析和生成报告
  • .net 6 + vue3中使用SignaIR实现双向通信功能
  • 界面架构 - MVVM (Qt)
  • 准确--回顾B站 “713“ 大规模服务不可用事故
  • 合并有序链表